Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Drucker nach OU oder Gruppe zuweisen

Frage Microsoft Windows Server

Mitglied: alkobottle

alkobottle (Level 1) - Jetzt verbinden

06.02.2008, aktualisiert 07.02.2008, 8710 Aufrufe, 3 Kommentare

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
Mitglied: bastla
06.02.2008 um 16:57 Uhr
Hallo alkobottle!

Soferne Benutzer nur einer Gruppe angehören, wird "Join()" scheitern - versuche es als Ersatz für die Zeile
01.
strGroups = LCase(Join(CurrentUser.MemberOf))
eher so:
01.
aGroups = CurrentUser.MemberOf 
02.
If IsArray(aGroups) Then 
03.
	strGroups = LCase(Join(aGroups)) 
04.
Else 
05.
	strGroups = LCase(aGroups) 
06.
End If
Weiters stimmt die Reihenfolge der Zeilen für die Druckerzuweisung nicht: Damit "PrinterPath" verwendet werden kann, muss die Zuweisung vor "AddWindowsPrinterConnection" erfolgen:
01.
PrinterPath = "\\PRINTERSERVER\PRINTER1" 
02.
WshNetwork.AddWindowsPrinterConnection PrinterPath 
03.
 
04.
PrinterPath = "\\PRINTERSERVER\PRINTER2" 
05.
WshNetwork.AddWindowsPrinterConnection PrinterPath
Ansonsten wäre es auch hilfreich, genauere Fehlerbeschreibungen zu erhalten - falls Du "On Error Resume Next" verwendest, solltest Du diese Zeile während der Testphase auskommentieren ...

Grüße
bastla
Bitte warten ..
Mitglied: Egbert
06.02.2008 um 18:10 Uhr
Hallo,

wenn Du eoin wenig wartest kannst Du das mit Grproup Policy Preferneces von MS machen, müsste die tage zum Download bereit stehen. ISt der frühere PolicyMaker von Desktopstandard und damit war das wunderbar über Gruppenrichtlinien konfigurierbar.

http://blogs.technet.com/nmercer/archive/2007/11/19/group-policy-prefer ...

Gruß
Egbert
Bitte warten ..
Mitglied: alkobottle
07.02.2008 um 09:19 Uhr
Danke für eure Hilfe! Konnte die Sache jetzt lösen!

Hier die Lösung:
01.
Dim funcUser 
02.
Dim Username 
03.
Dim myConnectionString 
04.
Const IT = "cn=Gruppe EDV" 
05.
Set funcUser = WScript.CreateObject("WScript.Network") 
06.
Set ADSysInfo = CreateObject("ADSystemInfo") 
07.
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) 
08.
aGroups = CurrentUser.MemberOf 
09.
If IsArray(aGroups) Then 
10.
	strGroups = LCase(Join(aGroups)) 
11.
Else 
12.
	strGroups = LCase(aGroups) 
13.
End If 
14.
 
15.
Set oshell = CreateObject("Shell.Application")  
16.
 
17.
If InStr(UCase(strGroups), UCase(IT)) <> 0 Then  
18.
 
19.
PrinterPath = "\\PRINTSERVER\PRITNER1" 
20.
WshNetwork.AddWindowsPrinterConnection PrinterPath 
21.
 
22.
else 
23.
 
24.
msgbox "not member of IT" 
25.
 
26.
End if
Grüße
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk
Gruppen Attribut über NPS zuweisen
gelöst Frage von flugfaustWindows Netzwerk1 Kommentar

Hallo, wir haben sehr viele Switche von Cisco bei uns am Laufen an denen wir uns über RADIUS Logins ...

Windows Netzwerk
Gruppenrichtlinien zuweisen: Auch an Gruppen möglich?
gelöst Frage von Thomas-RWindows Netzwerk9 Kommentare

Hallo zusammen, ich habe mal wieder eine Frage. Seit einiger Zeit beschäftige ich mich mit Gruppenrichtlinien und deren Anwendungsmöglichkeiten. ...

Windows Server
RemoteDesktop Standard-Drucker zuweisen
Frage von AubananWindows Server2 Kommentare

Hallo zusammen, wir betreiben in unserem Verein einen Windows 2008 R2 Server als RemoteDesktop Server. Die User verbinden sich ...

Windows 7
AD-Benutzer einer Lokalen Gruppe hinzufügen(16Bit OU)
Frage von WIZARDBOYWindows 73 Kommentare

Hallo Liebe IT-Gemeinde ich möchte einen Benutzer aus dem AD zu einer Lokalen Gruppe hinzufügen. Ich habe es bereits ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 3 StundenVerschlüsselung & Zertifikate

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 14 StundenWindows 102 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 16 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner3 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen13 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...