Set objReg = GetObject("winmgmts:\\" & COMPUTER & "\root\default:StdRegProv")
 
KeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
objReg.EnumKey HKEY_LOCAL_MACHINE, KeyPath, ValueArray
 
 
Dim val
For Each Value In ValueArray
 
   objReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, KeyPath + "\" + Value, _
     "ProfileImagePath", val
 
   Debug.Print Mid(val, InStrRev(val, "\", Len(val)) + 1) & "   " & Value
 
 
Next

Gru?

Ralf