1
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
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
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: 12346
Url: https://administrator.de/forum/office-macro-benutzerinformationen-aus-active-directory-12346.html
Ausgedruckt am: 22.12.2024 um 23:12 Uhr
1 Kommentar
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
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
