第二个:脚本(启动IIS脚本.vbs )
Function KillProcess(proname)
for each proc in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if strcomp(proc.name,proname)=0 then
proc.Terminate
end if
next
set proc=nothing
End Function '定义一个结束进程的方法
set os = CreateObject("wscript.shell") '以下的脚本操作步骤为,打开iis然后点击启动。
set oshell= createobject("wscript.shell") '这样做的目的只有一个,就是如果批处理没有启动成功
os.run "C:\WINDOWS\system32\inetsrv\iis.msc" '则执行这个脚本来启动,以保证万无一失。
wscript.sleep 2000
os.sendkeys "{DOWN}"
wscript.sleep 2000
os.sendkeys "{TAB}"
wscript.sleep 2000
os.sendkeys "{ENTER}"
wscript.sleep 2000
os.sendkeys "{DOWN}"
wscript.sleep 2000
os.sendkeys "%a"
wscript.sleep 2000
os.sendkeys "{S}"
KillProcess "mmc.exe"
这个脚本只是针对一个网站而写的,如果你的IIS有多个网站的话可以看下面的《提示》来稍做修改就可以了
第三个:脚本(开始监控.vbs)
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
set copy1=createobject("scripting.filesystemobject")
set fso=wscript.createobject("scripting.filesystemobject")
fso.copyfile "启动IIS脚本.vbs","C:\windows\system\启动IIS脚本.vbs"
fso.copyfile "网站运行状态监控器.bat","C:\windows\system\网站运行状态监控器.bat"
copy1.getfile(wscript.scriptfullname).copy("c:\windows\system\开始监控.vbs")
path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
set ws=wscript.createobject("wscript.shell")
t=ws.regwrite(path & "IIS监控","c:\windows\system\开始监控.vbs")
do
ws.run "cmd /c 网站运行状态监控器.bat",vbhide
wscript.sleep 7200000 '每2个小时循环执行一次 网站运行状态监控器.bat 。
loop