Hi everyone

I have 3 AP and I want design program to get the SSID & signal strength &
BSSID(MAC Adress) for each AP

i found the some functions to obtain the SSID & signal strength for one AP ,,,


i using timer to update every 2 second

Public Sub SSID()
Try
Dim query As String = "SELECT * FROM MSNDis_80211_BSSIList WHERE Active= 'True'"

Dim searcher As Management.ManagementObjectSearcher = New Management.ManagementObjectSearcher("root/WMI", query)

Dim moc As Management.ManagementObjectCollection = searcher.Get()

Dim moe As Management.ManagementObjectCollection.ManagementObjectEnumerator = moc.GetEnumerator()
moe.MoveNext()

Dim objarr() As Management.ManagementBaseObject = CType(moe.Current.Properties("Ndis80211BSSIList").Value, Management.ManagementBaseObject())
ListBox1.Items.Clear()


For Each obj As Management.ManagementBaseObject In objarr

Dim ssid() As Char = System.Text.Encoding.ASCII.GetChars(CType(obj("Ndis80211Ssid"), Byte()))
ListBox1.Items.Add(New String(ssid))
Next

Catch ex As Exception
Timer1.Enabled = False

MsgBox(ex.Message, MsgBoxStyle.Exclamation)

End Try
End Sub

Public Function RetrieveSignalStrength() As Double
ListBox2.Items.Clear()
Dim query As Management.ManagementObjectSearcher
Dim Qc As Management.ManagementObjectCollection
Dim Oq As Management.ObjectQuery
Dim Ms As Management.ManagementScope
Dim Co As Management.ConnectionOptions
Dim Mo As Management.ManagementObject
Dim signalStrength As Double
Try
Co = New Management.ConnectionOptions
Ms = New Management.ManagementScope("root\wmi")
Oq = New Management.ObjectQuery("SELECT * FROM MSNdis_80211_ReceivedSignalStrength Where active=true")
query = New Management.ManagementObjectSearcher(Ms, Oq)
Qc = query.Get
signalStrength = 0

For Each Mo In query.Get

signalStrength = Convert.ToDouble(Mo("Ndis80211ReceivedSignalStrength"))

Next
Catch exp As Exception
' Indicate no signal
signalStrength = -1
End Try
ListBox2.Items.Add(signalStrength)
Return Convert.ToDouble(signalStrength)
End Function