HOW TO:WMI简易查询

最新推荐文章于 2024-09-17 22:16:18 发布
最新推荐文章于 2024-09-17 22:16:18 发布
阅读量1.6k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： HOW TO 系列 文章标签： string action exception function class query
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/lzmtw/article/details/660602
本文介绍了一个简化Windows Management Instrumentation (WMI) 查询的项目。该项目通过VB.NET实现，旨在简化WMI查询流程，并提供易于使用的API。文中详细展示了项目的结构、使用方法及代码示例。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Author:水如烟

WMI的查询在日常计算机和网络管理中经常会用到。本项目的目的是使WMI查询变得简单一些。
功能：以给出的身份查询某台机的WMI提供的信息

使用方式（示）：示图
    Private Sub Start()
        ListBoxItemAdd(String.Format("Begin AT {0}", Now.ToString))
        ListBoxItemAdd("")
        LzmTW.WMI.SimpleQuery.ServerName = Me.TextBoxServerName.Text

        LzmTW.WMI.SimpleQuery.UserName = Me.TextBoxUserName.Text '为空时以当前身份查询
        LzmTW.WMI.SimpleQuery.Password = Me.TextBoxPassword.Text
        LzmTW.WMI.SimpleQuery.EnumerateDeep = Me.CheckBoxEnumerateDeep.Checked

        Try
            LzmTW.WMI.SimpleQuery.Excute(Me.ComboBoxSelect.Text)
        Catch ex As Exception
            ListBoxItemAdd(String.Format("Error! Msg:{0}", ex.Message))
        End Try

        ListBoxItemAdd("")
        ListBoxItemAdd(String.Format("End AT {0}", Now.ToString))
    End Sub

其中接受查询内容的Me.ComboBoxSelect.Tex文本可以是这样的:
Win32_Desktop
或
//./root/cimv2:Win32_Desktop.Name="NT AUTHORITY//LOCAL SERVICE"
或
Win32_Desktop.Name="NT AUTHORITY//LOCAL SERVICE"
或
SELECT NAME FROM Win32_Desktop


以下为主项目：

项目引用System.Management命名，共有五个文件，在命名空间LzmTW之内，生成LzmTW.WMI.Dll文件。
五个文件分别是：QueryInfo.vb，Query.vb，Delegate.vb，SimpleQuery.vb，WMIClass.vb。

QueryInfo.vb

 

Namespace WMI

    Public Class QueryInfo
        Public ServerName As String = "."
        Public NamespacePath As String = "root/cimv2"
        Public RelativePath As String
        Public UserName As String
        Public Password As String
    End Class

End Namespace


Query.vb

 

Namespace WMI
    Public Class Query
        Private Sub New()
        End Sub

        Private Shared gQueryInfo As New QueryInfo

        Private Shared gManagementPath As System.Management.ManagementPath
        Private Shared gConnectionOptions As System.Management.ConnectionOptions
        Private Shared gManagementScope As System.Management.ManagementScope

        Private Shared gObjectGetOptions As System.Management.ObjectGetOptions
        Private Shared gEnumerationOptions As System.Management.EnumerationOptions

        Public Shared ReadOnly Property QueryInfo() As QueryInfo
            Get
                Return gQueryInfo
            End Get
        End Property

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared ReadOnly Property ManagementPath() As System.Management.ManagementPath
            Get
                Return gManagementPath
            End Get
        End Property

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared ReadOnly Property ConnectionOptions() As System.Management.ConnectionOptions
            Get
                Return gConnectionOptions
            End Get
        End Property

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared ReadOnly Property ObjectGetOptions() As System.Management.ObjectGetOptions
            Get
                Return gObjectGetOptions
            End Get
        End Property

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared ReadOnly Property EnumerationOptions() As System.Management.EnumerationOptions
            Get
                Return gEnumerationOptions
            End Get
        End Property

        Shared Sub New()
            gManagementPath = New System.Management.ManagementPath
            gConnectionOptions = New System.Management.ConnectionOptions
            gObjectGetOptions = New System.Management.ObjectGetOptions
            gEnumerationOptions = New System.Management.EnumerationOptions
        End Sub

        Private Shared Sub Connect()
            With gManagementPath
                .Server = gQueryInfo.ServerName
                .NamespacePath = gQueryInfo.NamespacePath
                .RelativePath = gQueryInfo.RelativePath
            End With

            If gQueryInfo.UserName IsNot Nothing Then
                gQueryInfo.UserName = gQueryInfo.UserName.Trim
                If gQueryInfo.UserName = "" Then
                    QueryInfo.UserName = Nothing
                    QueryInfo.Password = Nothing
                End If
            Else
                gQueryInfo.Password = Nothing
            End If

            With gConnectionOptions
                .Username = gQueryInfo.UserName
                .Password = gQueryInfo.Password
            End With


            If gManagementScope IsNot Nothing Then gManagementScope = Nothing
            gManagementScope = New System.Management.ManagementScope(gManagementPath, gConnectionOptions)
            gManagementScope.Connect()
        End Sub

        Private Shared Function Excute0() As System.Management.ManagementObjectCollection
            Connect()
            Return (New System.Management.ManagementClass(gManagementScope, gManagementPath, gObjectGetOptions)).GetInstances
        End Function

        Private Shared Function Excute1(ByVal query As String) As System.Management.ManagementObjectCollection
            Connect()
            Return (New System.Management.ManagementObjectSearcher(gManagementScope, New System.Management.ObjectQuery(query), gEnumerationOptions)).Get
        End Function

        Public Shared Function GetManagementObject(ByVal relativepath As String) As System.Management.ManagementObject
            QueryInfo.RelativePath = relativepath
            Connect()
            Return New System.Management.ManagementObject(gManagementScope, gManagementPath, gObjectGetOptions)
        End Function

        Public Shared Function GetManagementObjectCollection(ByVal ClassOrSelectString As String) As System.Management.ManagementObjectCollection
            Dim tmp As Management.ManagementObjectCollection = Nothing

            ClassOrSelectString = ClassOrSelectString.Trim.ToUpper
            If ClassOrSelectString.StartsWith("SELECT") Then
                tmp = Excute1(ClassOrSelectString)
            Else
                QueryInfo.RelativePath = ClassOrSelectString
                tmp = Excute0()
            End If

            Return tmp
        End Function

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared Sub MoveNext(ByVal mgmtObjectCollection As System.Management.ManagementObjectCollection, ByVal action As Action(Of System.Management.ManagementObject))
            MoveNext(Of System.Management.ManagementObject)(mgmtObjectCollection.GetEnumerator, action)
        End Sub

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared Sub MoveNext(ByVal mgmtObject As System.Management.ManagementObject, ByVal action As Action(Of System.Management.PropertyData))
            MoveNext(Of System.Management.PropertyData)(mgmtObject.Properties.GetEnumerator, action)
        End Sub

        <System.ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)> _
        Public Shared Sub MoveNext(Of T)(ByVal enumerator As IEnumerator, ByVal action As Action(Of T))

            If (enumerator Is Nothing) Then
                Throw New ArgumentNullException("enumerator")
            End If
            If (action Is Nothing) Then
                Throw New ArgumentNullException("action")
            End If

            While enumerator.MoveNext
                action.Invoke(CType(enumerator.Current, T))
            End While
        End Sub

    End Class

End Namespace


Delegate.vb

 

Namespace WMI
    Public Delegate Sub GetCurentManagementObjectHandler(ByVal e As System.Management.ManagementObject)
    Public Delegate Sub GetCurentPropertyDataHandler(ByVal e As System.Management.PropertyData)
End Namespace


SimpleQuery.vb

 

Namespace WMI

    Public Class SimpleQuery

        Public Shared Event CurrentManagementObject As GetCurentManagementObjectHandler
        Public Shared Event CurrentPropertyData As GetCurentPropertyDataHandler

        Private Sub New()
        End Sub

        Shared Sub New()
        End Sub

        Public Shared WriteOnly Property ServerName() As String
            Set(ByVal value As String)
                Query.QueryInfo.ServerName = value
            End Set
        End Property

        Public Shared WriteOnly Property UserName() As String
            Set(ByVal value As String)
                Query.QueryInfo.UserName = value
            End Set
        End Property

        Public Shared WriteOnly Property Password() As String
            Set(ByVal value As String)
                Query.QueryInfo.Password = value
            End Set
        End Property

        Public Shared WriteOnly Property EnumerateDeep() As Boolean
            Set(ByVal value As Boolean)
                Query.EnumerationOptions.EnumerateDeep = value
            End Set
        End Property

        Public Shared Sub Excute(ByVal mgmtSql As String)
            If mgmtSql Is Nothing Then mgmtSql = ""

            If mgmtSql.IndexOf("."c) <> -1 Then
                OutPutManageMentObject(Query.GetManagementObject(mgmtSql))
            Else
                Query.MoveNext(Query.GetManagementObjectCollection(mgmtSql), AddressOf OutPutManageMentObject)
            End If

        End Sub

        Private Shared Sub OutPutManageMentObject(ByVal e As System.Management.ManagementObject)
            RaiseEvent CurrentManagementObject(e)
            Query.MoveNext(e, AddressOf OutPutPropertyData)
        End Sub

        Private Shared Sub OutPutPropertyData(ByVal e As System.Management.PropertyData)
            RaiseEvent CurrentPropertyData(e)
        End Sub

    End Class

End Namespace


WMIClass.vb

 

Namespace WMI
    Public Class WMIClass
        Private Sub New()
        End Sub

        Private Shared gAll(-1) As String
        Private Shared gIndex As Integer = 0

        Public Shared ReadOnly Property All() As String()
            Get
                Return gAll
            End Get
        End Property

        Shared Sub New()
            Dim tmpRoot As New System.Management.ManagementClass()
            Dim tmpOptions As New System.Management.EnumerationOptions()
            tmpOptions.EnumerateDeep = True
            Dim tmpObjects As System.Management.ManagementObjectCollection = tmpRoot.GetSubclasses(tmpOptions)
            ReDim gAll(tmpObjects.Count - 1)

            Using tmpObjects
                Query.MoveNext(Of Management.ManagementObject)(tmpObjects.GetEnumerator, AddressOf GetAllClass)
            End Using

            Array.Sort(gAll)
            tmpOptions = Nothing
            tmpRoot = Nothing
        End Sub

        Private Shared Sub GetAllClass(ByVal obj As System.Management.ManagementObject)
            gAll(gIndex) = obj("__Class").ToString
            gIndex += 1
        End Sub

    End Class
End Namespace


以下为使用方法:
为了显示查询出来的信息,我这里仅取Properties，读取的是里头的PropertyData信息。为此，在应用项目中，用了下面一个类来简单获取：

 

< Serializable() >  _
 Public   Class PropertyDataInfo
    Private gName As String
    Private gValue As String
    Private gIsArray As Boolean = False
    Private gStatus As Boolean = True

    Sub New()
    End Sub

    Public Sub GetData(ByVal obj As Management.PropertyData)
        With obj
            gName = .Name
            gIsArray = .IsArray
            gStatus = True
            Try
                If gIsArray Then
                    gValue = String.Join(",", CType(obj.Value, String()))
                Else
                    gValue = obj.Value.ToString
                End If
            Catch ex As Exception
                gValue = ""
                gStatus = False
            End Try
        End With
    End Sub

    Public Property Name() As String
        Get
            Return gName
        End Get
        Set(ByVal value As String)
            gName = value
        End Set
    End Property

    Public Property Value() As String
        Get
            Return gValue
        End Get
        Set(ByVal value As String)
            gValue = value
        End Set
    End Property

    Public Property IsArray() As Boolean
        Get
            Return gIsArray
        End Get
        Set(ByVal value As Boolean)
            gIsArray = value
        End Set
    End Property

    Public Property Status() As Boolean
        Get
            Return gStatus
        End Get
        Set(ByVal value As Boolean)
            gStatus = value
        End Set
    End Property

    Public Sub Clear()
        gName = Nothing
        gValue = Nothing
        gIsArray = False
        gStatus = True
    End Sub

    Public Shadows Function ToString() As String
        Return String.Format("属性:{0},值:{1},数组:{2},状态:{3}", gName, gValue, gIsArray, gStatus)
    End Function

End Class


上面状态为False时表示无法读取该属性值。数组为True表示该属性的值类型是一数组。

使用时的大概代码是这样的：


 Public   Class Form1
    Dim mItem As New PropertyDataInfo

    Private Delegate Sub SetTextCallback(ByVal [text] As String)
    Private Sub SetLoadingLableText(ByVal [text] As String)
        Me.ListBox1.Items.Add([text])
    End Sub

    Private Sub ListBoxItemAdd(ByVal message As String)
        If Me.ListBox1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetLoadingLableText)
            Me.Invoke(d, New Object() {message})
        Else
            SetLoadingLableText(message)
        End If
        Application.DoEvents()
    End Sub

    Private Sub ButtonClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClear.Click
        ListBox1.Items.Clear()
    End Sub

    Private Sub ButtonQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuery.Click
        Start()
    End Sub
    Private Sub Start()
        ListBoxItemAdd(String.Format("Begin AT {0}", Now.ToString))
        ListBoxItemAdd("")
        LzmTW.WMI.SimpleQuery.ServerName = Me.TextBoxServerName.Text

        LzmTW.WMI.SimpleQuery.UserName = Me.TextBoxUserName.Text
        LzmTW.WMI.SimpleQuery.Password = Me.TextBoxPassword.Text
        LzmTW.WMI.SimpleQuery.EnumerateDeep = Me.CheckBoxEnumerateDeep.Checked

        Try
            LzmTW.WMI.SimpleQuery.Excute(Me.ComboBoxSelect.Text)
        Catch ex As Exception
            ListBoxItemAdd(String.Format("Error! Msg:{0}", ex.Message))
        End Try

        ListBoxItemAdd("")
        ListBoxItemAdd(String.Format("End AT {0}", Now.ToString))
    End Sub


    Private Sub GetCurentManagementObject(ByVal e As System.Management.ManagementObject)
        ListBoxItemAdd("")
        ListBoxItemAdd(e.ToString)
        mItem.Clear()
    End Sub

    Private Sub GetCurentPropertyData(ByVal e As System.Management.PropertyData)
        mItem.GetData(e)
        ListBoxItemAdd(mItem.ToString)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  
        AddHandler LzmTW.WMI.SimpleQuery.CurrentManagementObject, AddressOf GetCurentManagementObject
        AddHandler LzmTW.WMI.SimpleQuery.CurrentPropertyData, AddressOf GetCurentPropertyData
        Me.ComboBoxSelect.DataSource = LzmTW.WMI.WMIClass.All
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedItem Is Nothing Then Exit Sub
        Clipboard.SetDataObject(ListBox1.SelectedItem, False)

    End Sub

End Class



项目代码下载

Windows系统自带WMI应用的查询使用
墨痕诉清风的博客
08-06 5632
//操作系统 SELECT * FROM Win32_OperatingSystem如图可以看到各种各样对应的项目的值：今天突然发现单击这里，可生成类似函数，相当方便。 备注：看计算机信息时，直接在cmd命令行输入systeminfo，方便调试...
系统WMI查询工具
07-17
Windows系统WMI查询工具。 WMI强大检索功能。。。非常实用的工具
WMI 查询
johnage的专栏
08-27 1961
WMI 查询   可以在 .NET Framework 应用程序中使用标准 WMI 查询。WMI 查询使用 WMI 查询语言 (WQL)，该语言是 SQL 的一个子集。查询字符串存储在 .NET Framework 查询类中（例如 SelectQuery 类、WqlEventQuery 类或 RelatedObjectQuery 类），并由 ManagementObject
WQL语言初步
weixin_30449239的博客
09-26 401
一、WQL简介 WQL就是WMI中的查询语言，WQL的全称是WMI Query Language，简称为WQL，翻译成中文好像可以成为Windows管理规范查询语言。 WQL其实非常简单，它有如下特点： 每个WQL语句必须以 SELECT 开始； SELECT 后跟你需要查询的属性名（我刚才对应SQL将其称之为字段名了），也可以像SQL一样，以*表示返...
WMI技术介绍和应用——查询系统服务
编程语言小筑
02-14 312
本文使用了《WMI技术介绍和应用——使用VC编写一个半同步查询WMI服务的类》中代码做为基础。本节只是列出了WQL语句，具体使用参看前面的例子。（转载请指明出于breaksoftware的csdn博客） 本文主要介绍Win32_Service类。 如何使用WMI枚举系统中的服务？ SELECT * FROM Win32_Service 我们以Application Ex...
WmiQueryableCore:WMI可查询框架
04-02
该项目代表主要WMI可查询库，该库提供基本WMI上下文对象，属性，异常类和接口。 VNetDev.WmiQueryableCore.WqlTranslator 这些项目提供WMI转换功能。 VNetDev.WmiQueryableCore.WqlTranslator.Abstraction 该项目...
wmi:WMI for Go
05-09
WMI 软件包wmi提供了Windows WMI的WQL接口。 注意：它与本地计算机上的WMI接口，因此仅在Windows上运行。
WMI编程必备工具：WMITools功能及使用解析
WMITools是一种WMI编程的辅助工具，它能够帮助用户查找WMI函数、了解如何使用WMI，以及执行WMI查询。该工具通常包含一个用户友好的界面，可以方便用户浏览WMI类和方法，减少记忆和查找WMI API调用的复杂性。WMITools...
WMI查询操作系统.rar
04-05
**WMI查询操作系统** Windows Management Instrumentation（WMI）是微软提供的一种管理和配置Windows系统的重要工具。它通过标准的管理接口提供了对操作系统、硬件设备、应用程序和服务等进行深入监控和管理的能力...
wmi-query:WMI-Query 是一个 JS 类（即将成为 npm 包），使用“Windows Management Instrumentation”（WMI）在 microsoft OS 上启用“基于 Web 的企业管理”
06-03
WMI-Query 类/模块是一个 nodejs 包，使用“Windows Management Instrumentation”和更准确的wmic命令行工具在 microsoft OS 上启用“基于 Web 的企业管理”。 因此它需要在微软操作系统上运行。 代码示例 //...
WMI查看工具
01-04
WMI查看工具，很好用的，我一直在使用的工具。
怎样使用WMI查询
08-27
WMI（Windows Management Instrumentation,Windows 管理规范）是一项核心的 Windows 管理技术；用户可以使用 WMI 管理本地和远程计算机。 WMI查询可通过WMI命令查询系统的信息，本文档演示如何使用WMI查询。
一个很好的查看WMI对象的工具
10-30
查看WMI对象的工具，在编写脚本和程序是可以方便的找到需要的对象及方法
WMI技术介绍和应用——查询桌面信息
编程语言小筑
01-08 281
本文使用了《WMI技术介绍和应用——使用VC编写一个半同步查询WMI服务的类》中代码做为基础。 在Windows操作系统中，存在很多Windows Station。而每一个Windows Station又存在一个或者多个Windows Desktop。我们一般所说的桌面只是这些众多桌面中的一个。以下内容将介绍如何使用WMI查询桌面的相关信息。（转载请指明出于breaksoftwar...
【Windows】使用 WMI 获取系统版本信息
最新发布
溡漪幽博客
09-17 1051
通过 RtlGetNtVersionNumbers 获取系统版本的方法可能不适用于所有情况，而且将要过时（被废弃）。下面介绍一种通过 WMI 查询并根据版本号进行划分的系统版本解析工具，其他方法还有通过注册表和通过文件属性等等。本文发布于：2024.09.17，修改于：2024.09.17。代码是很早之前写的，用的话需要自己优化一下。
使用 WMI 查询安全软件信息
溡漪幽博客
02-07 1416
WMI 是 Windows Management Instrumentation 的缩写，是微软提供的用于管理Windows 系统的一种技术。它提供了一种标准的接口，允许开发者通过编程方式获取和操作 Windows 操作系统的各种信息，包括硬件、软件、网络配置等。WMI 是基于CIM（Common Information Model）标准的实现，它使用了面向对象的方式来组织和表示系统的信息。通过使用 WMI API，我们可以方便地查询和管理 Windows 系统的各种信息。
C/C++ 运用WMI接口查询系统信息
优快云
11-18 5918
Windows Management Instrumentation（WMI）是一种用于管理和监视`Windows`操作系统的框架。它为开发人员、系统管理员和自动化工具提供了一种标准的接口，通过这个接口，可以获取有关计算机系统硬件、操作系统和应用程序的信息，以及对系统进行管理和控制的能力。WQL 的语法类似于 SQL（Structured Query Language），使用WQL可以执行各种查询来检索关于计算机系统、硬件、软件和其他管理信息的数据。这些查询可以用于编写脚本、管理任务、监视性能等。为了方便查
使用WIN系统自带wmi测试工具查询杀毒软件信息
汽配快车道：助力汽配外贸业务的高效管理平台。
03-03 5039
1.在“运行”中，输入“wbemtest.exe”  2.单击“连接”，在输入框中输入ROOT\\SecurityCenter2 3.点击“枚举类别”，选择“递归” 4.点击“查询”，在输入框中输入要测试的WQL语句:SELECT * FROM AntiVirusProduct
Windows安全基础——Windows WMI详解
Liu_Bruce的博客
12-11 5262
WMI（Windows Management Instrumentation, Windows管理规范）是Windows 2000/XP管理系统的核心，属于管理数据和操作的基础模块。设计WMI的初衷是达到一种通用性，通过WMI操作系统、应用程序等来管理本地或者远程资源。它支持分布式组件对象模型（DCOM，Distribution Components Object Model）和Windows远程管理（WinRM），用户可通过WMI服务访问、配置、管理和监视Windows所有资源的功能。对于其他的Win32
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值