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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 199984
Url: https://administrator.de/contentid/199984
Printed on: April 26, 2024 at 11:04 o'clock
4 Comments
Latest comment
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