Hallo!
Sub ReadAllUsers()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where LocalAccount = True")
For Each objItem In colItems
Select Case objItem.Name
Case "Administrator", "Gast", "DefaultAccount"
Case Else
Debug.Print "Name: " & objItem.Name
Debug.Print "SID: " & objItem.SID
End Select
Next
End Sub
Mit diesem Code lese ich alle Benutzerkonten aus. Es gelingt mir jedoch nicht den gerade aktiven Benutzer zu überspringen. Den Benutzernamen fest angeben kann ich nicht, da er mir in der Regel nicht bekannt ist. Gibt es eine Lösung? Danke!
Gruß, René
