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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 58126
Url: https://administrator.de/contentid/58126
Printed on: April 19, 2024 at 00:04 o'clock
4 Comments
Latest comment
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
