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

Frage Entwicklung VB for Applications

Mitglied: bigwoodfarmer

bigwoodfarmer (Level 1) - Jetzt verbinden

18.05.2010, aktualisiert 08:16 Uhr, 4008 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
Batch & Shell
Powershell Drucker Remote verbinden
Frage von BuggerBatch & Shell5 Kommentare

Hallo, ich habe schon einiges ausprobiert aber nichts funktioniert so richtig. Das sah vielversprechend aus, funktioniert aber leider auch ...

PHP
Drucker über Intranet verbinden
gelöst Frage von BodabirraPHP8 Kommentare

Hallo zusammen, ich habe folgendes Problem: Wir nutzen ein Intranet was per Joomla realisiert wurde. Dort gibt es aktuell ...

Windows Server
Drucker automatisch verbinden lassen
Frage von 2SeitenWindows Server9 Kommentare

Hallo Zusammen, Ich versuche auf einem Windows Server 2008 R2 einen Netzwerk Drucker automatisch an alle Clients in meiner ...

Windows Server
Drucker per GPO verbinden
Frage von gamerffWindows Server5 Kommentare

Hallo Forum, ich habe die Drucker in den Filialen bei uns so eingerichtet das sich die Nutzer diese per ...

Neue Wissensbeiträge
Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 2 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit7 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...