确定在所有进程中运行的服务

描述

返回进程列表以及当前在每个进程中运行的所有服务。

脚本代码

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，如需转载请自行联系原作者