1、引用microsoft wmi scripting
2、Dim objApp As WbemScripting.SWbemLocator
Dim objServer As WbemScripting.SWbemServices
Dim objSet As WbemScripting.SWbemObjectSet
Dim obj As WbemScripting.SWbemObject
3、产生objServer的方法很多。以下三种都试过,都可以用。但现在还不知区别在哪里
这里都是用本机,所以没有给机器名。用的是“.”
a. Set objApp= CreateObject("WbemScripting.SWbemLocator") Set objServer = objApp.ConnectServer()
b. 不用objApp Set objServer = CreateObject("winmgmts://.")
c. 类似于 b,不用CreateObject,而用 Getobject Set objServer = Getobject("winmgmts://.")
a. Set objSet= objServer.InstancesOf("Win32_Service")
b. Set objSet= objServer.ExecQuery("select * from Win32_Service ")
Set objSet = objServer.ExecQuery("select * fromWin32_Service WHERE NAME = 'MSsqlSERVER' ")
5、取状态之类的。
For Each obj In objSet
Debug.Print obj.displayName,obj.Status
Next
MSDN有更详细说明
http://msdn.microsoft.com/zh-cn/library/ms974579.aspx
原文地址:https://www.jb51.cc/vb/259503.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。