VBS To get the SSID of wireless network
By nater

on error resume next
Private Sub GetWMI(WMIArray, WMIQuery)
On error resume Next

Set WMIClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\.\root\wmi")

If not(WMIClass is nothing) Then Set WMIArray = WMIClass.ExecQuery(WMIQuery)
End Sub


Function SSID()
On error resume Next

Call GetWMI(objMSNdis_80211_ServiceSetIdentifierSet, "Select * from MSNdis_80211_ServiceSetIdentifier Where active=true")

For Each objMSNdis_80211_ServiceSetIdentifier in objMSNdis_80211_ServiceSetIdentifierSet
ID = ""

For i = 0 to objMSNdis_80211_ServiceSetIdentifier.Ndis80211SsId(0)
ID = ID & chr(objMSNdis_80211_ServiceSetIdentifier.Ndis80211SsId(i + 4))
Next

SSID = ID
Next
End Function

wscript.echo SSID()

Rating:


0/5 based on 0 votes. The median rating is 0.

Submitted: 11/19/10 (Edited 11/19/10)

Description: This VBS will return the SSID that your wireless card is connected to.

Tags:

Views: 93 views. Averaging 0 views per day.
In the most recent 30 day period, there've been 0 views.

Similar Articles:
'Al-Quida' Wi-Fi SSID Causes LAX Plane Delay -
'Al-Quida' Wi-Fi SSID Causes LAX Plane Delay -
60% Of Wireless Network Use To Be Video - While 10
Cox Looking to Sell Wireless Network - Also in Tal
60% Of Wireless Network Use To Be Video - While 10

Previous Article | Next Article