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

Frage Entwicklung VB for Applications

GELÖST

VBScript Zugriff auf Benutzerrelevante Daten des ActiveDirectories

Mitglied: Yannosch

Yannosch (Level 2) - Jetzt verbinden

21.01.2013 um 14:33 Uhr, 2314 Aufrufe, 7 Kommentare

Guten Tag liebe Community,

wie ihr anhand des Topics schon erkennen könnt frage ich mich, ob es möglich ist per VBS Script auf AD basierende Datensätze des Users, der gerade das script aufruft, zuzugreifen.
Der Satz ich vielleicht bisschen in die Länge geraten aber ihr wisst bestimmt was ich meine.
Im Netz habe ich schon einige Ansätze gefunden und bin mir sicher, dass es sich mittels Windows Management Instrumentation (WMI) realisierbar ist.

Angenommen meine Domäne heißt xx.xx.de und ich möchte die Zimmernummer des ausführenden Users in die Variable Zm_Nr schreiben. Oder die Telefonnummer in die Variable Tel_Nr...

Ich hoffe ihr habt mein Anliegen verstanden, falls nicht erkläre ich es gerne nochmal genauer.

Liebe Grüße

YANNOSCH!
Mitglied: bastla
21.01.2013 um 16:41 Uhr
Hallo Yannosch!

Meinst Du das etwa so?
Zm_Nr = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).physicalDeliveryOfficeName
Die jeweilige Attribute (wie hier etwa "physicalDeliveryOfficeName") findest Du zB im Blog von Yusuf ...

Grüße
bastla
Bitte warten ..
Mitglied: Yannosch
21.01.2013 um 16:54 Uhr
Hey bastla,

Danke für die schnelle Antwort-> Genau das meine ich ;)
Langsam bin ich echt vom Potentzial dieses Forums überzeugt! Wahnsinn!

Und über diesen LDAP Pfad werden die Informationen aus dem AD gelesen? - Müsste dann nicht noch die Adresse des Domain-Controllers oder so angegeben sein? - Wie funktioniert das ohne Informationen zum DC ?

Liebe Grüße

YANNOSCH!
Bitte warten ..
Mitglied: bastla
21.01.2013 um 17:03 Uhr
Hallo Yannosch!
Müsste dann nicht noch die Adresse des Domain-Controllers oder so angegeben sein? - Wie funktioniert das ohne Informationen zum DC ?
Dazu wird ja das "ADSystemInfo"-Objekt verwendet - schau Dir einfach mal die Ausgabe von
WScript.Echo CreateObject("ADSystemInfo").UserName
an ...

Wenn Du mehrere Informationen abholen möchtest, bietet es sich natürlich an, ein Objekt für den User zu erzeugen, also etwa
01.
Set User = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName) 
02.
Zm_Nr  = User.physicalDeliveryOfficeName 
03.
Tel_Nr = User.telephoneNumber 
04.
'...
Grüße
bastla
Bitte warten ..
Mitglied: Yannosch
22.01.2013 um 07:43 Uhr
@bastla,

deine Informationen waren sehr hilfreich, genau wie der Verweis zu dem Blog auf denen die ganzen Befehle zu den Systeminformationen.

Allerdings gibt es bei mir, egal wie ich es mache, immer Fehlermeldungen.

Stellen wir die Hypothese auf, ich würde lediglich die Zimmernummer in eine Variable speichern wollen und anschließend in einer MsgBox ausgeben.

Vieleicht liegt mein Fehler dort irgendwo.

Liebe Grüße und nochmals vielen Dank bis hierhin

YANNOSCH!
Bitte warten ..
Mitglied: bastla
22.01.2013 um 08:28 Uhr
Hallo Yannosch!
Allerdings gibt es bei mir, egal wie ich es mache, immer Fehlermeldungen.
Unterliegen die einer Geheimhaltungspflicht?
Stellen wir die Hypothese auf, ich würde lediglich die Zimmernummer in eine Variable speichern wollen und anschließend in einer MsgBox ausgeben.
Die erste Zeile dafür steht ja schon oben (falls Du mit Zimmernummer das Attribut "Büro" meinst), und die MsgBox traue ich Dir zu ...

Grüße
bastla
Bitte warten ..
Mitglied: Yannosch
22.01.2013 um 09:15 Uhr
Hey hey,

folgendes Beispiel:

Dim Zm_Nr

Set User = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName)

Zm_Nr = User.physicalDeliveryOfficeName

MsgBox Zm_Nr

Zeigt eine Leere MsgBox- Kann sein, das es ein ärgerlich kleiner Fehler ist.

Die MsgBox traue ich mir auch graaaaad so zu, aber die wird ja letztenendes nicht das Problem sein.
Ich scripte erst seid kurzem und musst erstmal damit zurechtkommen. Allerdings fällt es mir leicht die Logik hinter den Programmabläufen zu verstehen, deswegen wird das Verständniss nicht das Problem sein.

Ich wäre dir dankbar, wenn du den definitiv vorhandenen Fehler findest und eliminierst.

Danke schonmal im Vorraus

Liebe Grüße
YANNOSCH!
Bitte warten ..
Mitglied: Yannosch
22.01.2013 um 11:10 Uhr
Ok -ICH BIN BLÖD , ich habe bei meinem Benutzer im AD , dem Attribut Büro keinen Wert zugeordnet :D

Danke für die hilfe
Bitte warten ..
Ähnliche Inhalte
Microsoft
Bartender - kein Zugriff auf XLS-Daten
gelöst Frage von MiStMicrosoft5 Kommentare

Hallo, ich habe auf einem Client (Windows 10) MS-Office 2010 (64bit) und Bartender 9.4(r3) installiert. Bis Samstag konnte ich ...

Festplatten, SSD, Raid
Raid gelöscht, kein Zugriff auf Daten mehr
Frage von t-e-lawrenceFestplatten, SSD, Raid21 Kommentare

Hallo zusammen, ich habe eben einen riesigen Mist verzapft und benötige dringend Hilfe. Ich habe bei meinem NAS eben ...

VB for Applications
VBScript und OR
gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 22 StundenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 1 TagTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 1 TagSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 1 TagSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Sicherheit
Meltdown und Spectre: Die machen uns alle was vor
Information von FrankSicherheit26 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Ubuntu
Ubuntu - Starter für nicht vertrauenswürdige Anwendungen
Frage von adm2015Ubuntu17 Kommentare

Hallo zusammen, Ich verwende derzeit die Ubuntu Versionen 17.10 bzw. im Test 18.04. Ich habe mehrere .desktop Dateien in ...

Windows 10
Automatische daten kopieren, USB zu USB unter Win10 im Hintergrund
Frage von DerEisigeWindows 1016 Kommentare

Hallo Leute, ich bin auf der Suche nach einem Skript, dass von einem USB Stick automatisch nach dem einstecken ...

SAN, NAS, DAS
Hilfe beim Einrichten eines Storages (SAN)
gelöst Frage von Vader666SAN, NAS, DAS15 Kommentare

Hallo Admins! Ich bin in einer kleineren Firma und hatte bisher mit dem Thema SAN nur in meiner Ausbildung ...