error in hive name

can some one remove error from following code.

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootdefault")

Set colEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_CURRENT_USER' AND " & _
"KeyPath='CONSOLE'")

Do
Set objLatestEvent = colEvents.NextEvent
Wscript.Echo Now & ": The registry has been modified."
Loop

Comments

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion