Option Explicit
 
Const title = "Eingabe User-ID"
Const title2 = "Eingabe Domain"
Const title3 = "Eigenschaften User"
 
Dim oDomain, oUser, user, domain, UserFlags, txt, tmp, tmp2, Message, Message2
 
Message = "User-Kennung eingeben"
Message2 = "Domain-Kennung eingeben" & VbCrLf & "//. bedeutet lokal"
 
' Benutzer / Domäne abfragen
domain = GetDomain (domain, Message2, title2)
user = GetUser (user, Message, title)
Set oUser = GetObject("WinNT:" & domain & "/" & user)
 
' Eigenschaften abfragen / ausgeben
txt = "Konto deaktiviert: " & oUser.AccountDisabled & VbCrLf
txt = txt & "Konto gesperrt: " & oUser.IsAccountLocked
 
MsgBox txt, vbOKOnly + vbInformation, title3
 
 
Function GetUser (Value, Message, Title)
Function GetDomain (Value, Message2, Title)