07.05.2009
13206
4
0LDAP2DOC -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
ldap2doc.de
Danke
Stefan
ldap2doc.de
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 199984
Url: https://administrator.de/forum/ldap2doc-nutzen-sie-ihr-active-directory-effektiver-und-ihre-vorlagen-schneller-199984.html
Ausgedruckt am: 07.07.2025 um 21:07 Uhr
4 Kommentare
Neuester Kommentar
Hilfreiches Tool
ja ist nützlich
Vielen Dank, der Link gefällt mir ganz gut.
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
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
