确定在所有程序中運作的服務

描述

傳回程序清單以及目前在每個程序中運作的所有服務。

腳本代碼

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

本文轉自 蘇繁 51CTO部落格，原文連結：http://blog.51cto.com/goxia/221130，如需轉載請自行聯系原作者