想了解WMI的技术，请高手介绍一下

刚搜索了一个：
------------------------------利用WMI获取系统信息    WMI(Windows Management Instrumentation)技术是微软提供的Windows下的系统管理工具。通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是基于WMI开发的。该工具在Win2000以及WinNT下是标准工具，在Win9X下是扩展安装选项。本文将介绍如何通过VB编程来访问WMI对象的编程。
   首先来看一个简单的通过WMI获取系统信息的范例，这个范例通过WMI对象获得系统中运行的的进程：
Function Enum1() As String    Dim WMI
    Set WMI = GetObject("WinMgmts:")    Set objs = WMI.InstancesOf("Win32_Process")
    For Each obj In objs        Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)    NextEnd Function
    在上面的代码中，首先通过  GetObject("WinMgmts:")获得WMI对象，在WMI对象下有很多的子项，在这里我们通过WMI.InstancesOf("Win32_Process")获得系统中所有的进程列表子项。
    下面看一个完整的访问WMI对象的范例，这个范例获得计算机的信息。    建立一个新工程，在Form1中添加一个TextBox控件以及一个CommandButton控件，在CommandButton的Click事件中写入以下的代码：Private Sub Command1_Click()    Dim s, System, item    Dim i As Integer
    Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")    For Each item In System        注释：List1.AddItem item.cputype        s = "Computer Info" & vbCrLf        s = s & "***********************" & vbCrLf        s = s & "计算机名称: " & item.name & vbCrLf
        s = s & "状态: " & item.Status & vbCrLf
        s = s & "类型: " & item.SystemType & vbCrLf
        s = s & "生产厂家: " & item.Manufacturer & vbCrLf
        s = s & "型号: " & item.Model & vbCrLf
        s = s & "内存: ~" & item.totalPhysicalMemory \ 1024000 & "mb" & vbCrLf
        s = s & "域: " & item.domain & vbCrLf
        注释：s = s & "工作组" & item.Workgroup & vbCrLf 注释：获得工作组和域的选项不能同时用
        s = s & "当前用户: " & item.username & vbCrLf
        s = s & "启动状态" & item.BootupState & vbCrLf
        s = s & "该计算机属于" & item.PrimaryOwnerName & vbCrLf
        s = s & "系统类型" & item.CreationClassName & vbCrLf
        s = s & "计算机类类型" & item.Description & vbCrLf        For i = 0 To 1  注释：这里假设安装了两个系统
            s = s & Chr(5) & "启动选项" & i & " :" & item.SystemStartupOptions(i) _
                & vbCrLf
        Next i
    Next
    Text1.Text = s
End Sub
    运行程序，点击Command1，在textBox中就可以显示计算机的信息。
    在上面的代码中，程序通过GetObject("winmgmts:")获得WMI对象，然后获得下面的
Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。
需要说明的是，并不是所有的系统都支持WMI，在有些系统中无法显示生产厂家等信息。    现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡... 。
软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组
等等。利用WMI可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很
麻烦。为此，WMI提供了一种类似SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。    下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码：
Private Function MACAddress() As String   Set objs = GetObject("winmgmts:").ExecQuery( _
      "SELECT MACAddress " & _
      "FROM Win32_NetworkAdapter " & _
      "WHERE " & _
      "((MACAddress Is Not NULL) " & _
      "AND (Manufacturer <> " & _
      "注释：Microsoft注释：))")
   For Each obj In objs
      MACAddress = obj.MACAddress
      Exit For
   Next obj
End Function
    上面的代码获得WMI对象，然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回
网卡的MAC地址。
    WMI还支持事件处理，让程序可以处理系统事件，例如程序运行、关闭，可移动驱动器的插入、
取出等。下面是一个可以对系统中运行程序进行监控的程序。
    首先建立一个新工程，然后点击菜单的 project | references 项，在references列表中选中
Microsoft WMI Scripting Library将WMI对象库加入工程中。然后在Form1中加入一个ListBox控件，
然后在Form1中加入以下代码：Option Explicit Dim Locator As SWbemLocator
Dim Services As SWbemServices
Dim WithEvents StatusSink As SWbemSink
Private Sub KillEvents()
    StatusSink.Cancel
    Set StatusSink = Nothing
End Sub
Private Sub Form_Load()
    Dim Query As String
    Set StatusSink = New SWbemSink
    Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Services = Locator.ConnectServer()
    Query = "SELECT * FROM __InstanceCreationEvent "
    Query = Query + "WITHIN 1 "
    Query = Query + "WHERE TargetInstance ISA 注释：Win32_Process注释："
    Services.ExecNotificationQueryAsync StatusSink, Query
End Sub Private Sub StatusSink_OnObjectReady(ByVal StatusEvent As SWbemObject, _
                                     ByVal EventContext As SWbemNamedValueSet)
    Dim arr
    Dim strQue As String
    Dim i As Integer
    List1.Clear
    arr = Split(StatusEvent.GetObjectText_, Chr(10))
    For i = LBound(arr) To UBound(arr)
        List1.AddItem arr(i)
    Next i
End Sub Private Sub StatusSink_OnCompleted(ByVal HResult As WbemErrorEnum, _
                                   ByVal ErrorObject As SWbemObject, _
                                   ByVal EventContext As SWbemNamedValueSet)
    If HResult <> wbemErrCallCancelled Then
        注释：错误处理
    End If
End Sub     在上面的程序中定义了一个SWbemSink对象StatusSink，然后建立一个SWbemServices对象Server，
并将StatusSink连接到Server对象上。这样就可以通过StatusSink监控程序的运行。
    运行程序，然后任意运行一个程序，在Form1的ListBox中就可以列出运行的程序的信息。
    WMI应用最强大的一面是可以通过WEB页面来实现远程管理。下面我们来建立一个HTML页面，该页面
可以实现向上面的VB程序一样动态监控系统中运行的程序。监控系统中程序运行的HTML代码如下：<html>
<head>
<object ID="mysink" CLASSID=
"CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"></object>
</head>
<SCRIPT>
function window.onload()
{
  var locator = new ActiveXObject ("WbemScripting.SWbemLocator");
  var service = locator.ConnectServer();
  szQuery = "SELECT * FROM __InstanceCreationEvent ";
  szQuery += "WITHIN 1 ";
  szQuery += "WHERE TargetInstance ISA 注释：Win32_Process注释：";
  service.ExecNotificationQueryAsync(mysink,szQuery);
}
</SCRIPT>
<script FOR="mysink" EVENT="OnObjectReady(obj, objAsyncContext)">
  document.all.info.innerHTML += obj.TargetInstance.Name + "<br>";
</script>
<body>
<span ID="info"></span>
</body>
</html>
    保存代码为Htm后缀的页面文件。双击打开网页，然后运行一个程序，在网页上就可以列出
运行的程序的文件名。    以上简要的介绍了一下WMI的应用，实际上WMI对象的操作是十分复杂，功能也是很强大的，例如
你可以通过WMI在服务器上监控整个局域网上的计算机、向局域网上的计算机批量安装软件（例如杀
毒软件）。通过页面远程访问服务器，控件服务器运行程序，添加用户等。关于更多的WMI的应用，
读者可以访问MSDN上WMI开发的主页:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmistart_5kth.asp
获取更多信息。    以上程序在Win2000专业版下编写。

关于具体的WMI用法，这里推荐几篇文章，可以帮助你更好的理解WMI编程：Windows Management Instrumentation:Administering Windows and Applications Across Your Enterprise
http://msdn.microsoft.com/library/en-us/dnmag00/html/wmiover.asp?frame=trueSay Goodbye to Quirky APIs:Building a WMI Provider to Expose Your Object Info
http://msdn.microsoft.com/library/en-us/dnmag00/html/wmiprov.asp?frame=trueWindows Management Instrumentation: Create WMI Providers to Notify Applications of System Events
http://msdn.microsoft.com/library/en-us/dnmag01/html/AppLog.asp?frame=true

微软有个wmi脚本中心，例子很多，书，我就知道有一本《wmi技术指南》机械工业出版的定价48
我现在也想买，可惜已经绝版了，你就看微软的脚本中心吧，

查一查，相关资料很多的。举个例，实现在自己的程序中配置机器的网络设置：Function  ChangeIP(IP  As  String,  NM  As  String,  GW  As  String,  MDNS  As  String,  SDNS  As  String)  As  String
'返回值说明:返回一个设置的中文说明.
Dim  strComputer,  objWMIService,  colNetAdapters,  strIPAddress,  strSubnetMask
Dim  strGateway,  strGatewaymetric,  strDNS,  objNetAdapter,  errEnable,  errGateways,  errDNS
strComputer  =  "."
Set  objWMIService  =  GetObject("winmgmts:\\"  &  strComputer  &  "\root\cimv2"
Set  colNetAdapters  =  objWMIService.ExecQuery("Select  *  from  Win32_NetworkAdapterConfiguration  where  IPEnabled=TRUE"
strIPAddress  =  Array(IP)  'ip地址
strSubnetMask  =  Array(NM)  '子网掩码
strGateway  =  Array(GW)  '网关
strDNS  =  Array(MDNS,  SDNS)  '主DNS各备DNS
strGatewaymetric  =  Array(1)

For  Each  objNetAdapter  In  colNetAdapters
       errEnable  =  objNetAdapter.EnableStatic(strIPAddress,  strSubnetMask)
       errGateways  =  objNetAdapter.SetGateways(strGateway,  strGatewaymetric)
       errDNS  =  objNetAdapter.SetDNSServerSearchOrder(strDNS)
       If  errEnable  =  0  And  errGateways  =  0  And  errDNS  =  0  Then
               ChangeIP  =  "设置成功"
       Else
               If  errEnable  =  0  Then
                       ChangeIP  =  "IP地址和子网掩码设置成功,  "
               Else
                       ChangeIP  =  "IP地址或子网掩码设置失败,  "
               End  If
               If  errGateways  =  0  Then
                       ChangeIP  =  ChangeIP  &  "默认网关设置成功,  "
               Else
                       ChangeIP  =  ChangeIP  &  "默认网关设置失败,  "
               End  If
               If  errDNS  =  0  Then
                       ChangeIP  =  ChangeIP  &  "DNS设置成功"
               Else
                       ChangeIP  =  ChangeIP  &  "DNS设置失败"
               End  If
       End  If
Next

End  Function

Private  Sub  Command1_Click()
MsgBox  ChangeIP("192.168.1.12",  "255.255.255.0",  "192.168.1.1",  "201.96.112.133",  "84.124.96.122"
End  Sub'引用wmi
'返回系统的ip设置
dim str,strComputer ,colAdapters
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
n = 1For Each objAdapter in colAdapters   If Not IsNull(objAdapter.IPAddress) Then
      For i = 0 To UBound(objAdapter.IPAddress)
         str= str & "  IP 地址:             " & objAdapter.IPAddress(i)
      Next
   End If
   If Not IsNull(objAdapter.IPSubnet) Then
      For i = 0 To UBound(objAdapter.IPSubnet)
        str= str & "  子网掩码:                 " & objAdapter.IPSubnet(i)
      Next
   End If
   If Not IsNull(objAdapter.DefaultIPGateway) Then
      For i = 0 To UBound(objAdapter.DefaultIPGateway)
         str= str &  " 默认网关:        " & objAdapter.DefaultIPGateway(i)
      Next
   End If
     str= str & "   dns:服务器"
   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
      For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
         str= str &  "      " & objAdapter.DNSServerSearchOrder(i)
      Next
   End If
Nextmsgbox str

《WMI技术指南》绝版了？保密的吗？有详细的资料下载吗？

'引用MICROSOFT WMI脚本库Private Sub Command1_Click()
Dim 网卡对象 As SWbemObjectSet
   Dim 网卡子对象 As SWbemObject
   Dim 网卡子对象属性 As SWbemProperty
   Dim 网卡信息 As String
   Set 网卡对象 = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                  .InstancesOf("Win32_NetworkAdapter")
   网卡信息 = ""
   k = 0
   For Each 网卡子对象 In 网卡对象

       网卡信息 = 网卡信息 & 网卡子对象.Name & " [" & 网卡子对象.MACAddress & _
                  "]" & vbCrLf
   k = k + 1
   If k = 1 Then MsgBox 网卡信息
   Next
MsgBox 网卡信息, 64, "全部网卡信息"End Sub

调试易

想了解WMI的技术，请高手介绍一下

解决方案 »