KIX script voor het aankoppellen van netwerk printers

Het onderstaande script maakt het mogelijk om printers aan te koppelen op pc-naam.

Het enige wat je nu nog hoeft te doen is een aantal groepen maken in de Active Directory, en daar de pc-naam lid van maken.

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 + “/” + “%CLIENTNAME%” + “$$” ) OR $oGrp.IsMember(“WinNT://” + $domain + “/” + @wksta + “$$” ) $ComputerInGroup=1 Else $ComputerInGroup=0 EndIf Endfunction

DelPrinterConnection (“”)

If ComputerInGroup(‘Printergroep’)

ADDPRINTERCONNECTION (\\Printserver\Printer)

SetDefaultPrinter (“\\Printserver\Printer“) Endif

Om dit alles uit te kunnen voeren heb je het programma kixtart nodig. Deze kun je hier downloaden.