VB中使用WMI 一
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://.") 4、调用不同的数据类名,现也有二种方法 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |