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

Windows Server
AD Überwachung nach unterschiedlichen Ereignissen (3)

Frage von WinLiCLI zum Thema Windows Server ...

Windows Server
Fehler Vertrauensstellung im AD (14)

Frage von thomas-99 zum Thema Windows Server ...

Datenbanken
gelöst MS SQL Abfragen und Formulare in Webseite einbinden (3)

Frage von Machello zum Thema Datenbanken ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte