Break On

? GetCurrentSSID()
get $

Function GetCurrentSSID()
   $objWMIService = GetObject("winmgmts:\\"+@WkSta+"\root\WMI")
   $colItems = $objWMIService.ExecQuery("SELECT * FROM MSNdis_80211_ServiceSetIdentifier Where active=true")
   For Each $objItem In $colItems
      if len($GetCurrentSSID)=0
         $strNdis80211SsId = Join($objItem.Ndis80211SsId,"")
         $y=5
         for $x=0 to len($strNdis80211SsId)
            $GetCurrentSSID=""+$GetCurrentSSID+Chr(substr($strNdis80211SsId,$y,3))
            $y=$y+3
         next
      endif
   Next
EndFunction

? GetCurrentSSID()
get $

Function GetCurrentSSID()
   $rootkey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class"
   for each $key in fEnumKey(@WkSta,$rootkey)
      if readvalue($rootkey+"\"+$key,"")="network adapters"
         for each $subkey in fEnumKey(@WkSta,$rootkey+"\"+$key)
            if len(readvalue($rootkey+"\"+$key+"\"+$subkey,"SSID"))>0
               $GetCurrentSSID=readvalue($rootkey+"\"+$key+"\"+$subkey,"SSID")
            endif
         next
      endif
   next
EndFunction

Function fEnumKey($Server, $Key)
   Dim $Index, $Error, $x
   $Index = 0
   Dim $KeyName[$Index]
   If $Server <> ""
      $Key = "\\" + $Server + "\" + $Key
   Endif
   If KeyExist($Key)
      Do
         $x = ENUMKEY($Key, $Index)
         $Error = @Error
         If NOT $Error and $Index > Ubound($KeyName)
            ReDim PRESERVE $KeyName[$Index]
         Endif
         If NOT $Error
            $KeyName[$Index] = $x
            $Index = $Index + 1
         Endif
      Until $Error
   Else
      $KeyName[0] = ""
      Exit 2
   Endif
   $fEnumKey = $KeyName
   Exit 0
Endfunction

use s: "\\ourserver\share"
shell "%comspec% /c echo " + @date + " mapping s: (error:" + @error + ") >> %temp%\logon.log"
use b: "\\ourserver\share_b"
shell "%comspec% /c echo " + @date + " mapping b: (error:" + @error + ") >> %temp%\logon.log"