Public Class Com
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_SerialPort")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function PortUse() As System.Collections.ObjectModel.Collection(Of String)
PortUse = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
PortUse.Add(getnow("name"))
Next
End Function
Public Function OnPort() As System.Collections.ObjectModel.Collection(Of String)
OnPort = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
OnPort.Add(getnow("deviceid"))
Next
End Function
Public Function MaxBaudRate() As System.Collections.ObjectModel.Collection(Of String)
MaxBaudRate = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
MaxBaudRate.Add(getnow("MaxBaudRate"))
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 ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_SerialPort")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function PortUse() As System.Collections.ObjectModel.Collection(Of String)
PortUse = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
PortUse.Add(getnow("name"))
Next
End Function
Public Function OnPort() As System.Collections.ObjectModel.Collection(Of String)
OnPort = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
OnPort.Add(getnow("deviceid"))
Next
End Function
Public Function MaxBaudRate() As System.Collections.ObjectModel.Collection(Of String)
MaxBaudRate = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
MaxBaudRate.Add(getnow("MaxBaudRate"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق