Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 4004 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
Drucker per GPO verbinden (5)

Frage von gamerff zum Thema Windows Server ...

Exchange Server
MS Exchange Attribute anzeigen (2)

Frage von Xaero1982 zum Thema Exchange Server ...

Windows Server
Drucker per GPO auf Geräte verbinden (4)

Frage von manuwj zum Thema Windows Server ...

Windows Server
gelöst LDAP Daten anderer Domain abrufen (3)

Frage von it4baer zum Thema Windows Server ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(6)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

Windows 10
Windows 10 Ordnerfreigabe (15)

Frage von Xaero1982 zum Thema Windows 10 ...

Monitoring
Netzwerk-Monitoring Software (15)

Frage von Ghost108 zum Thema Monitoring ...