标题：确定在所有进程中运行的服务
出处：gOxiA=苏繁=SuFan Blog
时间：Sat, 09 Jul 2005 09:44:24 +0000
作者：gOxiA
地址：https://sufan.maytide.net/read.php/865.htm

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

脚本代码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 colServicesIf objIdDictionary.Exists(objService.ProcessID) ThenElseobjIdDictionary.Add objService.ProcessID, objService.ProcessIDEnd IfNextcolProcessIDs = objIdDictionary.ItemsFor i = 0 to objIdDictionary.Count - 1Set colServices = objWMIService.ExecQuery _("Select * from Win32_Service Where ProcessID = '" & _colProcessIDs(i) & "'")Wscript.Echo "Process ID: " & colProcessIDs(i)For Each objService in colServicesWscript.Echo VbTab & objService.DisplayName NextNext




Generated by Bo-blog 2.1.1 Release