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.

Rispondi quotando