You could also try running something like this to see all the names of the profiles.

Dim $ProL,$PL,$Tmp,$DV
$ProL = ExpandEnvironmentVars(ReadValue('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList','ProfilesDirectory'))
$PL   = Dir($ProL)
While $PL <>'' And @ERROR = 0
  If $PL
    If Not InStr($PL,'.') And Not InStr($PL,'..')
      $PL ?
    EndIf
  EndIf
  $PL = Dir()
Loop