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

Mitglied: alkobottle

alkobottle (Level 1) - Jetzt verbinden

06.02.2008, aktualisiert 07.02.2008, 8783 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
Drucker und Scanner
Duplex-Druck
Frage von beamenwaerschoenDrucker und Scanner5 Kommentare

Hallo liebe Admins, wir haben einen Rechner in der Firma nach einem Virus neuinstalliert. Jedoch tritt nach folgendes Problem ...

Windows 10
Druck option
Frage von jensgebkenWindows 108 Kommentare

Hallo Gemeinschaft, folgendes Problem. Ich muss aus einer Anwendung drei Drucke erstellen 2x schwarz weiss 1 x Farbe 1 ...

Server

Untergeordnete Domäne oder Organisationseinheit (OU) Wann Domäne statt OU

Frage von 133808Server4 Kommentare

Die Gründe eine in der Praxis eine Organisationseinheit statt einer Domäne einzurichten liegen darin dass: - kein neuer Server ...

Drucker und Scanner

Chipkartendrucker: Druck entfernen?

gelöst Frage von BadgerDrucker und Scanner13 Kommentare

Hallo, ich habe eine Frage zu Chipkartendruckern: kann man einen Druck auch wieder entfernen, wenn man Chipkarten mit einem ...

Neue Wissensbeiträge
Windows Server
Anzahl von Gruppenrichtlinien
Erfahrungsbericht von Bullii vor 4 StundenWindows Server

Hallo, mich interessiert brennend, wieviele Gruppenrichtlinienobjekte, ihr so bei euch habt? Ich versuchte eigentlich immer die Gruppenrichtlinienobjekte soweit wie ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 8 StundeniOS

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 20 StundeniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 2 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
gelöst Frage von gabeBUExchange Server17 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Server
Server in zwei verschiedene Netzwerke einbinden
gelöst Frage von BennyFServer13 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...

Windows Netzwerk
Kerio. Kann keine Mails empfangen aber senden. Wer ist schuld. Kerio oder Windows domäne?
Frage von frosch2Windows Netzwerk11 Kommentare

Hallo, es existiert ein Problem bei uns mit dem mailen. Alle bestehenden Nutzer können mailen. Raus wie rein. Neuen ...

Netzwerkmanagement
Ticketsystem für eine Kommune gesucht
gelöst Frage von akovisNetzwerkmanagement11 Kommentare

Ich suche aktuell ein Ticketsystem für eine Kleinstadt von 13000 Einwaohnern. Das System soll alle Anfragen aus verschiedenen Kanälen ...