[VbScript] Enumerare i servizi

[ljt]

Salve,

dato che avrei la necessitò di verificare i servizi in esecuzione in un computer ho scritto questo semplice script:

dim sServizio
sServizio = "Accesso rete"
sServizio = inputbox ("Inserire il nome del servizio da verificare:","Inserire il nome del servizio",sServizio)
Set oWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colRunningServices = oWMIService.ExecQuery ("Select * from Win32_Service")
For Each oService in colRunningServices
    if sServizio = oService.DisplayName and oService.State = "Stopped" then
      msgbox ("Il servizio " & sServizio & " è stato trovato ed è " & oService.State)
    end if
Next

Il programma funziona correttamente, ma mi sono accorto che non mi trova tutti i servizi, ad esempio se ricerco Client DNS o Client DHCP non mi viene trovato.
Da notare che l'esempio riportato non emette nessun messaggio se il servizio non viene trovato.

Qualche suggerimento?

Grazie in anticipo.