msgbox "Jetzt zeige ich alle Dienste"
	Services_All   
 
msgbox "Und jetzt alle Dienste mit Status=running"
	Services_Running
 
Sub Services_All()
Dim oWO                      		' As SWbemObject
Dim oServices                    	' As WbemScripting.SWbemServices
Dim oObjSet                      	' As WbemScripting.SWbemObjectSet
Dim oLocator                 		' As WbemScripting.SWbemLocator
Const strServer = "."
 
' --- Verbindungsaufbau
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer(strServer)
 
' --- Liste aller Dienste
Set oObjSet = oServices.ExecQuery("Select * From Win32_Service")
 
For Each oWO In oObjSet
    wsh.echo oWO.name & " (" & oWO.Description & "): " & oWO.state & "," & _
      "Startmode: " & oWO.StartMode
Next
End Sub
 
Sub Services_Running()
Dim oWO                      		' As SWbemObject
Dim oServices                    	' As WbemScripting.SWbemServices
Dim oObjSet                      	' As WbemScripting.SWbemObjectSet
Dim oLocator                 		' As WbemScripting.SWbemLocator
Const strServer = "."
 
' --- Verbindungsaufbau
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer(strServer)
 
' --- Nur Laufende Dienste
Set oObjSet = oServices.ExecQuery("Select * From Win32_Service where" & _
  "State='running'")
 
For Each oWO In oObjSet
    wsh.echo oWO.name & " (" & oWO.Description & "): " & oWO.state & "," & _
      "Startmode: " & oWO.StartMode
Next
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell