VB中使用WMI 二(不用引用microsoftwmi scripting的方法)

 

发现要使用WMI,不一定要引用microsoft wmi scripting

 

 

 

如下：找出安装的SQL Server服务  

 

Dim objServer As Object  

 

Dim objSet As Object  

 

Dim obj As Object  

 

Dim strComputer As String, strServiceName As String      

 

Dim idx As Integer          

 

ReDim g_strSQLServer(32)      

 

strComputer = "."      

 

idx = 0          

 

 

 

Set objServer = GetObject("Winmgmts://" &strComputer)      

 

Set objSet = objServer.InstancesOf("Win32_Service")              

 

 

 

For Each obj In objSet              

 

strServiceName = UCase(obj.Name)              

 

If  InStr(strServiceName,"MSSQL") > 0 then                      

 

g_strSQLServer(idx) = obj.Name                       

 

idx = idx + 1              

 

End If      

 

Next

 

 

 

此代码在window2000,VB6,SQLServer2000下通过

 

甚至于：

 

GetOjbect可以换成CreateObject

 

上一次所 讲的几种方法都可以使用。

 

唯一的区别就是，

 

不能定义如WbemScripting.SwbemObject,全要换成object