Sub EnumerateUsers() Dim strData, colUsers, objUser, objWMI Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colUsers = objWMI.ExecQuery ("Select * from Win32_UserAccount") For Each objUser in colUsers strData = "" strData = strData & "FullName: " & objUser.FullName & vbCrLf strData = strData & "Name: " & objUser.Name & vbCrLf strData = strData & "SID: " & objUser.SID & vbCrLf strData = strData & "AccountType: " & objUser.AccountType & vbCrLf strData = strData & "SIDType: " & objUser.SIDType & vbCrLf strData = strData & "Status: " & objUser.Status & vbCrLf strData = strData & "Lockout: " & objUser.Lockout & vbCrLf strData = strData & "Disabled: " & objUser.Disabled MsgBox strData Next End Sub