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, 5499 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?
Mit freundlichen Grüßen
Andreas
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ä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 Replikation zwischen untergeordneten Domäne zwingend? (4)

Frage von Gien-app zum Thema Windows Server ...

Batch & Shell
gelöst Loginzeiten aus dem Ereignisprotokoll in Excel schreiben (1)

Frage von l-Ne0n zum Thema Batch & Shell ...

Batch & Shell
gelöst Selected Gridview Value in Variable schreiben (4)

Frage von reissaus73 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...