Drucker nach OU oder Gruppe zuweisen

Drucker nach OU oder Gruppe zuweisen, per GP oder VBS

Hallo Admins,

Ich bin auf der Sucher nach einer Lösung für folgendes Problem:

Da wir in unserem Haus sehr viele Drucker haben und es bisher so ist dass alle Benutzer alle Drucker zugewiesen bekommen (per VBS) dauert die Anmeldung natürlich entsprechend lange.
Nun möchte ich das Anmeldescript so modifizieren, dass die Benutzer die Drucker nach Abteilung zugewiesen bekommen. Also zB if [user ist in gruppe edv] then connect printer1, if [user ist in gruppe buchhaltung] then connect printer2 usw.
Natürlich stehen in manchen Abteilungen auch mehr als ein Drucker.
Was ich bis jetzt habe ist folgendes:

Const IT="cn=gruppe edv"

Set funcUser = WScript.CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
If InStr(strGroups,IT) then
WshNetwork.AddWindowsPrinterConnection PrinterPath
PrinterPath = "\\PRINTERSERVER\PRINTER1"
WshNetwork.AddWindowsPrinterConnection PrinterPath
PrinterPath = "\\PRINTERSERVER\PRINTER2"
End if

Leider scheint das nicht so wirklich zu funktionieren und leider hab ich auch noch nicht wirklich viel Ahnung von VBS. Das obige Script ist auch aus dem bisherigen Script zusammenkopiert.
Vielleicht kann mir jemand kurz erklären was ich dazu brauche bzw was ich falsch mache.

Grüße

strGroups = LCase(Join(CurrentUser.MemberOf))

aGroups = CurrentUser.MemberOf
If IsArray(aGroups) Then
	strGroups = LCase(Join(aGroups))
Else
	strGroups = LCase(aGroups)
End If

PrinterPath = "\\PRINTERSERVER\PRINTER1"  
WshNetwork.AddWindowsPrinterConnection PrinterPath

PrinterPath = "\\PRINTERSERVER\PRINTER2"  
WshNetwork.AddWindowsPrinterConnection PrinterPath

Dim funcUser
Dim Username
Dim myConnectionString
Const IT = "cn=Gruppe EDV"  
Set funcUser = WScript.CreateObject("WScript.Network")  
Set ADSysInfo = CreateObject("ADSystemInfo")  
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)  
aGroups = CurrentUser.MemberOf
If IsArray(aGroups) Then
	strGroups = LCase(Join(aGroups))
Else
	strGroups = LCase(aGroups)
End If

Set oshell = CreateObject("Shell.Application")   

If InStr(UCase(strGroups), UCase(IT)) <> 0 Then 

PrinterPath = "\\PRINTSERVER\PRITNER1"  
WshNetwork.AddWindowsPrinterConnection PrinterPath

else

msgbox "not member of IT"  

End if