$mac = GetBSSID(1,@WkSta)
$location = ReadProfileString ($LogonServer+"\NETLOGON\printer.ini", $mac, "Location")
$groups = ReadProfileString ($LogonServer+"\NETLOGON\printer.ini", $mac, "Groups")
$groups = Split($groups,",")
$Tag = 1
For Each $group in $groups
If InGroup($group) and $Tag
$Tag = 0
$shares = ReadProfileString ($LogonServer+"\NETLOGON\printer.ini", $mac+":"+$group, "Shares")
$shares = Split($shares,",")
$sharenum = 0
For Each $shareobj in $shares
$name = Split($shareobj,":")[0]
$share = Split($shareobj,":")[1]
If AddPrinterConnection("\\server\"+$share) = 0
If $sharenum = UBound($shares)
$null = SetDefaultPrinter("\\server\"+$name)
EndIf
Else
$null = MessageBox("2 Der er et problem med at etablerer forbindelse til : "+$share,"Printer fejl",0)
EndIf
$sharenum = $sharenum+1
Next
EndIf
Next
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
