MarcelF 10 Geschrieben 11. August 2005 Melden Geschrieben 11. August 2005 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 Zitieren
Empfohlene Beiträge
Schreibe einen Kommentar
Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.