Sub Main()
 
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006
 
Const COMPUTER = "."
 
Dim objReg, objXL
Dim intIndex
 
Set objReg = GetObject("winmgmts:\\" & COMPUTER & "\root\default:StdRegProv")
 
KeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
objReg.EnumKey HKEY_LOCAL_MACHINE, KeyPath, ValueArray
 
intIndex = 2
 
For Each Value In ValueArray
 
    account = LookupAccountSid(Value)
    intIndex = intIndex + 1
    MsgBox (Value)
    MsgBox (account)
 
Next
 
End Sub
 
Public Declare Function LookupAccountSid Lib "advapi32.dll" Alias _
  "LookupAccountSidA" (ByVal lpSystemName As String, Sid As Any, ByVal name As _
  String, cbName As Long, ByVal ReferencedDomainName As String, _
  cbReferencedDomainName As Long, peUse As Integer) As Long