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