几个 WMI 的例子(初级) - 1

原创 2004年02月05日 00:50:00

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

 

WMI - Windows Management Instrumentation,是基于 Web Based Enterprise ManagementWBEM)的面向对象数据库,一个管理企业环境开发的标准接口。可以利用它访问本地主机的一些信息和服务、监视计算机、管理远程计算机

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

            WMI = Nothing

            Return _WMIList

        Catch ex As Exception

            MsgBox(ex.Message, 16 + 0, ex.TargetSite.Name)

        End Try

    End Function

获取 WMI 的 Class Info 并将其写入输出窗口

    Private Sub GetInfo(ByVal IndexString As String)

        Try

            If IndexString Is Nothing Then Exit Sub

            Dim wmiClass As String = IndexString

            WMI = New Management.ManagementClass(wmiClass)

            Dim strInfo As String

            Console.WriteLine("WMI Class is:" & wmiClass)

            For Each info In WMI.GetInstances

WMI Class Info 写到输出窗口

                Console.WriteLine(info.GetText(Management.TextFormat.Mof).ToString)

            Next

            info = Nothing

            WMI = Nothing

        Catch ex As Exception

            MsgBox(ex.Message, 16 + 0, ex.TargetSite.Name)

        End Try

    End Sub

---------------------------------------------------------------------------------------

使用时:

            Dim tmpStr() As String, i As Integer

            '获取 WMI 的 Class Name

            tmpStr = FindWMI(Nothing, True)

            '列出 Class Name Array 中的第 559 个 Class 的 Info

            GetInfo(tmpStr(559))

            '列出物理内存的信息

            GetInfo("Win32_PhysicalMemory")

利用WMI实现远程登录、文件拷贝、建立进程、启动服务

swfwmi.h #ifndef __SW_FACE_CONNON_WMI__ #define __SW_FACE_CONNON_WMI__ #include "swftype.h" namespac...
  • iamherego
  • iamherego
  • 2013年09月11日 17:15
  • 2996

WMI技术介绍和应用——接收事件

本文讲解如何使用WMI技术监控进程的创建和消亡、USB设备的插入和拔出等事件监控功能。...
  • breaksoftware
  • breaksoftware
  • 2016年01月19日 18:34
  • 3544

WMI问题全解(Windows管理规范)

问题 1:WMI 是什么,它能帮我做什么? 问题 2: WMI 适用于那些平台? 问题 3:如果 WMI 向外界暴露特定的功能,我如何才能知道? 问题 4:如果 WMI 没有提供我想要的功能,我...
  • whatday
  • whatday
  • 2013年03月16日 10:42
  • 4550

java 正则(1) 初步认识 / 中括号表范围 / 预定义字符类\s \w \d / 边界匹配 / 几个正则的例子 / 竖线是或者 / 中括号里加上尖号是非

java 正则 package test.java.RegExp; import java.util.regex.Matcher; import java.util.regex.Pattern; ...
  • nx188
  • nx188
  • 2016年01月08日 18:56
  • 2085

python 操作wmi例子

原文地址:操作wmi例子" style="text-decoration:none; color:rgb(8,68,135)">python 操作wmi例子作者:拔草 Python操作WMI例程...
  • showy_ho
  • showy_ho
  • 2014年07月30日 09:35
  • 1300

vc使用wmi例子

#define _WIN32_DCOM #define _WIN32_WINNT 0X0500 #include #include #include #include "wbemidl....
  • jiftlixu
  • jiftlixu
  • 2012年04月18日 15:31
  • 3088

wmi技术指南.part1.rar

  • 2008年06月01日 21:51
  • 6.68MB
  • 下载

使用j-Interop实现java连接wmi获取windows系统信息的例子

  • 2014年04月25日 15:58
  • 827KB
  • 下载

解决WIN7_sp1_wmi错误

  • 2011年08月29日 01:13
  • 2KB
  • 下载

linux初级令、经常使用的几个命令

  • 2010年08月13日 11:05
  • 119KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:几个 WMI 的例子(初级) - 1
举报原因:
原因补充:

(最多只允许输入30个字)