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