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

VBscript Vor- und Nachname auslesen

Frage Entwicklung VB for Applications

Mitglied: raivan

raivan (Level 1) - Jetzt verbinden

02.10.2008, aktualisiert 09:52 Uhr, 5144 Aufrufe, 3 Kommentare

Hallo,

ich hab folgendes Problem, ich bin nicht so der VBscript Guru und möchte von einem AD Benutzer folgende Daten auslesen:

Vor- und Nachname
E-Mail
User

E-Mail und User hab ich bereits aber Vor- und Nachname noch nicht! Kann mir da jemand helfen? Weiters sollten die Variablen die jetzt in einer MsgBox ausgegeben werden in ein TXT File geschrieben werden!?

raivan

01.
Dim objNetwork 
02.
Set objNetwork = CreateObject("WScript.Network") 
03.
strUser = objNetwork.UserName 
04.
strDomain = objNetwork.UserDomain 
05.
MsgBox strUser 
06.
MsgBox strDomain 
07.
 
08.
mailAdr = GetEmail(strUser, strDomain) 
09.
'wscript.echo mailAdr' 
10.
MsgBox mailAdr 
11.
 
12.
 
13.
Function GetEmail(strAccountName, strDomainName) 
14.
  Dim adoLDAPCon, _ 
15.
      adoLDAPRS, _ 
16.
      strLDAP 
17.
 
18.
 Set adoLDAPCon = CreateObject("ADODB.Connection") 
19.
 adoLDAPCon.Provider = "ADsDSOObject" 
20.
 adoLDAPCon.Open "ADSI" 
21.
 strLDAP = "'LDAP://" & strDomainName & "'" 
22.
 Set adoLDAPRS = adoLDAPCon.Execute("select mail from " _ 
23.
  & strLDAP & " WHERE objectClass = 'user'"& _ 
24.
  " And samAccountName = '" & strAccountName & "'") 
25.
  With adoLDAPRS 
26.
     If Not .EOF Then 
27.
         GetEmail = .Fields("mail") 
28.
     Else 
29.
         GetEmail = "" 
30.
     End If 
31.
 End With 
32.
 adoLDAPRS.Close 
33.
 Set adoLDAPRS = Nothing 
34.
 Set adoLDAPCon = Nothing 
35.
End Function
Mitglied: Logan000
02.10.2008 um 08:55 Uhr
Moin Moin

Vor- und Nachname bekommst du wenn du dein SQL Statement wie folgt erweiterst:
01.
... 
02.
  Set adoLDAPRS = adoLDAPCon.Execute("select sn,givenname,mail from " _  
03.
  & strLDAP & " WHERE objectClass = 'user'" & _ 
04.
  " And samAccountName = '" & strAccountName & "'")  
05.
... 
06.
  If Not .EOF Then  
07.
      GetEmail = .Fields("mail")  
08.
      GetVorname = .Fields("givenname") 
09.
      GetNachname = .Fields("sn") 
10.
...
Eine Textdatei schreiben kann so aussehen:
01.
Dim fso 
02.
Const ForReading = 1  
03.
Const ForWriting = 2  
04.
 Set fso = CreateObject("Scripting.FileSystemObject")  
05.
 Set File = fso.OpenTextFile("C:\Ergebnis.txt", ForWriting, True)  
06.
 File.Write "Dieseer Text kommt in die Textdatei" 
07.
 File.Close
Gruß L.
Bitte warten ..
Mitglied: raivan
02.10.2008 um 09:10 Uhr
Hi,

danke für die schnelle Antwort hab den Code von dir eingebaut, aber wie bekomm ich die Werte nun raus, zb per MsgBox!?

raivan

01.
Dim objNetwork 
02.
Set objNetwork = CreateObject("WScript.Network") 
03.
strUser = objNetwork.UserName 
04.
strDomain = objNetwork.UserDomain 
05.
MsgBox strUser 
06.
MsgBox strDomain 
07.
 
08.
 
09.
mailAdr = GetEmail(strUser, strDomain) 
10.
'wscript.echo mailAdr' 
11.
MsgBox mailAdr 
12.
 
13.
 
14.
Function GetEmail(strAccountName, strDomainName) 
15.
  Dim adoLDAPCon, _ 
16.
      adoLDAPRS, _ 
17.
      strLDAP 
18.
 
19.
 Set adoLDAPCon = CreateObject("ADODB.Connection") 
20.
 adoLDAPCon.Provider = "ADsDSOObject" 
21.
 adoLDAPCon.Open "ADSI" 
22.
 strLDAP = "'LDAP://" & strDomainName & "'" 
23.
 
24.
 Set adoLDAPRS = adoLDAPCon.Execute("select sn,givenname,mail from " _   
25.
 & strLDAP & " WHERE objectClass = 'user'" & _  
26.
 " And samAccountName = '" & strAccountName & "'")   
27.
 
28.
  With adoLDAPRS 
29.
     If Not .EOF Then 
30.
         GetEmail = .Fields("mail") 
31.
         GetVorname = .Fields("givenname") 
32.
         GetNachname = .Fields("sn") 
33.
     Else 
34.
         GetEmail = "" 
35.
     End If 
36.
 End With 
37.
 adoLDAPRS.Close 
38.
 Set adoLDAPRS = Nothing 
39.
 Set adoLDAPCon = Nothing 
40.
End Function
Bitte warten ..
Mitglied: Logan000
02.10.2008 um 09:52 Uhr
Moin

aber wie bekomm ich die Werte nun raus, zb per MsgBox!?
Du hast Doch schon in deinen Code MSGBOX und String verkettung eingesetzt.

z.B.:
01.
     If Not .EOF Then 
02.
         GetEmail = .Fields("mail") 
03.
         GetVorname = .Fields("givenname") 
04.
         GetNachname = .Fields("sn") 
05.
         MSGBOX "Der Benutzer " & GetNachname & ", " & GetVorname _ 
06.
          & " hat folgende eMail: " & GetEmail 
07.
     Else 
08.
...
Gruß L.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS - Vor- und Nachnamen auslesen
Frage von Ah3n0bar6usVB for Applications2 Kommentare

Ich könnte noch einmal (teuren) Rat gebracuhen. Ich versuche mir dem u.a. Script den kompletten Namen eines Nutzers vom ...

C und C++
Vor und Nachname eines Users anzeigen unter cSharp
gelöst Frage von DippsC und C++1 Kommentar

Hallo ich möchte gerne von dem Aktuellen User den Vor- und Nachname haben. mit bekomme ich den Usernamen den ...

Microsoft Office
Excel 2013 - Mit Nachname, Vorname Datensatz durchsuchen nach Vor- und Nachname in getrennten Zellen
gelöst Frage von Majestic012Microsoft Office7 Kommentare

Hallo zusammen, ich habe einen Basisdatensatz, in dem alle Einträge wie Nachname, Vorname, Straße etc. ihre eigene Zelle haben ...

Ubuntu
Vor- und Nachnamen mit einem bestimmten Muster aus einer Textdatei löschen
gelöst Frage von takitanoUbuntu15 Kommentare

Ok. Meine letzte Frage war ein bisschen undeutlich formuliert. Also hier ist ein neuer Versuch. Ich habe drei Text-Dateien: ...

Neue Wissensbeiträge
Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 6 StundenInternet3 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registierunf von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 13 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 1 TagWindows 103 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 1 TagSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless17 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...