1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: VBScript: слежение за изменением ключа реестра

Автор идеи - Alexbootch.
Скрипт отслеживает изменение значения указанного ключа в реестре:

strComputer = "." 
strHive = "HKEY_LOCAL_MACHINE"
strKeyPath = "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\"
strValueName = "Userinit"
'====================================================================
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\DEFAULT") 
Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM RegistryValueChangeEvent WHERE " & _
    "Hive = '" & strHive & "'" & _
    " AND KeyPath = '" & strKeyPath & "'" & _
    " AND ValueName = '" & strValueName & "'")

Do While(True)
    Set objReceivedEvent = objEvents.NextEvent
    Wscript.Echo Now & " изменён ключ: " & strHive & "\" & Replace(strKeyPath, "\\", "\") & strValueName
Loop
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.