Top-Themen

Aktuelle Themen (A bis Z)

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

LDAP Info über VBA-Makro

Mitglied: DaXXoR

DaXXoR (Level 1) - Jetzt verbinden

03.02.2010, aktualisiert 13:27 Uhr, 9803 Aufrufe, 5 Kommentare

Hallo Leute
Bin neu hier im Forum und brauche dringend Hilfe =(

Ich muss ein Word-Makro schreiben, welches die Daten des angemeldeten Benutzers ausliest (also nicht nur den Anmeldenamen, sondern auch Vorname, Nachname usw.)
Diese Daten muss ich dann in eine Datei einfügen (Vorlagen für Geschäftsbriefe).. Das ist allerdings kein Problem.

Wie bekomme ich die einzelnen Attribute in Variablen? Bei fertigen Sourcecode nach Möglichkeit mit kurzer Erklärung.. Will ja auch was lernen ;)

Das habe ich bis jetzt.. Ich kann zur DB connecten, weiß aber nicht, wie ich die daten darausbekomme:

Set objUser = GetObject("LDAP://CN=Configuration,DC=XXX,DC=de")

DaXXoR
Mitglied: napperman
03.02.2010 um 14:21 Uhr
Hatte mal irgendwo das hier gefunden:


Sub AutoOpen()

On Error Resume Next
Dim qQuery, objSysInfo, objuser
Dim firma, Name, EMail, Phone, Fax, web, position, Abteilung
If ThisDocument.Name = "Briefvorlage.doc" And _
ThisDocument.Path = "T:\Briefvorlage_PCC" Or _
ThisDocument.Path = "\\hm_srv02\Tausch\Briefvorlage_PCC" Or _
ThisDocument.Path = "\\HM_srv02\Tausch\Briefvorlage_PCC" Or _
ThisDocument.Path = "\\Hm_srv02\Tausch\Briefvorlage_PCC" _
Then
' Active Directory Informationen für den angemeldeten User lesen
Set objSysInfo = CreateObject("ADSystemInfo")
objSysInfo.RefreshSchemaCache
qQuery = "LDAP://" & objSysInfo.UserName
Set objuser = GetObject(qQuery)

'Variablen mit AD-Attributen füllen (es gibt viel mehr Attributen zb. FaxNumber usv.)
firma = objuser.company
Abteilung = objuser.physicalDeliveryOfficeName
Name = objuser.firstname & " " & objuser.lastname
Phone = objuser.TelephoneNumber
Fax = objuser.facsimileTelephoneNumber
EMail = objuser.mail
web = objuser.wwwHomePage
position = objuser.Title

smsEinfügen "smsAbteilung", Abteilung
smsEinfügen "smsTel", "tel: " & Phone
smsEinfügen "smsName", Name
smsEinfügen "smsweb", web
smsEinfügen "smsUnterschrift", Name
smsEinfügen "smsUnterschriftAbteilung", Abteilung
smsEinfügen "smsEmail", EMail
End If
End Sub


Public Sub smsEinfügen(Textmarke, Variable)
' Prozedur zum Einfügen des Wertes ("Variable") an der entsprechenden Textmarke
If ActiveDocument.Bookmarks.Exists(Textmarke) = True Then
Selection.GoTo What:=wdGoToBookmark, Name:=Textmarke
Selection.TypeText Variable
End If
End Sub

Die Pfadangaben habe ich hereingepackt, damit das Makro nur in einer Datei an diesem Ort ausgeführt wird.
Die Benutzer sollen die Vorlage nämlich nur nutzen um sich einmalig personalisiertes Briefpapier zu erstellen.
Bitte warten ..
Mitglied: DaXXoR
08.02.2010 um 11:03 Uhr
Hey,
danke erstmal für den Tipp!
hat super funktioniert.
Allerdings nur mit Administrator-Rechten. Wenn ich es mit Nutzer-Rechten versuche kommt ständig ein Laufzeitzfehler.. "Zugriff-Verweigert-Fehler"
Woran kann das liegen?
Bitte warten ..
Mitglied: Biber
08.02.2010 um 19:14 Uhr
Moin DaXXoR

Zitat von DaXXoR:
Wenn ich es mit Nutzer-Rechten versuche kommt ständig ein Laufzeitzfehler.. "Zugriff-Verweigert-Fehler"
Woran kann das liegen?
a) ist das jetzt 'ne Suggestivfrage?
b) darf ich einen Fifty-Fifty-Joker anrufen?
c) ist denn immer noch montach?
d) wie wäre es, wenn du (weil doch das Script eh' noch nicht in Stein gemeißelt ist) einfach mal das "On Error Resume Next" rausnimmst?

Denn die Anweisung ist doch nur dann sinnvoll, wenn der Coder glaubt zu wissen, in welchen Programmzeilen der Schnipsel abgrätschen könnte und das danach Programmzeilen folgen, die damit umgehen können.

Wo genau (welche Codezeile) hat der gemeine Schnarchuser denn zu wenig Rechte?

Grüße
Biber
Bitte warten ..
Mitglied: DaXXoR
09.02.2010 um 08:35 Uhr
a) Keineswegs
b) wenn es dir hilft, mir zu helfen ;)
c) Jetzt nichmehr =)
d) Auf die Idee binn ich auch gekommen. Sonst wär ja keine Fehlermeldung zu sehen gewesen

Fehler kommt bei folgener Programmzeile

objSysInfo.RefreshSchemaCache
Bitte warten ..
Mitglied: DaXXoR
22.02.2010 um 09:48 Uhr
Kann mir denn keiner helfen!? =(
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA-Makro verschwindet nach Speichern
gelöst Frage von lupi1989VB for Applications5 Kommentare

Liebe Leute, bei mir verschwindet der Makro für den Scrollbereich in Excel(abgespeichert in xlsm) immer wieder nach dem Speichern. ...

Microsoft Office
Dublikate Entfernen per Excel Makro VBA
gelöst Frage von novregenMicrosoft Office3 Kommentare

Hallo, ich habe eine Excel Liste mit variabler Zeilenanzahl und 33 Spalten. Diese Liste bekomme ich monatlich. Leider gibt ...

Microsoft Office

Excel Makro VBA Sortierung nach Spaltennamen

gelöst Frage von easy4breezyMicrosoft Office3 Kommentare

Hi Leute, ich habe mich hier schon eingelesen und auch im Internet, aber irgendwie komme ich zu keiner Lösung ...

Microsoft Office

Passwortgeschützte Excel Dateien bearbeiten VBA Makro

Frage von schwalbepilotMicrosoft Office2 Kommentare

Ich möchte Fußzeilen in alle Excel Dateien eines Ordners einfügen. Das klappt alles soweit, leider sind alle Dateien passwortgeschützt. ...

Neue Wissensbeiträge
Windows 10

Windows 10 - Programme laufen schneller, wenn Sie mit Administratorrechten ausgeführt werden

Erfahrungsbericht von 1Werner1 vor 1 TagWindows 1011 Kommentare

Moin, das wollte ich erst nicht glauben, aber es ist so. Wenn Ihr ein Programm mit Administratorrechten unter Windows ...

Sicherheits-Tools
Putty hat heftige Bugs korrigiert!
Information von Lochkartenstanzer vor 2 TagenSicherheits-Tools5 Kommentare

Moin, Wie man aus herauslesen kann, sind in den Versionen vor 0.71 gravierende Bugs, die es angeraten erscheinen lassen, ...

Off Topic
Sachen die die Welt nicht braucht - Platz 1
Tipp von brammer vor 5 TagenOff Topic21 Kommentare

Hallo, ich habs als Tipp angelegt als Erfahrungsbericht nein Danke brammer

Humor (lol)
Spirit of Health-Kongress in Berlin
Information von AnkhMorpork vor 5 TagenHumor (lol)6 Kommentare

tgif! Beim dritten Spirit of Health-Kongress trafen sich am Wochenende Alternativmediziner und Naturheilkundler im Maritim Hotel Berlin, um sich ...

Heiß diskutierte Inhalte
Hardware
Telefonanlagen - Welche gibt es
Frage von Xaero1982Hardware26 Kommentare

Nabend Zusammen, ich suche eine neue TK Anlage und mein Auftraggeber will jetzt was völlig neues - State of ...

Outlook & Mail
Office 365 mit Email-Profil installieren
Frage von Carat2121Outlook & Mail18 Kommentare

Hallo, kurz zu meiner Person: Vor ungefahr 10 Jahren habe ich eine Umschuldung zum Fachinformatiker für Systemintegration gemacht aber ...

LAN, WAN, Wireless
Intel(R) PRO Wireless 3945ABG
gelöst Frage von Leon509LAN, WAN, Wireless15 Kommentare

Hallo, habe ein Laptop Fujitsu (Intel, 4GB, 2GHz, Windos10, Intel(R) PRO/Wireless 3945ABG ) ein O2 DSL Anschluss Home50. Leider ...

Hardware
Empfehlung zu neuen Desktop Pcs innerhalb KMU
Frage von Leo-leHardware13 Kommentare

Hallo zusammen, vielleicht könnt Ihr, anhand Eurer Erfahrung, mir einen Tipp zur Bestellung neuer Desktop Pcs für unsere User ...