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, 3972 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 ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ä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 10
Surface 4 Pro Netzlaufwerk verbinden (4)

Frage von Yannosch zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...