本文整理汇总了VB.NET中System.Management.ManagementObjectSearcher.ManagementObjectSearcher构造函数的典型用法代码示例。如果您正苦于以下问题：VB.NET ManagementObjectSearcher构造函数的具体用法？VB.NET ManagementObjectSearcher怎么用？VB.NET ManagementObjectSearcher使用的例子？那么恭喜您, 这里精选的构造函数代码示例或许可以为您提供帮助。
在下文中一共展示了ManagementObjectSearcher构造函数的6个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim q As New _
SelectQuery("Win32_Service", "State=""Running""")
Dim s As New ManagementObjectSearcher(q)
For Each service As ManagementObject In s.Get()
'show the instance
Console.WriteLine(service.ToString())
Next
End Function 'Main
End Class示例2: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim s As New _
ManagementObjectSearcher( _
"SELECT * FROM Win32_Service")
For Each service As ManagementObject In s.Get()
'show the instance
Console.WriteLine(service.ToString())
Next
End Function 'Main
End Class示例3: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim myScope As New ManagementScope("root\CIMV2")
Dim q As New SelectQuery("Win32_LogicalDisk")
Dim s As New ManagementObjectSearcher(myScope, q)
For Each disk As ManagementObject In s.Get()
'show the disk instance
Console.WriteLine(disk.ToString())
Next
End Function 'Main
End Class示例4: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim s As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_Service WHERE State='Running'")
For Each service As ManagementObject In s.Get()
'show the instance
Console.WriteLine(service.ToString())
Next
End Function 'Main
End Class示例5: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim scope As New ManagementScope("root\MyApp")
Dim q As New SelectQuery("SELECT * FROM Win32_LogicalDisk")
Dim o As New EnumerationOptions( _
Nothing, System.TimeSpan.MaxValue, 1, _
True, False, True, True, False, _
True, True)
Dim s As New ManagementObjectSearcher(scope, q, o)
For Each disk As ManagementObject In s.Get()
'show the disk instance
Console.WriteLine(disk.ToString())
Next
End Function 'Main
End Class示例6: Sample
' 导入命名空间
Imports System.Management
Public Class Sample
Public Overloads Shared Function _
Main(ByVal args() As String) As Integer
Dim s As New ManagementObjectSearcher( _
"root\MyApp", _
"SELECT * FROM Win32_Service", _
New EnumerationOptions( _
Nothing, System.TimeSpan.MaxValue, 1, _
True, False, True, True, False, _
True, True))
For Each service As ManagementObject In s.Get()
'show the instance
Console.WriteLine(service.ToString())
Next
End Function 'Main
End Class