Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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 anhand LDAP Attribut verbinden

Frage Entwicklung VB for Applications

Mitglied: bigwoodfarmer

bigwoodfarmer (Level 1) - Jetzt verbinden

18.05.2010, aktualisiert 08:16 Uhr, 3991 Aufrufe, 2 Kommentare

Hallo,

dies ist mein erster Beitrag in diesem Forum, ich habe schon etwas gestöbert aber konnte noch keine direkte Antwort zu meiner Frage finden.

Frage: Wie verbinde ich einen Drucker für einen Terminalserver Benutzer anhand des Büro Attributs?

Als erstes habe ich ein Skript geschrieben was mir die Raumnummern der Benutzer einer OU ausliest, und in eine Testdatei schreibt.

' Skript Start 
 
Option Explicit 
dim fso 
dim outfile 
dim ou 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set outfile = fso.OpenTextFile("s:\raumnummer.txt", 2, True) 
Set ou = GetObject("LDAP://ou=UnsereOU,dc=UnsereDomain,dc=de") 
ou.Filter = Array("user") 
For Each obj in ou 
outfile.writeline obj.displayname & " " & obj.physicalDeliveryOfficeName 
Next 
 
' Ende
Soweit so gut, jetzt ist die Frage wie ich anhand dieses Attributs die Drucker der Benutzer verbinde. Der Befehl sollte warscheinlich ähnlich zu diesem aussehen:

AddWindowsPrinterConnection "\\printserver\raum_" & physicalDeliveryOfficeName & "_drucker"
Da alle Drucker auf einem Druckserver immer als "raum_raumnummer_drucker" freigeben werden. Jedoch scheitere ich an der Ausgabe des Attributs für den momentan angemeldeten Benutzer. Kann mir da jemand helfen?

Vielen Dank!
Mitglied: dog
18.05.2010 um 18:33 Uhr
Woran scheiterst du genau?

01.
set objAD = CreateObject("ADSystemInfo") 
02.
Set objUs = GetObject("LDAP://" & objAD.UserName) 
03.
MsgBox(objUs.physicalDeliveryOfficeName)
Klappt problemlos...
Bitte warten ..
Mitglied: bigwoodfarmer
19.05.2010 um 11:57 Uhr
Vielen dank! Das war genau das was mir gefehlt hat. Ich konnte den richtigen LDAP Syntax einfach nicht austüfteln.

Das Skript funktioniert jetzt wie gewollt.

01.
' Skript Start 
02.
 
03.
'Erzwingen das Variablen vor der Verwendung definiert werden 
04.
Option Explicit 
05.
 
06.
'Definition der Variablen und Objekte zum auslesen von LDAP  
07.
dim objNetwork, objAD, objUs, strprint, strconfig1, strconfig2, strconfig3 
08.
Set objAD = CreateObject("ADSystemInfo") 
09.
Set objUs = GetObject("LDAP://" & objAD.UserName) 
10.
Set objNetwork = CreateObject("WScript.Network")  
11.
 
12.
'Variablen die sich später zu den Druckerpfad zusammensetzen 
13.
strprint = "\\printserver\raum_" 
14.
strconfig1 = "_simplex" 
15.
strconfig2 = "_duplex" 
16.
strconfig3 = "_briefpapier" 
17.
 
18.
'Befehl um den Drucker zu addieren der drucker 
19.
 
20.
'Drucker mit simplex konfiguration verbinden 
21.
objNetwork.AddWindowsPrinterConnection strprint & objUs.physicalDeliveryOfficeName & strconfig1 
22.
WScript.Echo "Simplex Drucker wurde verbunden" 
23.
 
24.
'Drucker mit duplex konfiguration verbinden 
25.
objNetwork.AddWindowsPrinterConnection strprint & objUs.physicalDeliveryOfficeName & strconfig2 
26.
objNetwork.SetDefaultPrinter strprint & objUs.physicalDeliveryOfficeName & strconfig2 
27.
WScript.Echo "Duplex Drucker wurde verbunden und als Standart definiert" 
28.
 
29.
'Drucker mit briefpapier konfiguration verbinden 
30.
objNetwork.AddWindowsPrinterConnection strprint & objUs.physicalDeliveryOfficeName & strconfig3 
31.
WScript.Echo "Briefpapier Drucker wurde verbunden" 
32.
 
33.
WScript.Echo "Fertig!" 
34.
'Ende
Bitte warten ..
Ähnliche Inhalte
Windows Server
LDAP Abfrage einrichten (4)

Frage von hscheip zum Thema Windows Server ...

LAN, WAN, Wireless
Zwei Subnetze mit je eigenem Router und Internetzugang verbinden (31)

Frage von hannsgmaulwurf zum Thema LAN, WAN, Wireless ...

Windows Server
GPO um zu verhindern, dass User freigegebene Drucker hinzufügen? (2)

Frage von eastfrisian zum Thema Windows Server ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (19)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...