Public Class Network
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)
Dim queryCollection As ManagementObjectCollection = mos.Get
Public Function NewWorkCaption() As System.Collections.ObjectModel.Collection(Of String)
NewWorkCaption = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
NewWorkCaption.Add(getnow("caption"))
Next
End Function
Public Function Description() As System.Collections.ObjectModel.Collection(Of String)
Description = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Description.Add(getnow("Description"))
Next
End Function
Public Function DHCPEnabled() As System.Collections.ObjectModel.Collection(Of String)
DHCPEnabled = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DHCPEnabled.Add(getnow("DHCPEnabled"))
Next
End Function
Public Function ServiceName() As System.Collections.ObjectModel.Collection(Of String)
ServiceName = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
ServiceName.Add(getnow("ServiceName"))
Next
End Function
Public Function SettingID() As System.Collections.ObjectModel.Collection(Of String)
SettingID = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
SettingID.Add(getnow("SettingID"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)
Dim queryCollection As ManagementObjectCollection = mos.Get
Public Function NewWorkCaption() As System.Collections.ObjectModel.Collection(Of String)
NewWorkCaption = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
NewWorkCaption.Add(getnow("caption"))
Next
End Function
Public Function Description() As System.Collections.ObjectModel.Collection(Of String)
Description = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Description.Add(getnow("Description"))
Next
End Function
Public Function DHCPEnabled() As System.Collections.ObjectModel.Collection(Of String)
DHCPEnabled = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DHCPEnabled.Add(getnow("DHCPEnabled"))
Next
End Function
Public Function ServiceName() As System.Collections.ObjectModel.Collection(Of String)
ServiceName = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
ServiceName.Add(getnow("ServiceName"))
Next
End Function
Public Function SettingID() As System.Collections.ObjectModel.Collection(Of String)
SettingID = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
SettingID.Add(getnow("SettingID"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق