Ich hatte die idee das ich den default printer bei meinem usern per ads verteile. Ich habe nun vollgendes VB Scribt gemacht. Leider muss ich da die LDAP position des users im ADS angeben, kann ich die auch irgendwie anderst angeben weiss das wer ?
Gruss Koni
On Error Resume Next
dim net
dim department
'ldap zusammen basteln '
Set objUser = GetObject _
("LDAP://cn=spock,ou=Informatik,dc=firma,dc=ch")
'user auslesen '
department = objUser.department
'printer verbinden '
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\Printserver\" & department
Kommentar