Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS soll Daten des aktuell angemeldeten Benutzer aus Active Dirctory auslesen und in Word einfügen

Frage Entwicklung VB for Applications

Mitglied: TiTux

TiTux (Level 2) - Jetzt verbinden

26.04.2011 um 10:08 Uhr, 6641 Aufrufe, 2 Kommentare

Hallo,

wir haben hier eine Word 2003 Vorlage, in der es 3 Stellen gibt, in denen automatisch Daten aus dem Active Dirctory (2003) ausgelesen und eingetragen werden sollen.
Die Punkte heißen wie folgt:

Ansprechpartner
Telefon
e-Mail

Nun habe ich damit leider noch nie etwas mit zutun gehabt (VBS) und mir fällt der Anfang etwas schwer. Habe mich durch einige Foren gelesen und Tante Google befragt,
hatte auch Script-Beispiele gefunden, aber mit denen konnte ich leider nicht viel anfangen. Es fängt schon damit an, dass ich keine Ahnung habe, was ich machen muss,
wenn in meiner Vorlage der o.g. Text steht, wie man das dann mit dem Script "verknüpft", oder ob man alles im Visual Basic Editor eintragen muss.

Also totaler Newbie!

Aber ich möchte ja dazu lernen. Habt Ihr evtl. einen guten Buchtipp für mich oder ein anderes Tutorial/HowTo, was mir dabei helfen könnte?

Gruß
Rainer
Mitglied: 99045
26.04.2011 um 10:21 Uhr
Hallo,

Zitat von TiTux:
Aber ich möchte ja dazu lernen. Habt Ihr evtl. einen guten Buchtipp für mich oder ein anderes Tutorial/HowTo, was mir
dabei helfen könnte?

Dazulernen ist immer gut. Für deine ersten Schritte mit Scripting empfehle ich dir diese Seite.

Gruß
Bitte warten ..
Mitglied: TiTux
05.05.2011 um 14:59 Uhr
Sodele,

nach einigen Experimenten habe ich es jetzt fertig, hier ist mein Makro:

01.
Sub AutoNew() 
02.
Dim objSystemInfo As Object 
03.
Dim objUser As Object 
04.
 
05.
Set objSystemInfo = CreateObject("ADSystemInfo") 
06.
Set objUser = GetObject("LDAP://" & objSystemInfo.UserName) 
07.
 
08.
 
09.
'Active Directory Daten auslesen, Anzeigename, Telefonnummer,E-Mail 
10.
 
11.
ActiveDocument.Bookmarks("Ansprechpartner").Range.InsertAfter objUser.displayName 
12.
ActiveDocument.Bookmarks("Telefon").Range.InsertAfter objUser.TelephoneNumber 
13.
ActiveDocument.Bookmarks("Mail").Range.InsertAfter objUser.mail 
14.
 
15.
'Auslesen des aktuellen Datums 
16.
 
17.
Selection.GoTo what:=wdGoToBookmark, Name:="Datum" 
18.
Selection.InsertAfter (Format(Now + 0, "dd.mm.yyyy")) 
19.
 
20.
Set objUser = Nothing 
21.
Set objSystemInfo = Nothing 
22.
End Sub
Ciao
TiTux
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...

Exchange Server
DNS Einstellung - zwei feste IPs für Mailserver (15)

Frage von ivan0s zum Thema Exchange Server ...