使用VBS获取当前计算机上开启的服务

最新推荐文章于 2022-04-20 14:27:21 发布

greystar

最新推荐文章于 2022-04-20 14:27:21 发布

阅读量2.2k

点赞数

分类专栏： WEB 文章标签： string service each

本文链接：https://blog.csdn.net/greystar/article/details/90968

版权

WEB 专栏收录该内容

50 篇文章 0 订阅

订阅专栏

'获得当前系统服务
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