Script per servizio

[dafi]

Ciao raga,

vi chiedo una mano perchè a questo codice :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service WHERE NAME ='alerter'OR NAME ='worldserver'")
For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next

Vorrei eliminare l'avviso a video e aggiungere la condizione che se il servizio è <> "running" allora lancia un file.
Come posso fare?

Sono un po' limitato.

Grazie in anticipo.

[Mich_]

Questo e` programmazione lato server; mi sembra ASP con linguaggio VBS che interagisce con un database.

Sposto di la`.