Office Macro Benutzerinformationen Aus Active Directory

Hallo zusammen,

ich will die Benutzerinformationen von Word mit Daten aus dem Active Directory füllen, und zwar so das der Name bei UserName hinkommt, die Telefon Nummer bei UserInitials und die E-Mailadresse bei UserAddress

Das mit den Namen funktioniert schon, nur die beiden anderen Sachen nicht kann mir jemand weiterhelfen und sagen wie es richtig sein muss?

Hier mein Script:

Sub testen()
'
' testen Makro
' Makro erstellt am 27.07.2005 von testen
'
Dim objADInfo As Object
Dim objLogonName As Object
Dim objPhone As Object
Dim objMail As Object
Dim strMail As String
Dim strTelephoneNumer As String
Dim strUserName As String
Dim strUserInitials As String

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

strUserName = objLogonName.firstname & " " & objLogonName.lastname
strTelephoneNumber = objtelephoneNumber
strMail = objMail

Application.UserName = strUserName
Application.UserInitials = strTelephoneNumber
Application.UserAddress = strMail

End Sub

Vielen Dank

Please also mark the comments that contributed to the solution of the article

Content-Key: 12346

Url: https://administrator.de/contentid/12346

Printed on: April 18, 2024 at 12:04 o'clock

1 Comment

Beispiel:

On Error Resume Next
Set objUser = GetObject _
("LDAP://cn=myuser,ou=management,dc=sudamin,dc=de")
objUser.GetInfo

strHomePhone = objUser.Get("homePhone")
strPager = objUser.Get("pager")
strMobile = objUser.Get("mobile")
strIpPhone = objUser.Get("ipPhone")
strInfo = objUser.Get("info")
strFacsimileTelephoneNumber = _
objUser.Get("facsimileTelephoneNumber")

strOtherHomePhone = objUser.GetEx("otherHomePhone")
strOtherPager = objUser.GetEx("otherPager")
strOtherMobile = objUser.GetEx("otherMobile")
strOtherIpPhone = objUser.GetEx("otherIpPhone")
strOtherFacsimileTelephoneNumber = _
objUser.GetEx("otherFacsimileTelephoneNumber")

WScript.echo "homePhone: " & strHomePhone
WScript.echo "pager: " & strPager
WScript.echo "mobile: " & strMobile
WScript.echo "ipPhone: " & strIpPhone
WScript.echo "info: " & strInfo
WScript.echo "facsimileTelephoneNumber: " & _
strFacsimileTelephoneNumber

For Each strValue in strOtherHomePhone
WScript.echo "otherHomePhone: " & strValue
Next
For Each strValue in strOtherPager
WScript.echo "otherPager: " & strValue
Next
For Each strValue in strOtherMobile
WScript.echo "otherMobile: " & strValue
Next
For Each strValue in strOtherIpPhone
WScript.echo "otherIpPhone: " & strValue
Next
For Each strValue in strOtherFacsimileTelephoneNumber
WScript.echo "otherFacsimileTelephoneNumber: " & strValue
Next

German Question VB for Applications Development

Hotly discussed

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment