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

Auslesen der Benutzerkonten (Windows 2000 PDC ohne Active Directory)

Frage Entwicklung VB for Applications

Mitglied: Forencamper

Forencamper (Level 1) - Jetzt verbinden

02.10.2006, aktualisiert 16.10.2006, 8883 Aufrufe, 7 Kommentare

Ausgabe in einer Excel Tabelle oder Access-Datenbank

Morgen Leute!

Also, ich habe folgende Idee:

Ich lese morgends den Benutzermanager aus, und finde
so raus welche User sich Ihr Konto deaktiviert haben.
Die Ausgabe sollte in Excel oder Access funktionieren.

Leider habe ich keine Ahnung wie ich per VBA auf den Benutzermanager zugreife.

Vielleicht könnt Ihr mir ja helfen.

thx
Mitglied: 30533
02.10.2006 um 11:47 Uhr
Hallo, habt Ihr schon mal die Software DocuSnap getestet, ob die Euch in dieser Frage weiterhilft?
kostenlose Demos gibt es im Trial unter www.docusnap.de
viel erfolg
kiefer
Bitte warten ..
Mitglied: Forencamper
02.10.2006 um 12:13 Uhr
Nein, hilft nicht weiter weil:
-keine Fremde Software derzeit bei uns eingesetzt werden darf
-sowieso Ausgabensperre ist

Daher muss es eine Excel- / oder Accesslösung werden.
Bitte warten ..
Mitglied: AndreasHoster
02.10.2006 um 12:19 Uhr
Mit dem Universalwerkzeug für alle Windows Verwaltungsaufgaben: WMI
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanch ...
und zum sehen, was man noch alles auslesen kann, die Scriptomatic V2 (extrem empfehlenswert):
http://www.microsoft.com/downloads/details.aspx?familyid=09DFC342-648B- ...

Folgendes als .vbs speichern:

On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\Name_des_Servers\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", "WQL",&h30)
For Each objItem In colItems
if objitem.Lockout = True then
WScript.Echo "Name: " & objItem.Name
end if
Next


und mit cscript.exe ...vbs > Ausgabedatei starten.
Es werden alle Namen in die Ausgabedatei geschrieben, die sich Locked Out sind.
Bitte warten ..
Mitglied: Forencamper
13.10.2006 um 17:18 Uhr
Hallo!

erstmal vielen dank.
also ausführen mit cscript geht soweit, das einzige was aber in mein logfile geschrieben wird sieht so aus:

Microsoft (R) Windows Script Host, Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Alle Rechte vorbehalten.

irgendwas stimmt nicht.
Bitte warten ..
Mitglied: AndreasHoster
13.10.2006 um 17:50 Uhr
Sicher, daß Du auch User hast, die Locked Out sind? Ansonsten kommt natürlich nichts.
Du kannst es auch mal so probieren, dann kommen Alle die er findet und der Status:

Set objWMIService = GetObject("winmgmts:\\Name_des_Servers\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", "WQL",&h30)
For Each objItem In colItems
WScript.Echo "Name: " & objItem.Name & " Locked Out:" & objitem.Lockout
Next
Bitte warten ..
Mitglied: Forencamper
13.10.2006 um 17:54 Uhr
jetzt sieht es so aus:

Name: ACL806 Locked Out:Falsch
Name: ACL932 Locked Out:Falsch
Name: ACLA30 Locked Out:Falsch

ist auch nicht richtig, weil unsere User ID´s mit S... anfangen?
Als Server hab ich den domänen controller angegeben...irgendwo noch ein denkfehler bei mir?
Bitte warten ..
Mitglied: AndreasHoster
16.10.2006 um 09:52 Uhr
Wenn Du sagtst mi S ... meinst Du wohl die SID.
Das Skript zeigt nicht die SID an, sondern den Benutzernamen.
Für die SID einfach statt objItem.Name objItem.SID nehmen.
Und Du hast keine User die Mit ACL anfangen, oder wie?

Zum Testen, was man alles sehen kann, lade mal bei MS die Scriptomatic runter (link habe ich weiter oben schon gepostet, da siehst Du dann, was man alles bekommen kann an Infos).
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Userverwaltung
gelöst Windows 10 ohne Active Directory verwalten - sichern (10)

Frage von MS6800 zum Thema Windows Userverwaltung ...

Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Windows Server
gelöst Active Directory Domain Default User Profile (for Windows 8.1) (4)

Frage von adm2015 zum Thema Windows Server ...

Windows Server
gelöst Windows 10 Pro kann nicht ins Active Directory eingebunden werden (12)

Frage von jeschero zum Thema Windows Server ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (19)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...