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

AD abfragen und in Tabelle schreiben

Frage Microsoft Microsoft Office

Mitglied: Iceman99

Iceman99 (Level 1) - Jetzt verbinden

24.07.2008 um 10:53 Uhr, 5521 Aufrufe

Hallo,

ich möchte das AD abfragen und die Informationen computername, useraccountcontrol und lastlogon in eine Access 2007 Tabelle schreiben.
Userdaten habe ich mit dem Script:

Private Sub cmd_AD_Click()
Dim db As DAO.Database ' Verweis "DAO 3.6"
Dim sql As String

Set db = CurrentDb
Set objComputer = GetObject("WinNT://" & "han.gp-papenburg.de")
objComputer.Filter = Array("User")
For Each objUser In objComputer
sql = "INSERT INTO ADUser (Name, Fullname, AccountDisabled, " _
& "IsAccountLocked, Profile, " _
& "LoginScript, HomeDirectory ) " _
& "SELECT '" & objUser.Name & "' AS Name, " _
& "'" & objUser.FullName & "' AS Fullname, " _
& "'" & objUser.AccountDisabled & "' AS AccountDisabled, " _
& "'" & objUser.IsAccountLocked & "' AS IsAccountLocked, " _
& "'" & objUser.Profile & "' AS Profile, " _
& "'" & objUser.LoginScript & "' AS LoginScript, " _
& "'" & objUser.HomeDirectory & "' AS HomeDirectory;"

db.Execute sql
Next
End Sub


erfolgreich eingelesen.
Nur klappt das nicht wenn ich den Filter auf die class "computer" setze.
Da wird nur der Computername eingelesen. Wenn ich dann die anderen Felder hinzufügen will kommt die Fehlermeldung:
Laufzeitfehler 438: Ein Objekt unterstützt diese Eigenschaft oder Methode nicht.

hat jemand eine Idee, woran das liegt?
mfg
Andreas
Ähnliche Inhalte
Windows Server
gelöst AD-User einer AD-Gruppe auslesen und in ein File schreiben (15)

Frage von Estefania zum Thema Windows Server ...

Netzwerkmanagement
Abfrage welche MAC an welchem Switchport, automatisieren (5)

Frage von pablovic zum Thema Netzwerkmanagement ...

Datenbanken
gelöst MySQL Abfrage um JOIN erweitern (14)

Frage von datadexx zum Thema Datenbanken ...

Datenbanken
gelöst Join über drei Tabellen (5)

Frage von Kimaro zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...

Batch & Shell
Batch zum suchen und verschieben von Verknüpfungen (12)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...