SETCONSOLE("HIDE")
;------ -----------------------
Function ComputerInGroup($group,optional $Domain)
Dim $oGrp
if not $domain $domain=@domain endif
$oGrp = GetObject("WinNT://" + $domain + "/" + $group + ",group" )
if @error exit 1 endif
if $oGrp.IsMember("WinNT://" + $domain + "/" + @wksta + "$$" )
$ComputerInGroup=1
else
$ComputerInGroup=0
endif
endfunction
;------ Uppmappningar av skrivare för Anestesi/IVA-----------------------
if ComputerInGroup('1')=1
ADDPRINTERCONNECTION ("\\printserver\printername")
endif
if ComputerInGroup('2')=1
ADDPRINTERCONNECTION ("\\printserver\printername01")
endif
if ComputerInGroup('3')=1
ADDPRINTERCONNECTION ("\\printserver\printername02")
endif
if ComputerInGroup('4')=1
ADDPRINTERCONNECTION ("\\printserver\printername03")
endif
if ComputerInGroup('5')=1
ADDPRINTERCONNECTION ("\\printserver\printername04")
endif
