wmi实现iis的智能重启（转）-白红宇

wmi实现iis的智能重启（转）

阅读量：2495 次

发布时间：2019-05-11

本文共 2320 字，大约阅读时间需要 7 分钟。

公司的web服务器老是由于dllhost.exe 的内存占用过大而当掉,导致asp页面不能正常访问，最可气的是这种情况每每发生在我休假的时候，不得已被拉回来重启一下iis，为了使自己的五一长假能安稳些，写了个iis的自动重启程序，我见网上类似的程序，都是定时重启，我理想的状况是不要过于频繁启动，只在dllhost.exe这个进程当掉的时候，再重启，于是有了下面这段代码，原理是监视应用程序日志，当出现事件id是5的错误时（无法为asp程序提供足够内存），重启iis,呵呵。

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 & " ootcimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _

("Select * from __instancecreationevent where TargetInstance isa'Win32_NTLogEvent' and TargetInstance.EventCode = '4' ")

Wscript.Echo "开始监视iis于 "&now

Set objLatestEvent = colMonitoredEvents.NextEvent

Wscript.Echo "重新启动iis "&now

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "%COMSPEC% /c IISRESET.EXE",,1

'------核心程序，呵呵，短吧，wmi万岁

whichfile=("iisresetlog.htm")