本文整理匯總了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