VBS注册表防火墙

此脚本可以监视注册表启动项的增加和删除，并给与提示

 

程序代码如下：

Dim strComputer
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
 MsgBox "在" & Now & "启动项被更改！",vbExclamation,"注册表防火墙"
Loop

 

 

代码摘自《电脑爱好者》2007年第15期24页