还是我大方,程序是要共亨的(别忘给分)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) Next End 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 SWbemSinkPrivate Sub KillEvents() StatusSink.Cancel Set StatusSink = Nothing End SubPrivate 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开发的主页:
这个组件里包含有获取硬盘序列号的方法。
网上很多的。
1、VB获取硬盘物理系列号的DLL和代码2、PB获取硬盘物理系列号的DLL和代码3、VB网卡MAC地址代码(3种方法)4、VB网上邻居的网卡的MAC地址代码(可以开发只能在某局域网运行的MIS)
5、VB还有获取CUP_ID
6、VB主板ID的代码不要分,要RMB 500(全部).
Program: Allen Ho Studio BiosId Detective 11,12, 03
BIOS Date: 10/18/02
BIOS Type: Phoenix-Award BIOS v6.00PG
BIOS ID: 10/18/2002-i810(E)-W8362-6A69MTRAC-00
OEM Sign-On: Intel 810(e) -Tualatin, 001
Superio: NSC 332 rev 8 found at port 2Eh
CPU Type: Intel Celeron(R)
CPU Speed: 1100 Mhz
CPU Max: 1500 Mhz
BIOS ROM In Socket: Yes
BIOS ROM Size: 512K
Memory Installed: 384 MB
Memory Maximum: 1536 MBAllen Ho Studion(C)2000-2003-BIOSID CPU_ID '必须引用 Microsoft WMI Scripting v1.1 Library
还可以提供硬盘软系列号的修改方法。
通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是
基于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)
Next
End 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 SWbemSinkPrivate Sub KillEvents()
StatusSink.Cancel
Set StatusSink = Nothing
End SubPrivate 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开发的主页: