获取操作系统的服务状态-叶海峰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


获取操作系统的服务状态

发表时间:2013/4/24 9:46:52 评论(1) 浏览(2774)  评论 | 加入收藏 | 复制
   
摘 要:获取操作系统的服务状态
正 文:


Sub GetServiceState()
'XP测试通过,Win7无测试
Dim strComputer As String
Dim colServices As Object
Dim objWMIService As Object
Dim objService As Object

strComputer = "."

Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServices = objWMIService.ExecQuery _
    ("Select * From Win32_Service")

For Each objService In colServices
    Debug.Print objService.Name, objService.State
Next
End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
返回操作系统的临时目录,系统目录,WINDOWS目录   【黄海  2004/11/18】
操作系统环境 Environ 函数   【朱亦文  2004/11/10】
获取本机的IP 计算机名 登录操作系统用户名  【不详  2010/7/20】
 
 访客评论
2013/4/24hongyin
Win7测试通过

总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

叶海峰

文章分类

文章存档

友情链接