通过访问WMI 可以获取系统的所有后台服务信息
以下代码获取Win32_Service信息,并显示在一个Excel窗口中:
Set excel = CreateObject( "Excel.Application" )
With excel
.Visible = True
.Workbooks.Add
End With
x = 1
Set wmiService = GetObject( "winmgmts:root/cimv2" )
Set colServices = wmiService.ExecQuery( "Select * From Win32_Service" )
For Each service in colServices
excel.Cells( x, 1 ) = service.Name
excel.Cells( x, 2 ) = service.State
x = x + 1
Next
Set colServices = nothing
Set wmiService = nothing
Set excel = nothing