本文整理匯總了VB.NET中System.Management.ManagementObject.ManagementObject構造函數的典型用法代碼示例。如果您正苦於以下問題：VB.NET ManagementObject構造函數的具體用法？VB.NET ManagementObject怎麽用？VB.NET ManagementObject使用的例子？那麽, 這裏精選的構造函數代碼示例或許可以為您提供幫助。
在下文中一共展示了ManagementObject構造函數的7個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Sample_ManagementClass
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
Dim o As New ManagementObject
Dim mp As New _
ManagementPath("Win32_LogicalDisk='c:'")
' Now set the path on this object to
' bind it to a 'real' manageable entity
o.Path = mp
'Now it can be used
Console.WriteLine(o("FreeSpace"))
Return 0
End Function
End Class示例2: Sample_ManagementClass
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
Dim p As New ManagementPath( _
"Win32_Service.Name=""Alerter""")
Dim o As New ManagementObject(p)
'Now it can be used
Console.WriteLine(o("Name"))
Return 0
End Function
End Class示例3: Sample_ManagementClass
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
Dim o As New ManagementObject( _
"Win32_Service.Name=""Alerter""")
' or with a full path :
Dim mObj As New ManagementObject( _
"\\\\MyServer\\root\\MyApp:MyClass.Key=""abc""")
Return 0
End Function
End Class示例4: Main
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
Dim p As New ManagementPath("Win32_Service")
' Set options for no context info
' but requests amended qualifiers
' to be contained in the object
Dim opt As New ObjectGetOptions( _
Nothing, TimeSpan.MaxValue, True)
Dim c As New ManagementClass(p, opt)
Console.WriteLine(c.Qualifiers("Description").Value)
Return 0
End Function
End Class示例5: Sample_ManagementClass
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
' Set options for no context info,
' but requests amended qualifiers
' to be contained in the object
Dim opt As New ObjectGetOptions( _
Nothing, System.TimeSpan.MaxValue, True)
Dim o As New ManagementObject( _
"Win32_Service", opt)
Console.WriteLine(o.GetQualifierValue("Description"))
Return 0
End Function
End Class示例6: Sample_ManagementClass
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
Dim s As New ManagementScope( _
"\\MyMachine\root\cimv2")
Dim p As New ManagementPath( _
"Win32_Service")
' Set options for no context info,
' but requests amended qualifiers
' to be contained in the object
Dim opt As ObjectGetOptions
opt = New ObjectGetOptions( _
Nothing, TimeSpan.MaxValue, True)
Dim o As ManagementObject
o = New ManagementObject(s, p, opt)
Console.WriteLine(o.Qualifiers("Description").Value)
Return 0
End Function
End Class示例7: Sample_ManagementClass
' 導入命名空間
Imports System.Management
Class Sample_ManagementClass
Public Overloads Shared Function Main( _
ByVal args() As String) As Integer
Dim opt As New ObjectGetOptions( _
Nothing, System.TimeSpan.MaxValue, True)
Dim o As New ManagementObject( _
"root\MyNamespace", "MyClass", opt)
Return 0
End Function
End Class