4
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
http://www.ldap2doc.de
Danke
Stefan
http://www.ldap2doc.de
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: 199984
Url: https://administrator.de/contentid/199984
Ausgedruckt am: 23.11.2024 um 05:11 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
