Als je een Windows netwerk hebt en maakt gebruik van een Acive Directory is het volgende inlog script misschien wat voor je. Het checkt nl. binnen de AD of je lid bent van bepaalde security groups en zal aan de hand daarvan wel of niet een netwerk printer toevoegen op jou PC. Copieer de volledige tekst naar een nieuw VBS script en pas deze aan naar jou omgevingsvariabelen. Als je het VBS script vervolgens automatisch laat uitvoeren bij het inloggen van de gebruikers krijgen ze automatisch de printers die ze nodig hebben. Let wel op dat je eerst binnen je AD de security groups aanmaakt en de gebruikers wel of niet lid maakt van deze groepen.

‘Written by Enrico van Egmond

Option Explicit
On Error Resume Next

Dim objShell : Set objShell = WScript.CreateObject(“WScript.Shell”)
Dim objNetwork : Set objNetwork = WScript.CreateObject(“WScript.Network”)
Dim objGroupList
Dim enumPrinters : Set enumPrinters = objNetwork.EnumPrinterConnections
Dim strWorkDir : strWorkDir = ObjShell.ExpandEnvironmentStrings(“%temp%”)
Dim strUser : strUser = objNetwork.UserName
Dim strDomain : strDomain = objNetwork.UserDomain
Dim strGroup
Dim objUser : Set objUser = GetObject(“WinNT://” & strDomain & “/” & strUser & “,user”)
Dim intCounter
Dim localPrinter : Set localPrinter = False
Dim strPrintServer

‘Set the name of the printserver
strPrintServer = “\\yourprintserver”

‘Set script working directory to user %temp%

objShell.CurrentDirectory = strWorkDir

‘Remove all current network printers

‘For intCounter = 1 to enumPrinters.Count -1 step 2
‘objNetwork.RemovePrinterConnection enumPrinters.Item(intCounter), true
‘Next

‘Map standard printers for all users if you want these printers to be available for all users
‘Change the name printer01, 02 etc. to your printer sharename

‘objNetwork.AddWindowsPrinterConnection strPrintServer & “\printer01”
‘objNetwork.AddWindowsPrinterConnection strPrintServer & “\printer02”
‘objNetwork.AddWindowsPrinterConnection strPrintServer & “\printer03”

‘Set standard default printer

‘objNetwork.SetDefaultPrinter strPrintServer & “\printer01″

‘Check if a local printer exists on LPT or USB, if so set this printer to default

For intCounter = 0 to enumPrinters.Count -1 step 2
if Left(enumPrinters(intCounter),3)=”LPT” OR Left(enumPrinters(intCounter),3)=”USB” OR Left(enumPrinters(intCounter),3)=”DOT” Then
if Left(enumPrinters(intCounter+1),7)=”Acrobat” Then
Else
objNetwork.SetDefaultPrinter enumPrinters(intCounter+1)
localPrinter = True
end if
end if
Next

‘Map additional printers and change default printer if no local printer based on group membership.
‘This will check the group membership in the Active Directory.
‘If a user is member of that group it will add the printer.
‘If the user is member of the printer-default group it will set that printer as default printer.
‘Change the AD group name to your group names (The printersharename is the most logical).

strGroup = “printer01”
if IsMember(strGroup) Then
objNetwork.AddWindowsPrinterConnection strPrintServer & “\printer01”
if localPrinter = false Then
strGroup = “printer01-default”
if IsMember(strGroup) Then
objNetwork.SetDefaultPrinter strPrintServer & “\printer01”
end if
end if
end if

strGroup = “printer02”
if IsMember(strGroup) Then
objNetwork.AddWindowsPrinterConnection strPrintServer & “\printer02”
if localPrinter = false Then
strGroup = “printer02-default”
if IsMember(strGroup) Then
objNetwork.SetDefaultPrinter strPrintServer & “\printer02”
end if
end if
end if

strGroup = “printer03”
if IsMember(strGroup) Then
objNetwork.AddWindowsPrinterConnection strPrintServer & “\printer03”
if localPrinter = false Then
strGroup = “printer03-default”
if IsMember(strGroup) Then
objNetwork.SetDefaultPrinter strPrintServer & “\printer03”
end if
end if
end if

‘For use with Windows 2003 built in fax server (Client must have XP fax client installed)
‘strGroup = “Fax Group”
‘if IsMember(strGroup) Then
‘objNetwork.AddWindowsPrinterConnection “\\FAXSERVER\Fax Printer$”
‘end if

‘Cleanup

Set objGroupList = Nothing
Set objUser = Nothing

‘Function to test group membership

Function IsMember(strGroup)

If IsEmpty(objGroupList) Then
Call LoadGroups
End If

IsMember = objGroupList.Exists(strGroup)

End Function

‘Subroutine to load user’s groups into dictionary object

Sub LoadGroups

Dim objGroup

Set objGroupList = CreateObject(“Scripting.Dictionary”)
objGroupList.CompareMode = vbTextCompare
For Each objGroup In objUser.Groups
objGroupList(objGroup.name) = True
Next

Set objGroup = Nothing

End Sub