stekolos
Goto Top

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

Content-ID: 199984

Url: https://administrator.de/forum/ldap2doc-nutzen-sie-ihr-active-directory-effektiver-und-ihre-vorlagen-schneller-199984.html

Ausgedruckt am: 23.12.2024 um 23:12 Uhr

Frank
Frank 07.05.2009 um 13:07:19 Uhr
Goto Top
Hilfreiches Tool
adinin
adinin 08.05.2009 um 18:31:50 Uhr
Goto Top
ja ist nützlich
chips1
chips1 17.05.2009 um 19:08:56 Uhr
Goto Top
Vielen Dank, der Link gefällt mir ganz gut.
keksprinz
keksprinz 15.06.2009 um 09:17:30 Uhr
Goto Top
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