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, 3985 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
PHP
gelöst Drucker über Intranet verbinden (8)

Frage von Bodabirra zum Thema PHP ...

Windows Server
Drucker automatisch verbinden lassen (9)

Frage von 2Seiten zum Thema Windows Server ...

Windows Server
gelöst GPO-Eintrag für OneNote-Drucker (3)

Frage von Ravelux zum Thema Windows Server ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(6)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Heiß diskutierte Inhalte
Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Linux
gelöst Google Chrome startet nicht (12)

Frage von Thomas91 zum Thema Linux ...