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