4
Aktuelle E-Mailadresse herauslesen
Per VB-Script die E-Mailadresse des aktuell angemeldeten Users herausfinden
Guten Tag
ich such nach einer Möglichkeit, per VB-Script die E-Mailadresse des aktuellen Users herauszufinden und in eine Variable zu speichern.
Hat jemand ein Codebeispiel oder einen Link?
Active Directory vorhanden, ich arbeite mit Exchangeserver und Outlook
Guten Tag
ich such nach einer Möglichkeit, per VB-Script die E-Mailadresse des aktuellen Users herauszufinden und in eine Variable zu speichern.
Hat jemand ein Codebeispiel oder einen Link?
Active Directory vorhanden, ich arbeite mit Exchangeserver und Outlook
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 58126
Url: https://administrator.de/contentid/58126
Ausgedruckt am: 25.11.2024 um 10:11 Uhr
4 Kommentare
Neuester Kommentar
Ich habe einen möglichen Ansatz gefunden.
Die Userdescriptions können im AD herausgelesen werden.
Allerdings weiss ich nicht wie.....
Kann mir niemand helfen?
Die Userdescriptions können im AD herausgelesen werden.
Allerdings weiss ich nicht wie.....
Kann mir niemand helfen?
hier eine Lösung.. Einfach als Funktion mit den gewünschten Parametern aufrufen.
Function GetEmail(strAccountName, strDomainName)
Dim adoLDAPCon, _
adoLDAPRS, _
strLDAP
Set adoLDAPCon = CreateObject("ADODB.Connection")
adoLDAPCon.Provider = "ADsDSOObject"
adoLDAPCon.Open "ADSI"
strLDAP = "'LDAP://" & strDomainName & "'"
Set adoLDAPRS = adoLDAPCon.Execute("select mail from " _
& strLDAP & " WHERE objectClass = 'user'"& _
" And samAccountName = '" & strAccountName & "'")
With adoLDAPRS
If Not .EOF Then
GetEmail = .Fields("mail")
Else
GetEmail = ""
End If
End With
adoLDAPRS.Close
Set adoLDAPRS = Nothing
Set adoLDAPCon = Nothing
End Function
Quelle: google
Function GetEmail(strAccountName, strDomainName)
Dim adoLDAPCon, _
adoLDAPRS, _
strLDAP
Set adoLDAPCon = CreateObject("ADODB.Connection")
adoLDAPCon.Provider = "ADsDSOObject"
adoLDAPCon.Open "ADSI"
strLDAP = "'LDAP://" & strDomainName & "'"
Set adoLDAPRS = adoLDAPCon.Execute("select mail from " _
& strLDAP & " WHERE objectClass = 'user'"& _
" And samAccountName = '" & strAccountName & "'")
With adoLDAPRS
If Not .EOF Then
GetEmail = .Fields("mail")
Else
GetEmail = ""
End If
End With
adoLDAPRS.Close
Set adoLDAPRS = Nothing
Set adoLDAPCon = Nothing
End Function
Quelle: google
Hallo Echinus
Werds mal testen, danke.....
Werds mal testen, danke.....
Hat geklappt, danke. Da ich inzwischen aber zum PowerShell-Freak mutiert bin, werde ich es in PowerShell realisieren. Ist aber keine grosse Umstellung, COM-Objekte werden von der PowerShell auch unterstützt.
_______________
Thread Clossed
_______________
Thread Clossed
