Bestätigung für ausgewählte, laufende Dienste Anzeigen

[MarcelF 10]

Hallo!

ich stehe vor folgendem Problem:

Ich hätte gerne eine bestätigung auf den Desktop für den Start von vier bestimmten Diensten (z.B. Dienst1,...,Dienst4). Ich hab auch schon mit Google das folgende vbs-Script auf http://www.techgalaxy.net/blog/20050423121533.html gefunden:

 

set objIdDictionary = CreateObject("Scripting.Dictionary")

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServices = objWMIService.ExecQuery ("Select * from Win32_Service Where State <> 'Stopped'")

For Each objService in colServices

If objIdDictionary.Exists(objService.ProcessID) Then

Else

objIdDictionary.Add objService.ProcessID, objService.ProcessID

End If

Next

colProcessIDs = objIdDictionary.Items

For i = 0 to objIdDictionary.Count - 1

Set colServices = objWMIService.ExecQuery ("Select * from Win32_Service Where ProcessID = '" & colProcessIDs(i) & "'")

Wscript.Echo "Process ID: " & colProcessIDs(i)

For Each objService in colServices

Wscript.Echo VbTab & objService.DisplayName

Next

Next

 

Hierbei werden nur leider alle laufenden Dienste angezeigt.

Leider habe ich keine Ahnung von so etwas. Kann jemand vielleicht etwas mit dem Script anfangen, bzw. hat jemand eine andere Idee? Benutzt wird Windows 2000 SP4.

Danke!

 

MarcelF