注册
登录
| 关键词： objWMIService strComputer colEvents Set RegistryKeyChang ExecNotification CurrentVersion objLatestEvent NextEvent Microsoft |
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default")Set colEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND " & _ "KeyPath='SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run'") Do Set objLatestEvent = colEvents.NextEvent Wscript.Echo Now & ": The registry has been modified."Loop |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
