使用VBS擷取當前電腦上開啟的服務

'獲得當前系統服務
Dim oArgs, strServerName, oServiceSet, oWshNetwork

Set oArgs = WScript.Arguments
If oArgs.Count > 0 Then
   strServerName = trim(oArgs(0))
Else
   strServerName = "LocalHost"
End If
Set oServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strServerName & "/root/cimv2").InstancesOf("Win32_Service")
If strServerName = "LocalHost" Then
   Set oWshNetwork = WScript.CreateObject("WScript.Network")
   WScript.Echo  oWshNetwork.ComputerName & " 系統服務資訊如下:"
   Set oWshNetwork = Nothing
Else
   WScript.Echo strServerName & " 系統服務資訊如下:"
End If
WScript.Echo String(75, "_")
For each Service in oServiceSet
 WScript.Echo "      顯示名稱:" & Service.Description & "服務名稱:" & Service.Name &" 目前狀態:" & Service.State

Next
WScript.Echo String(75, "_")
Set oServiceSet = Nothing

WScript.Echo String(75, "_")
Set oServiceSet = Nothing