LDAP2DOC -nutzen Sie Ihr Active Directory effektiver und Ihre Vorlagen schneller-

Die Seite wird von mir betrieben, mich würde Interessieren ob mein Programm am Markt ankommt, Würde mich über Reaktion von Euch sehr freuen.
Danke
Stefan

Hilfreiches Tool

ja ist nützlich

Warum bezahlen wenns umsonst ist ?

Private Sub Document_New()
On Error Resume Next


Dim objSystemInfo As Object
Dim objUser As Object


Set WSHShell = CreateObject("WScript.Shell")
Set objSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSystemInfo.UserName)
Set fs = CreateObject("Scripting.FileSystemObject")


CurrentUser = WSHShell.ExpandEnvironmentStrings("%USERNAME%")


ActiveDocument.FormFields("Vorname").Result = objUser.FirstName
ActiveDocument.FormFields("Nachname").Result = objUser.LastName
ActiveDocument.FormFields("UnserZeichen").Result = LCase(Left(objUser.LastName, 2))
ActiveDocument.FormFields("Telefon").Result = objUser.TelephoneNumber
ActiveDocument.FormFields("Telefax").Result = objUser.facsimileTelephoneNumber
ActiveDocument.FormFields("Mail").Result = objUser.EmailAddress




Set objUser = Nothing
Set objSystemInfo = Nothing
End Sub