blogMyTrash

‘ Mit VB-Script Dienst aus der Diensteliste suchen bzw. suchen.

strServer = “.”
strService = “Dienstname” ‘ Name des Dienstes den man suchen will

Set objWMI = GetObject(“winmgmts:\\” & strServer)
wql = “Select * from Win32_Service Where DisplayName=’” & strService & “‘ and State=’Running’”

Set colServices = objWMI.ExecQuery(wql)

If colServices.Count > 0 Then ‘ wenn > 0 wurde der Dienst gefunden’
MsgBox “Der Dienst (” & strService & “) läuft!”
End If