如何编写VBS脚本来检查网站，然后停止和启动windows服务

我需要写一个VBS脚本来检查网站上的某些文本：“服务不可用”和“错误在/”

当它找到这个时，我需要它来重新启动windows服务“World wide publishing service”

我从哪里开始

任何帮助都将不胜感激

干杯

---

Andy

您可以通过使用MSXML2.XMLHTTP对象（即internet explorer用于触发AJAX请求的同一对象）并检查状态代码（200为状态正常，404为页面未找到等）来检查网站

就启动服务而言，有许多使用服务的示例，其中包括如何启动服务（逐字复制，未经测试）：

如果要启动的服务是IIS，那么您可能不需要http请求，而是直接检测IIS服务是否正在运行

dim http: set http = CreateObject("MSXML2.XMLHTTP")
http.open "GET", "http://site.com?param=value", false
http.send

if not http.status = 200 then
    ' something not right, start your service
end if

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name='NetDDE'")
For each objService in colServiceList
    errReturn = objService.StartService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery("Associators of " _
   & "{Win32_Service.Name='NetDDE'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
    objService.StartService()
Next