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, 5508 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 ...

Monitoring
gelöst Nagios Plugin Datum in Dateiname abfragen (2)

Frage von itazubii zum Thema Monitoring ...

Windows Server
Status RDP Session via Webseite abfragen (1)

Frage von NetMare zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (16)

Frage von DerFurrer zum Thema Windows Installation ...

Multimedia & Zubehör
gelöst Iphone 6 prob (12)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (12)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (11)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...