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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |