VB使用WMI编程讲座(原版整理)(持续更新).docVIP

VB 使用WMI编程讲座(原创) 一、认识WMI 通常VB程序员经常抱怨VB在编制Windows系统软硬件设备控制方面的程序比较困难，即使能实现一些功能，那也是要通过调用繁复的API函数，即难找寻到合适的函数，又难以理解设置函数中的各项参数，尤其是调试异常困难，动不动整个程序连带VB环境一起死悄悄。此外，用API编程几乎完全抛弃了面向对象的编程方法，迫使我们回到过程方式的编程。那怎么办呢？^_^别急，微软在WIN2000系统中推出了VBScript脚本语言替代原来的批命令，同时提供了一个供VBScript管理Windows系统的对象WMI。那这个WMI对象我们VB能用吗？答案是肯定的，当然能用，而且用起来还非常方便，在网上也已经有了一些VB写的利用WMI实现Windows系统管理编程的例程，但却缺少系统性介绍使用VB对WMI编程的资料。本文就针对此问题，进行一个尝试。当然要学习WMI编程，需要有一定的VB基础，但要求不高，只要会用控件、对象，能理解和使用对象的方法、属性，但不需要任何API方面的知识和编程经验。 首先我们要知道什么是WMI？WMI是Windows Management Instrumentation (Windows管理工具)的缩写，是内置在 Windows 2000、Windows XP 和 Windows Server 2003 系列操作系统中核心的管理支持技术。基于由 Distributed Management Task Force (DMTF) 所监督的业界标准，WMI 是一种规范和基础结构，通过它可以访问、配置、管理和监视所有的 — 几乎所有的 Windows 资源。 呵呵，不要对这段文字进行咬文嚼字，通俗的讲，就是WMI是一个用于管理Windows系统的对象，就像ADO对象是用于数据库操作的。利用WMI我们可以管理Windows系统中的磁盘、事件日志、文件、文件夹、文件系统、网络组件、操作系统设置、性能数据、打印机、进程、注册表设置、安全性、服务、共享、用户、组等等。 而WMI适用的运得环境也是有些限制的， WMI 附带在 Windows Me、Windows 2000、Windows XP 和 Windows Server 2003 之中。对于 Windows 98 和 Windows NT 4.0，可以访问/downloads并搜索“Windows Management Instrumentation (WMI) CORE 1.5 (Windows 95/98/NT 4.0)”。注意：在 Windows NT 4.0 上安装并运行 WMI 之前，需要首先安装 Service Pack 4 或更高版本。 WMI 需要的其他软件包括： 1. Microsoft Internet Explorer 5.0 或更高版本。 2. Windows Script Host（WSH）。Windows 2000、Windows XP、Windows Server 2003、和 Windows Me 附带的 WSH，而不是 Windows NT4 或 Windows 98 附带的 WSH。您可以从以下地址下载 WSH /downloads. WSH 的最新版本—— 包括在 Windows XP 和 Windows Server 2003 之中——是 WSH 5.6。 要使WMI脚本可以正常的运行，Windows里的WMI 服务（winmgmt）保证是运行的，这样才可以实现WMI里的更多功能。好了，关于WMI的一些基本的信息资料就说到这，要想看更多的可以到MicroSoft网站的MSDN找。 大家都喜欢通过例程来学东西，那我们也先编一段程序来看看。不知道大家看到过没有本人在本论坛中曾经写过一篇“自己做进程管理器”的帖子，在那篇帖子里主要是采用API函数罗列出当前系统下正在运行的所有进程，下面我们利用WMI也来做一个进程管理器。首先建立一个新工程具有Form1窗体，在菜单中的【工程】—【部件】下，添加“Microsoft Windows Common Controls 6.0”，在菜单中的【工程】—【引用】下，添加“Microsoft WMI Scripting V1.1 Library”，然后在Form1窗体上添加1个ListView1和Command1、Command2，在代码窗口添加如下代码（例程1）： Option Explicit Dim objSWbemLocator As New SWbemLocator Dim objSWbemServices As SWbemServices Dim objSWbemObjectSet As SWb