strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}" _
& strComputer & "ootmicrosoftiisv2")

While (True)
Set colItems = objWMIService.ExecQuery("Select * From IIsWebServer Where Name = 'W3SVC/1'")
For Each objItem in colItems
WScript.Echo objItem.ServerState & " " & Now & " "
If objItem.ServerState = 4 Then
WScript.Echo "! 網站服務停止嘗試啟動..."
objItem.Start()
WScript.Echo "! 網站服務已被成功啟動..."
End If
Next
WScript.Sleep 10000
Wend