IIS监控--自动重启脚本工具

甩祸

然后做计划任务，让其在系统启动时运行监控　　vbs代码：
　　strFullName = WScript.FullName
　　strWshHost = Right(strFullName, 11)
　　'WScript.Echo "Default script host: " & strWshHost
　　If strWshHost = "WScript.exe" Then
　　Set objShell = CreateObject("WScript.Shell")
　　objShell.Run _
　　"%comspec% /k ""cscript //h:cscript&&cscript fu.vbs""", _
　　MAXIMIZE_WINDOW
　　If Err.Number  0 Then
　　WScript.Echo "Error 0x" & hex(Err.Number) & " occurred. " & _
　　Err.Description & ". " & VbCrLf & _
　　"Could not temporarily change the default script host to Cscript."
　　Err.Clear
　　WScript.Quit
　　End If
　　WScript.Quit
　　End If
　　'----上面这段代码是强制到cscript命令行，一般要在cmd命令行下输入cscript *.vbs,如果直接执行vbs会用wscript打开，这样只会弹个对话框，我不喜欢，有不想每次都cscript，所以要写点额外的代码，双击后会调用一个wscript执行csript，然后再消灭自己，幸好微软的网站上提供了这个代码------------------------------------
　　strComputer = "."
　　Set objWMIService = GetObject("winmgmts:" _
　　& "{impersonationLevel= impersonate, (Security)}!\\" & strComputer & "\root\cimv2")
　　Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
　　("Select * from __instancecreationevent where TargetInstance isa'Win32_NTLogEvent' and TargetInstance.EventCode = '7031' ")
　　Wscript.Echo "开始监视iis于 "&now
　　Do
　　Set objLatestEvent = colMonitoredEvents.NextEvent
　　Wscript.Echo "重新启动iis "&now
　　Set objShell = CreateObject("WScript.Shell")
　　objShell.Run "%COMSPEC% /c IISRESET.EXE",,1
　　'------核心程序