Get port name in vb.net

[seifhatem]

hey all,
please i developed a program that connects to usb modem and perform some operations.
i used the sticked topic but it only shows "COM1" how can i make it show "COM1 Vodafone Mobile Broadband" or "Vodafone Mobile Broadband"
please help me
thanks in advance

[fr3nsis]

System.Management

http://forum.gsmhosting.com/vbb/f83/...1/#post5709924

[seifhatem]

That's awesome
thank you very much

[seifhatem]

i am using this code

Public Function ModemsConnected() As String
Dim modems As String = ""
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_POTSModem")

For Each queryObj As ManagementObject In searcher.Get()
If queryObj("Status") = "OK" Then
modems = modems & (queryObj("AttachedTo") & " - " & queryObj("Description") & "***")
End If
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
Return ""
End Try
Return modems
End Function

but i get 3 errors management exception and object and objectsearcher us not defines
please help
thanks in advance

[fr3nsis]

need to import System.Management dll and declare it

[seifhatem]

nice i got it to work but it shows all com ports not the usb modem.
so is there a solution that works like dc-unlocker or mobile partner (auto detect and connect)please??
thanks in advance

[fr3nsis]

yes need to modify...just think 2 minutes

[seifhatem]

Is that right or is there a better way to do it??

 Public Function ModemsConnected() As String
        Dim modems As String = ""
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_POTSModem")

            For Each queryObj As ManagementObject In searcher.Get()
                If queryObj("Status") = "OK" Then
                    modems = queryObj("Description")
                    ComboBox1.Items.Add(modems)
                    ComboBox1.SelectedIndex = ComboBox1.FindString("Vodafone")
                    If ComboBox1.SelectedItem = "" Then
                        ComboBox1.SelectedIndex = ComboBox1.FindString("Huawei")
                    End If



                End If
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            Return ""
        End Try
        Return modems
    End Function

[yogeshpatel4790]

how to import System.Management
tell me sir fast
thanks advance

[yogeshpatel4790]

follow this step

step 1
select project >> add reference

step 2
select .net tab

step 3
find System.Management select and ok

step 4
add your project this line
import System.Management


BR,
YogeshPatel