使用VBS获取当前计算机上开启的服务
2004-09-01 12:17
441 查看
'获得当前系统服务
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
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
相关文章推荐
- 使用VBS获取当前计算机上开启的服务
- 使用Cobub LBS位置服务获取当前位…
- 使用VBS获取当前日期的前一天 并修正输出格式
- 使用组策略获取AD中所有计算机当前登录用户信息
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第十一节 获取当前计算机的IP信息
- 获取计算机服务和当前用户角色
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第十一节 获取当前计算机的IP信息
- 获取当前使用某个TCODE的用户的程序样例
- 获取当前使用某个TCODE的用户的程序样例
- 获取当前使用某个TCODE的用户的程序样例
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第四节 获取当前TCP连接情况
- [解决方法]网络策略设置禁止您使用该网站获取您计算机的更新程序。 如果您确认此消息有误,请向您的系统管理员咨询。
- 完成了WF工作流持久化和对持久化介质数据的加载, 但是仅仅用持久化,不能够保存工作流当前的执行状态,需要跟踪服务支持,怎样使用Tracing 服务呢?
- 使用C#控制远程计算机的服务[转]
- 用vbs实现配置无人登录计算机时使用的屏幕保护程序
- 使用C#控制远程计算机的服务
- 使用JS通过雅虎的免费RSS服务获取气温
- 使用Windows API获取和改变当前显示设置
- 完成了WF工作流持久化和对持久化介质数据的加载, 但是仅仅用持久化,不能够保存工作流当前的执行状态,需要跟踪服务支持,怎样使用Tracing 服务呢?
- 使用C#控制远程计算机的服务