PDA

Vollständige Version anzeigen : Windows Benutzerdaten in VBA auslesen


Powerhouse
25.10.2007, 14:06
Kann mir jemand sagen, welche Userdaten man im VBA auslesen kann (und wie)?

Wie man den User.Name, den User.LastLogin und den User.FullName ausliest habe ich unter folgenden Thread gefunden: http://www.ms-office-forum.net/forum/showthread.php?t=187836

Was mich aber noch interessiert, sind die weitern Daten, die mit dem DOS-Befehl NET USER xxxx angezeigt werden. Besonders ob der User aktiv ist oder nicht. (Wenn ich z. B. User.Enabled verwende wird nichts angezeigt)

(Falls es jemanden interessiert wieso: Im Windows XP Home kann man im Gegensatz zum XP Pro die User nicht über die Systemsteuerung inaktiv setzen. Ich möchte eine Verwaltungsmaske erstellen über die man die User aktivieren bzw. deaktivieren kann ohne dass man den NET USER Befehl verwenden muss.)

~~~dexter~~~
31.10.2007, 08:14
@Powerhouse

Folgende Eigenschaft kannst Du mit Hilfe des WinNT-Providers auslesen:


On Error Resume Next
Set User = GetObject("WinNT://./dummy")
Wscript.Echo "AccountDisabled: " & User.AccountDisabled
Wscript.Echo "AccountExpirationDate: " & User.AccountExpirationDate
Wscript.Echo "BadLoginCount: " & User.BadLoginCount
Wscript.Echo "BadPasswordAttempts: " & User.BadPasswordAttempts
Wscript.Echo "Description: " & User.Description
Wscript.Echo "FullName: " & User.FullName
Wscript.Echo "HomeDirDrive: " & User.HomeDirDrive
Wscript.Echo "HomeDirectory: " & User.HomeDirectory
Wscript.Echo "IsAccountLocked: " & User.IsAccountLocked
Wscript.Echo "LastLogin " & User.LastLogin
Wscript.Echo "LastLogoff: " & User.LastLogoff
Wscript.Echo "LoginHours: " & User.LoginHours
Wscript.Echo "LoginScript: " & User.LoginScript
Wscript.Echo "LoginWorkstations: " & User.LoginWorkstations
Wscript.Echo "MaxLogins: " & User.MaxLogins
Wscript.Echo "MaxPasswordAge: " & User.MaxPasswordAge
Wscript.Echo "MaxStorage: " & User.MaxStorage
Wscript.Echo "MinPasswordAge: " & User.MinPasswordAge
Wscript.Echo "MinPasswordLength: " & User.MinPasswordLength
Wscript.Echo "ObjectSid: " & User.ObjectSid
Wscript.Echo "Parameters: " & User.Parameters
Wscript.Echo "PasswordAge: " & User.PasswordAge
Wscript.Echo "PasswordExpirationDate: " & User.PasswordExpirationDate
Wscript.Echo "PasswordExpired: " & User.PasswordExpired
Wscript.Echo "PasswordHistoryLength: " & User.PasswordHistoryLength
Wscript.Echo "PasswordMinimumLength: " & User.PasswordMinimumLength
Wscript.Echo "PrimaryGroupID: " & User.PrimaryGroupID
Wscript.Echo "Profile: " & User.Profile
Wscript.Echo "RasPermissions: " & User.RasPermissions
Wscript.Echo "UserFlags: " & User.UserFlags
Wscript.Echo
Wscript.Echo "AdsPath: " & User.AdsPath
Wscript.Echo "Class: " & User.Class
Wscript.Echo "GUID: " & User.GUID
Wscript.Echo "Name: " & User.Name
Wscript.Echo "Parent: " & User.Parent
Wscript.Echo "Schema: " & User.Schema

Powerhouse
31.10.2007, 08:40
Vielen Dank für die ausführliche Antwort. Jetzt bleiben wirklich keine Fragen mehr offen! (Ich habe es immer mit User.Enabled oder User.Active versucht.)