' edit strComputer, save to a dir, open up cmd shell, and type: cscript GETBSSID.vbs

filename = "GETBSSID.vbs"
version = "Version 1.0"
description = "Get BSSID of local XP machine's Wi-Fi card via WMI."
' cmd: GETBSSID.vbs 1 (where 1 here is the wifi_cardnr )


strComputer = "."
set objSWbemServices = GetObject("winmgmts:\\"& strComputer & "\root\wmi")

' wscript.echo description & vbcrlf & version & vbcrlf

' find adapters by querying for active signal
set colInstances = objSwbemServices.ExecQuery _
  ("SELECT * FROM MSNdis_80211_ReceivedSignalStrength WHERE Active = True")
if wscript.Arguments.Count = 0 Then ' spit out usage and cards if no args
    wscript.echo "Skriv: cscript " & filename & " [kortnr]"
   card_no=1
   for each objInstance in colInstances ' more than one instance per card may show up, btw
      wscript.echo card_no & " = " & objInstance.InstanceName
      card_no=card_no +1
   next
    wscript.quit
end If

' numberify the arg and set our adapter, matching command arg with an instancename
card_no=abs(wscript.Arguments(0))
x=1
for each objInstance in colInstances
   if x = card_no then
      wifiAdapter = objInstance.InstanceName
      x = x + 1
   end if
next
' wscript.echo "Using " & wifiAdapter & vbcrlf


last_signal = 0 ' we need to initialize this, but I'm not sure if -90 would be a better val to start with



' get bssid
bssid = ""
set colInstances = objSwbemServices.ExecQuery ("SELECT * FROM MSNdis_80211_BaseServiceSetIdentifier WHERE Active = True AND InstanceName ='" & wifiAdapter & "'")
for each objInstance in colInstances
   macbyte = 0
   ' convert decimals to hex.  pad zeros & slip in colons where needed
   for each decval in objInstance.Ndis80211MacAddress
      if decval<17 then
         bssid = bssid & "0"
      end if
      bssid = bssid & Hex(decval)
      if macbyte < 5 then
         bssid = bssid & ":"
         macbyte = macbyte + 1
      end if
   next
next

' get ssid
' ssid = ""
' set colInstances = objSwbemServices.ExecQuery _
'  ("SELECT * FROM MSNdis_80211_ServiceSetIdentifier WHERE Active = True AND InstanceName ='" & wifiAdapter & "'")
' for each objInstance in colInstances
   ' convert decimals to chars and avoid non-alphanumerics
'   for each decval in objInstance.Ndis80211SsId
'      if (decval > 31 AND decval < 127) then
'         ssid = ssid & Chr(decval)
'      end if
'   next
' next

' this could be tricky, as I've read signal strength is reported in different ways per card.  YMMV.
set colInstances = objSwbemServices.ExecQuery _
  ("SELECT * FROM MSNdis_80211_ReceivedSignalStrength WHERE Active = True AND InstanceName ='" & wifiAdapter & "'")
for each objInstance in colInstances
         sigraw = objInstance.Ndis80211ReceivedSignalStrength ' raw number for later comparison
         signal = sigraw & "dB" ' make it a string that says dB
next

last_signal = sigraw
' Wscript.echo "BSSID: " & bssid & "  SSID: " & ssid & "  RSSI: " & signal
Wscript.echo "BSSID: " & bssid

$output=wshpipe("cscript path\filename.vbs")
for each $line in $output
  ? $line ; this is good for testing, but remove this to stop displaying all the results
  if instr($line,"something that will always be in the output you can search for")
    $newvar=$line
  endif
next

? "NewVAR=" = $newvar

$bssid = GetBSSID(1,@Wksta)

$null = MessageBox($bssid,"BSSID",0)

FUNCTION GetBSSID($device, optional $machine)
   $strComputer = IIF (VarType($machine)<2, @Wksta, $Machine)

   $objSWbemServices = GetObject("winmgmts:\\"+ $strComputer + "\root\wmi")
   $colInstances = $objSwbemServices.ExecQuery("SELECT * FROM MSNdis_80211_ReceivedSignalStrength WHERE Active=True")

   $card_no=$device
   $x=1
   for each $objInstance in $colInstances
      if $x = $card_no
         $wifiAdapter = $objInstance.InstanceName
         $x = $x + 1
      endif
   next
   $last_signal = 0
   $bssid = ""
   $colInstances = $objSwbemServices.ExecQuery('SELECT * FROM MSNdis_80211_BaseServiceSetIdentifier WHERE Active = True AND InstanceName ="'+$wifiAdapter+'"')
   for each $objInstance in $colInstances
      $macbyte = 0
      for each $decval in $objInstance.Ndis80211MacAddress
         if $decval<17
            $bssid = $bssid + "0"
         endif
         $bssid = $bssid + DecToHex($decval)
         if $macbyte < 5
            $bssid = $bssid + ":"
            $macbyte = $macbyte + 1
         endif
      next
   next
   $colInstances = $objSwbemServices.ExecQuery ("SELECT * FROM MSNdis_80211_ReceivedSignalStrength WHERE Active = True AND InstanceName ='" + $wifiAdapter + "'")
   for each $objInstance in $colInstances
      $sigraw = $objInstance.Ndis80211ReceivedSignalStrength
      $signal = $sigraw + "dB"
   next
   $last_signal = $sigraw
   $GetBSSID = $bssid
ENDFUNCTION

FUNCTION GetBSSID(optional $device, optional $machine)
   $strComputer = IIF (VarType($machine)<2, @Wksta, $Machine)
   $objSWbemServices = GetObject("winmgmts:\\"+ $strComputer + "\root\wmi")
   $colInstances = $objSwbemServices.ExecQuery("SELECT * FROM MSNdis_80211_ReceivedSignalStrength WHERE Active=True")
   if $device<1
      $card_no=1
      $cards = "Please specify one of these devices to obtain it's BSSID :"
      for each $objInstance in $colInstances
         $cards = $cards+@CRLF+"Card "+$card_no+" = "+$objInstance.InstanceName
         $card_no=$card_no +1
      next
      $GetBSSID = $cards
      Return
   endIf
   $card_no=$device
   $x=1
   for each $objInstance in $colInstances
      if $x = $card_no
         $wifiAdapter = $objInstance.InstanceName
         $x = $x + 1
      endif
   next
   $last_signal = 0
   $bssid = ""
   $colInstances = $objSwbemServices.ExecQuery('SELECT * FROM MSNdis_80211_BaseServiceSetIdentifier WHERE Active = True AND InstanceName ="'+$wifiAdapter+'"')
   for each $objInstance in $colInstances
      $macbyte = 0
      for each $decval in $objInstance.Ndis80211MacAddress
         if $decval<17
            $bssid = $bssid + "0"
         endif
         $bssid = $bssid + DecToHex($decval)
         if $macbyte < 5
            $bssid = $bssid + ":"
            $macbyte = $macbyte + 1
         endif
      next
   next
   $colInstances = $objSwbemServices.ExecQuery ("SELECT * FROM MSNdis_80211_ReceivedSignalStrength WHERE Active = True AND InstanceName ='" + $wifiAdapter + "'")
   for each $objInstance in $colInstances
      $sigraw = $objInstance.Ndis80211ReceivedSignalStrength
      $signal = $sigraw + "dB"
   next
   $last_signal = $sigraw
   $GetBSSID = $bssid
ENDFUNCTION