[VB.NET] Ottenere la lista delle reti WiFi

[x69asterix]

ragazzi sapete dirmi se è possibile da codice ottenere la lista delle reti wifi?
grazie
in rete ho trovato questo ma non capisco cosa manca:

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