vbscript - Sådan skriver du et VBS Script for at kontrollere et websted og derefter stoppe og starte en Windows-tjeneste

Indlæg af Hanne Mølgaard Plasc

Problem



Jeg skal skrive et VBS script til at tjekke en hjemmeside for bestemt tekst: 'Service Utilgængelig' og 'Fejl i/'


Når den finder det, har jeg brug for det til at genstarte Windows-tjenesten 'World wide publishing service'


Hvor begynder jeg?


Enhver hjælp ville blive meget værdsat!


Skål!


Andy

Bedste reference


Du kan tjekke på et websted ved at bruge MSXML2.XMLHTTP objektet (dvs. det samme objekt, som internet explorer bruger til at udskyde AJAX anmodninger) og kontrollere statuskoden (200 er status OK, 404 er siden ikke fundet osv.)


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


For så vidt angår at starte en tjeneste, har denne side et par eksempler på at arbejde med tjenester, hvoraf man starter en (kopieret verbatim, ikke testet): [3]


strComputer = "."
Set objWMIService = GetObject("winmgmts:" \_
    & "{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2")
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


hvis tjenesten du vil starte er IIS, kan du måske afstå fra http-anmodningen og i stedet direkte opdage, om IIS-tjenesten kører eller ej