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

Microsoft
Synology Synchronisation der Benutzer von Office 365 - Azure AD (5)

Frage von crankcorp86 zum Thema Microsoft ...

Exchange Server
Exchange postfach löschen wenn AD Konto nicht mehr exisitiert (8)

Frage von MultiStorm zum Thema Exchange Server ...

Windows Server
Exchange 2010 auf Windows Server 2016 und AD (2)

Tipp von Herbrich19 zum Thema Windows Server ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Batch & Shell
Skripterstellung Lehrling (21)

Frage von 133119 zum Thema Batch & Shell ...

Java
gelöst Net user per script aus txt oder csv für FTP (15)

Frage von OlliPWS zum Thema Java ...

Exchange Server
Microsoft Exchange Weiterleitung mit anderer primären E-Mail Adresse (14)

Frage von Rene12345 zum Thema Exchange Server ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (14)

Frage von guntis zum Thema LAN, WAN, Wireless ...