This is what I used in a VB6 app.
Private Sub Timer1_Timer()
Set nicset GetObject("winmgmts:!root/wmi").InstancesOf("MSNdis_80211_ReceivedSignalStrength")
On Error GoTo no80211Error
For Each nic In nicset
SignalStrengthValue = Right(nic.Ndis80211ReceivedSignalStrength,
Len(nic.Ndis80211ReceivedSignalStrength) - 1)
If SignalStrengthValue <> "" Then
SendText ("S=NetSignalStrength~" & SignalStrengthValue)
nicset = Nothing
SendToConsole "No 802.11 network adapters found"
Timer1.Enabled = False
Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here.
All logos and trade names are the property of their respective owners.