WMI - Windows Management Instrumentation,是基于 Web Based Enterprise Management(WBEM)的面向对象数据库,一个管理企业环境开发的标准接口。可以利用它访问本地主机的一些信息和服务、监视计算机、管理远程计算机…
在VS.NET中需要添加引用:System.Management.dll,这样你的项目才能使用WMI。
WMI 的使用灵活,但 class 也多,如:CPU的系列号-Win32_Processor、主板BIOS的系列号-Win32_BIOS、本地磁盘-Win32_LogicalDisk、共享资源-Win32_share等等,详细的 WMI 类名可以在MSDN中查询 ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.2052/wmisdk/wmi/win32_classes.htm
也可以使用WMI Tools管理WMI服务的名称空间http://www.microsoft.com/downloads/details.aspx?FamilyId=6430F853-1120-48DB-8CC5-F2ABDC3ED314&displaylang=en
用这个程序也可以获取WMI Class Name:
---------------------------------------------------------------------------------------
Dim WMI As Management.ManagementClass
Dim info As Management.ManagementObject
‘ 返回 WMI 的 Class Name 到 String Array
Private Function FindWMI(ByVal IndexString As String, ByVal Deep As Boolean) As String()
Try
Dim _WMIList() As String
WMI = New Management.ManagementClass
Dim options As New Management.EnumerationOptions
Dim chClass As String = Nothing
If Not IndexString Is Nothing Then
chClass = IndexString
End If
options.EnumerateDeep = Deep
For Each info In WMI.GetSubclasses(options)
If _WMIList Is Nothing Then
ReDim _WMIList(0)
Else
ReDim Preserve _WMIList(UBound(_WMIList) + 1)
End If
If chClass Is Nothing Then
_WMIList(UBound(_WMIList)) = (info.Item("__Class"))
Else
If info.Item("__Class").ToString.Substring(0, _
IIf(info.Item("__Class").ToString.Length > chClass.Length, _
chClass.Length, info.Item("__Class").ToString.Length)).ToLower = chClass Then
_WMIList(UBound(_WMIList)) = (info.Item("__Class"))
End If
End If
Application.DoEvents()
Next
options = Nothing
info = Nothing
[1] [2] 下一页 [办公软件]使用TRIMMEAN函数去除几个最高分和几个最低分之后… [操作系统]几个常用的DOS网络命令详解 [网络技术]常被宽带共享上网用户关注的几个问题 [电脑技术]衡量CPU性能的几个参数指标介绍 [电脑技术]使用扫描仪的几个常规高级技巧 [电脑技术]使用电子邮件EMail应注意的几个问题 [VB.NET程序]VB.NET下通过WMI共享文件夹 [VB.NET程序]几个 WMI 的例子(初级) - 2 [VB.NET程序]几个 WMI 的例子(初级) - 3 [VB.NET程序]几个 WMI 的例子(初级) - 4
|