WMI即Windows管理规范，是用户管理本地和远程计算机的一种模型。通过它可以访问、配置、管理和监视几乎所有的 Windows 资源。WMI的语法十分简单，基本上常见的命名空间、对象等用几乎一模一样。它对应的是Windows里的WMI服务（winmgmt）

　　WMI实际是由两部分组成：CIM库和WMI脚本对象库。在具体使用过程中，我们是通过WMI脚本对象库去访问CIM库，管理托管的资源。也就是说，在我们编写脚本的过程大致可以分为这么几步：

　　1）创建WMI对象脚本库的指针实例；

　　2）调用其实例的方法，连接到CIM库，并指明需要访问的资源的逻辑位置；

　　3）获得托管资源也就是类的实例的集合；

　　4）枚举实例，完成工作

　　WMI的命名空间共有16个，不过我们常用的只有两个：

　　1）root\cimv2  在这个命名空间里包括了绝大多数与计算机、操作系统相关联的类。

　　2）root\default  管理注册表的类

　　给出两个实例参考：

　　在日志报告中记录测试机器的地址：

 

Public Function GetIP()
 '获取测试机器的IP
  ComputerName="."
  Dim objWMIService,colItems,objItem,objAddress
 Set ōbjWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
 For Each objItem in colItems
     For Each objAddress in objItem.IPAddress
         If objAddress <> "" Then
           GetIP = objAddress
           Exit Function
         End If
     Next
  Next
End Function

　　如何在判断进程是否存在：

Function ProcessExist(processName)
  For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_process")
   If Process.Name = processName Then
     ProcessExist = True
     Exit Function
  End If
 Next
 ProcessExist = False
End Function