Suche VBS erweiterung für das Auslesen von AD Werten nach Office

Also schonmal ein Dickes danke damit hab ich 75%...

er bringt mir ne Runtime Fehlermeldung.. unterstützt das nicht blablabla.. kennst den Quack ja.

objWord.??????? = objUser.telephoneNumber
Du verstehst das Problem?

Wenn ich es wie folgt eingebe
objWord.UsertelephoneNumber = objUser.telephoneNumber

macht er folgendes - er arbeitet es ab - sucht das Objekt - lies aus schreibt ein & geht ins nächste bis zu
dieser Zeile. Da In Word scheinbar kein Objekt mit der bezeichnung "telephoneNumber" existiert wo er die daten
einfüllen kann - bricht er ab.
Wie komme ich da heran? Wo hinterlegt man den ausgelesenen Wert?

Dachte das er zuerst mit dem Befehl "objWord.UsertelephoneNumber" das Objekt automatisch erstellt - das war Fehldenken..

Kann mir einer bitte mal helfen???

Ich würde gerne einfach auf die selbe Weise wie für zb. "Useradress" ein Feld haben das EMAIL heißt.
Ich will das der User sich anmeldet - das Script durchläuft - die Werte befüllt. So das eine Dot mit entsprechenden
Feldern sich automatisch je Niederlassung und User ausfüllt.

Das kann doch keine so besondere Anforderung sein....

Es klappt ja auch bei einigen Werten - aber wie scripte ich das für diese werte?

- Büro
- E-Mail
- Postfach
- Fax
- Rufnummer

Es gibt keine Vorlage & weder meine 3 Bücher mit knapp 2000 Seiten noch die Stunden des Googlens haben mich wirklich näher gebracht.
Das kann doch nicht sein das noch keiner eine Lösung dafür gefunden und geposted hat...

Ich habe weder Kenntnisse von VBA noch habe ich einen Editor. Is das erstemal das diese Anforderung für Office umgesetzt werden soll.
Hab mir teilweise nun so beholfen, das die Werte Mail, Telefon & Fax in das Feld Useradress übertragen werden.
Somit muss schonmal das nicht für jedes Dokument extra getippt werden. Und die Urspünglichen Daten bleiben im Richtigen Feld unangetastet.

Trotzdem - es gibt Felder zur Auswahl die leer stehen & die ich missbrauchen kann. Felder auf die keiner in absehbarer Zeit zu greift - nämlich die Dokument Eigenschaften. Wie Anmerkungen oder Benutzer etz. Nur wie kann ich diese befüllen?

objWord.UserAddress
objWord.UserInitials
objWord.UserName

..sind klar. aber es handelt sich scheinbar nicht um ein ObjWord. sondern um etwas anderes. Nur wie heist das???

Ach ja - eine der Fehlermeldungen tauchte auf weil das übergabe Feld keine Daten enthielt. Das führte zu einem Übergabe problem. .....gut zu wissen...

Infos:
Es gibt 3 Speicher in die wir Daten auffüllen können:

1) UserName
2) Initials
3) UserAdress

Diese lassen sich per VBS Script befüllen.
Das Script beginnt hiermit:

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP:" & strUser)
Set objWord = CreateObject("Word.Application")

Was das bedeutet kann ich so konkret nicht sagen - ich vermute das hier Auslese Pfade und aktionen definiert werden.

objWord.UserName = objUser.givenName & " " & objUser.SN
objWord.UserInitials = objUser.sAMAccountName
objWord.UserAddress = ........


über objWord. wird der Speicherplatz in Word angesteuert. dh diese 3 Speicherplätze:


objWord.UserName zu finden unter Word2007 unter Wordoptionen Benutzername
objWord.UserInitials zu finden unter Word2007 unter Wordoptionen Initialien
objWord.UserAddress zu finden unter Word2007 unter Wordoptionen[erweitert\Allgemein] Postanschrift

Diese exisieren als reale Felder & können Problemlos auch von Hand eingefügt werden.

objUser. = definiert das zuvor mit dem "Set objUser = GetObject("LDAP:" & strUser)" definierte Suchziel.
givenName = ist der LDAP Name des Feldes welches den Wert beinhaltet. In dem Fall den Profilname.
& " " = fügt eine Leerstelle ein oder einen Text je nach dem.
& = sehr wichtig für Werte Verknüpfungen.
& Chr(13) & _ = bewirkt einen Zeilensprung/nächste Zeile. Dient zur Formatierung.


Die Werte sind schon mit der entsprechenden & Anweisung angeben.

Folgende zeile:

objWord.UserName = objUser.givenName & " " & objUser.SN

Liest sich so:
Schaue unter dem UserProfil in der AD und füge diese Werte ein = Name des User und eine Leerstelle und Nachname des User

Nehmen wir uns jetzt den Restlichen Code vor, das is ein bissle komplizierer.

objWord.UserAddress = "Ihr/e Ansprechpartner/in:" & Chr(13) & _
objUser.givenName & " " & objUser.SN & Chr(13) & _
"Tel.: " & objUser.telephoneNumber & Chr(13) & _
"Fax "& objUser.facsimileTelephoneNumber & Chr(13) & _
objUser.Mail


Der Reservierte Speicherbereich objWord.UserAddress ist in diesem Beispiel noch mit zusätzlichen Informationen ergänzt worden.
Der übergebene Text der sich darin wieder findet sieht so aus:

Ihr/e Ansprechpartner/in:
Anreas Mustermann
Tel.: +49(123)1234-123
Fax +49(123)1234-123
a.mustermann@Mustermann.de

Gefüllt wird es über die Werte in der Aktiv Direktory. Ich will noch etwas auf die "objuser." eingehen.
Wir kennen das ObjWord.UserAdress und haben nun das Objuser.xxxxxx.
Beispiele für wären:

Objuser.sn
Objuser.telephoneNumber
objUser.facsimileTelephoneNumber
objUser.givenName
usw.

Die Bezeichnungen der Ldap-Ziele sind hier wunderbar nieder geschrieben:
http://blog.dikmenoglu.de/Die+Active+DirectoryAttribute+Hinter+Den+Feld ...

Mögliche Fehler

1) Der erste Fehler den ich gemacht habe war zu hoffen das jemand hierauf so nett ist und eine Effektive Hilfe bietet.
Das Problem - selbst Microsoft, die diese Methode durchaus kennen, geben nur spärliche Informationen darüber Preis.
Es geht so Weit das sie sogar eine typische "für Fehler & Schäden übernehmen wir keine Haftung" Meldung gleich mit geben.

2) Kompetente Hilfe zu erwarten, die einen in die Lage versetzt sich selbstständig weiter zu hangeln.
Insb. wenn man in Foren dies bezüglich als absoluter Neuling auf dem Gebiet nichts über VBS Programmierung
und LDAP Abfragen via VBS ist.... scheint plötzlich endloses Schweigen im Walde zu herrschen.

3) Scripting & Syntax Fehler aufgrund von nicht vorhandenen VBS Kenntnissen.

4) Übernahme eines Textes dessen zusammensetzung man nicht wirklich kennt. Kann zu falschen Annahmen führen.
Darum auch dieses kleine Tutorial.

5) Eine Zeile darf nicht mit einem & beginnen.

6) Office hat dem "objWord.UserAddress" nur einen begrenzten Speicherplatz gewährt. Dh. ich konnte nicht die
Vollständige Adresse sammt Telefon, Fax, Email, User mit einem Zusatztext und Abschnitt einfügen:

Name der Firma / Niederlassung GmbH etz.
Strasse.Nr
Postleitzahl Ort

Ihr/e Ansprechpartner/in:
Anreas Mustermann
Tel.: +49(123)1234-123
Fax +49(123)1234-123
a.mustermann@Mustermann.de

Diese Formatierung wäre zwar möglich - wird aber leider wegen der Begrenzung bei "Fax +" abgeschnitten. Möglich
wäre:

Name der Firma / Niederlassung GmbH etz.

Ihr/e Ansprechpartner/in:
Anreas Mustermann
Tel.: +49(123)1234-123
Fax +49(123)1234-123
a.mustermann@Mustermann.de


Hier der Quelltext des VBS-scripts zu dieser oben genannten Darstellung:


Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP:" & strUser)
Set objWord = CreateObject("Word.Application")

objWord.UserName = objUser.givenName & " " & objUser.SN

objWord.UserInitials = objUser.sAMAccountName

objWord.UserAddress = objUser.streetAddress & Chr(13) & _
Chr(13) & _
"Ihr/e Ansprechpartner/in:" & Chr(13) & _
objUser.givenName & " " & objUser.SN & Chr(13) & _
"Tel.: " & objUser.telephoneNumber & Chr(13) & _
"Fax "& objUser.facsimileTelephoneNumber & Chr(13) & _
objUser.Mail

objWord.Quit


Wer genau hinsieht:

objWord.UserAddress = objUser.streetAddress & Chr(13) & _
Chr(13) & _

..erkennt das hier der Bereich des Profils abgefragt wird in dem die Straßen Adressdaten eingegeben werden können.
Wer also die gesammte Tipperei etwas modifizieren will ohne sich auf verschiedene Felder zu beziehen. der kann auch
in diesem Feld in dem Userprofil zb. folgendes eintragen:


Name der Firma / Niederlassung GmbH etz.

Ihr/e Ansprechpartner/in:
Anreas Mustermann
Tel.: +49(123)1234-123
Fax +49(123)1234-123
a.mustermann@Mustermann.de


Es würde dann aber so aus sehen:


Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP:" & strUser)
Set objWord = CreateObject("Word.Application")

objWord.UserName = objUser.givenName & " " & objUser.SN

objWord.UserInitials = objUser.sAMAccountName

objWord.UserAddress = objUser.streetAddress

objWord.Quit


Dieser Weg hat aber den Nachteil das man sich nicht auf die eh vorhandenen Werte bezieht. Und man das Feld der "Strasse/Adresse"
in dem AD Benutzerprofil mit Daten belegt die u.U von dem eigentlichen Sinn vollkommen abweichen. Schließlich könnte man auch
"Willst du mich Heiraten" oder irgend einen anderen Text hier ablegen. Solange es nicht zu lang ist und die Speicherbegrenzung
des "objWord.UserAddress" erreicht.

Leider habe ich keinen Weg gefunden noch andere Speicher zu befüllen. Sprich - theoretisch gibt es in den Dokumenteigenschaften
Felder für "Author" etz. die man bestimmt ähnlich befüllen kann. Ich vermute aber das dies per Makro passieren muss.
Das man das Makro ausführt - dies die Abfrage durchführt - und ins Dokument einfügt. So könnte man über ein Makro automatisch
die Dokumenten Eigentschaften befüllen (Firma/Niederlassung/Author). Das aber ist wirklich nur eine Vermutung.

Nein - weil ich das noch nicht gesehen hatte. Hab den text zuvor als TXT getippt & recht schnell posten müssen da ich grad etwas unter Zeitdruck stehe.

Sag das mal den Leuden die hier anrufen... da darf ich Zaubern. Kann noch so sehr mit meinem Woodoo und Teufelsbeschwörungen arbeiten und kaum dreh ich mich um verlangt man von mir allwissend zu sein. Ach ja - Zerreißen sollte ich mich auch noch können & eine Urlaubsvertretung darf ich auch noch spielen.
Und weil alles noch nicht so super is - Spielt grade unsere neue Firewall auch noch mit rein, denn sie lässt alle 2 std das System abschmieren.. wesshalb dann natürlich das Telefon wieder schellt & der der es eingerichtet hat - hat, man ahnt es: Urlaub.
Und zu allem Überfluss darf ich noch dieses Office Zeug einrichten mich um den Antivierenschutz, die Einrichtung des Wsus, Einrichtung der Software paketverteilung & den alltäglichen Wehwehchen ala HILFE MEIN OOUTLOOK LEGT EIER kümmern...

Hab langsam die Schnauze echt voll. Bekomme für den Kack echt zuwenig Kohle..