$Myarray = Split("%SystemRoot%\Profiles\operez","\")
$x = UBOUND($MyArray)
$UserName = $MyArray[$x]
Shell '%comspec% /c tsprof /q /domain:frost_bank $UserName' >$file
? "Results from $file"

If @ERROR = 0
  Do something
Else
  Report an error
EndIf

If RedirectOutput("H:\CleanProfileList.log") = 0
EndIf

? "== @Time == @Date ====================================================="
$vIndex = 0
$sRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
$aLocalUsers = "All Users","Administrator","Default User"
$sTSProfError = "Failed getting User Configuration, Error = 2 (0x2)"

:Loop1
$sKeyValue = EnumKey("$sRegKey", $vIndex)
If @ERROR = 0
  $vCentralProfile = ReadValue("$sRegKey\$sKeyValue", "CentralProfile")
  ? "*............................................................*"
  If @ERROR = 0
    If LEFT($vCentralProfile, 11) = "C:\PROFILES"
      ? "  CentralProfile is equal to old mandatory profile"
      ? "  Deleting SID: $sKeyValue"
      $vRC = DelKey("$sRegKey\$sKeyValue")
      If $vRC = 0
        ? "  .. SID Key $sKeyValue deleted .... "
      EndIf
    Else
      $vProfileImagePath = ReadValue("$sRegKey\$sKeyValue", "ProfileImagePath")
      If @ERROR = 0
        ? "  Current Local Profile Path: $vProfileImagePath"
        $aUserID = Split("$vProfileImagePath","\")
        $vX = UBOUND($aUserID)
        $sUserID = $aUserID[$vX]
        ? "  User ID is: $UserID"
        $vX = ASCAN($aLocalUsers, $sUserID)
        If Not (1+$vX) ; $vX <> 0
          $aTSProfCmd = WshPipe("tsprof /q /domain:MyCompany $UserID",1)
          If @ERROR = 0
            $sTSProfResults = $aTSProfCmd[0]
            $aStripFirst = Split($sTSProfResults,"{")
            $vX = UBOUND($aStripFirst)
            $sProfilePath = $aStripFirst[$vX]
            $aStripLast = Split($sProfilePath,"}")
            $sTSProfilePath = $aStripLast[0]
            If $sTSProfilePath <> $sTSProfError
              $vRC = WriteValue("$sRegKey\$sKeyValue", "CentralProfile", "$sTSProfilePath", "REG_SZ")
              If @ERROR = 0
                ? "  Set Terminal Server Profile Path to: $sTSProfilePath"
              Endif
              $vRC = WriteValue("$sRegKey\$sKeyValue", "ProfileImagePath", _
                     "%%SystemRoot%%\Profiles\$sUserID", "REG_EXPAND_SZ")
              If @ERROR = 0
                ? "  Set Local Profile Path to: %%SystemRoot%%\Profiles\$UserID"
              Endif
            Else
              $vRC = DelKey("$sRegKey\$sKeyValue")
              If $vRC = 0
                ? "  ..  Not in domain, deleting SID: $sKeyValue"
              Endif
            EndIf
          EndIf
        Else
          ? "  ..User ID $sUserID, is a Local ID and is being by passed"
        EndIf
      EndIf
    EndIf
  EndIf
  $vIndex = $vIndex + 1
  goto Loop1
EndIf

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
  Dim $oExec, $Output
  $oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
  If Not VarType($oExec) = 9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
    $Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
  If Not $NoEcho $Output EndIf
    $WshPipe = Split(Join(Split($Output,CHR(13)),''),CHR(10))
  Exit($oExec.ExitCode)
EndFunction