Get WIFI Adapters signal strength

(Obtener la intensidad de señal de los tarjetas WIFI)


If you want to know if your wifi adapter is in the range of any wifi net(do not do it for making an wifi scanner to warchalk or something else... remember, this code is only for research projects, bla bla bla)

First of all add a reference to System.Management.dll and then an Imports System.Management

Public Function GetSignalStrength() As String
Try
Dim Oq As ObjectQuery = New ObjectQuery("SELECT * FROM MSNdis_80211_ReceivedSignalStrength Where active=true")
Dim Ms As ManagementScope = New ManagementScope("root\wmi")
Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(Ms, Oq)
Dim outp As String = ""
For Each Mo As ManagementObject In query.Get
If CType(Mo("Active"), Boolean) = True Then
outp &= CType(Mo("Ndis80211ReceivedSignalStrength"), String) + Environment.NewLine
End If
Next
If outp = "" Then outp = "There isn't any WIFI adapter active"
Return Trim(outp)
Catch e As Exception
Return e.Message
End Try
End Function


Permalink: Get WIFI Adapters signal strength