Issues with Sending Variable Command

[SaintedRogue]

Ok, so I am working on a script to backup up the HKU Registry settings live on a system. I have most of it working properly. I am able to get the necessary user SID and put them into a variable. To back them up, I want to run the following command:

REG SAVE HKU\<Insert SID Here> <Save Location>\#.dat

Basically, I have that command working with this code here:

Local $s_Out = ""
$h_Proc = Run(@ComSpec & " /c " & "Reg query hku", "", @SW_HIDE, 0x08)
While 1
    $s_Out &= StdoutRead($h_Proc)
    If @Error Then ExitLoop
WEnd
$aLines = StringRegExp($s_Out, "(?m:^)\h*\S.+(?:\v|$)+", 3)
If NOT @Error Then
For $i = 0 To Ubound($aLines) -1
  $s_Val = $aLines[$i]
;  MsgBox(0, "Result " & $i+1, $s_Val)
Next
EndIf
;Use Array to Backup HKU
;Send("REG{space}SAVE{space}HKEY_USERS\" & $aLines+1 & "{space}" & @ScriptDir & "\Evidence\" &.dat")
;Open Command Prompt
Run("cmd.exe")
;Match Windows by SubString
Opt("WinTitleMatchMode", 2)
;Wait until the program opens.
WinWaitActive("cmd")
If NOT @Error Then
For $i = 0 To Ubound($aLines) -1
  $s_Val = $aLines[$i]
  ;MsgBox(0, "Result " & $i+1, $s_Val)
  ;Send("REG{space}SAVE{space}HKEY_USERS\" & $s_Val & "{space}" & @ScriptDir & "\Evidence\" & $i+1 & ".dat")
  Run("cmd /c REG SAVE " & $s_Val & " " & @ScriptDir & "\Evidence\" & $i+1 & ".dat")
Next
EndIf

But my issue comes to this. When the Command Prompt opens it enters properly, however with the variable it hits enter early and breaks the command. Is there anyway I can send the whole command? I have tried sending RAW as well and the variable does the same thing.

All thoughts and help are welcomed, and appreciated.

[Spiff59]

Your main issue is that @ScriptDir likely contains spaces so is not treated as a single parameter.

Wrapping it in quotes (which can be done a half dozen ways ) ought to fix you up:

#include <Array.au3> ; test
DirCreate(@ScriptDir & "Evidence") ; test
Local $aLines, $x

While 1
  $x += 1
  $aLines &= RegEnumKey("HKU", $x) & "|"
  If @error Then ExitLoop
WEnd
$aLines = StringSplit(StringTrimRight($aLines, 2), "|")
_ArrayDisplay($aLines) ; test

For $i = 1 To $aLines[0]
  ToolTip("Processing: " & $aLines[$i] & "..."); test
  RunWait("cmd /c REG SAVE HKU" & $aLines[$i] & ' "' & @ScriptDir & "Evidence" & $i & '.dat"', "", @SW_HIDE)
Next

[BrewManNH]

The problem is that the folder @ScriptDir & "Evidence" probably doesn't exist on the machine you're running the script on. I ran your script on my computer and it appeared that it worked, but nothing was created. As soon as I created the Evidence folder it worked. Try this code:

If Not FileExists(@ScriptDir & "Evidence") Then DirCreate(@ScriptDir & "Evidence")
Local $s_Out = ""
$h_Proc = Run(@ComSpec & " /c " & "Reg query hku", "", @SW_HIDE, 0x08)
While 1
    $sTemp = StdoutRead($h_Proc)
    $s_Out &= $sTemp
    If @error Then ExitLoop
WEnd
$aLines = StringRegExp($s_Out, "(?m:^)h*S.+(?:v|$)+", 3)
Run("cmd.exe")
;Match Windows by SubString
Opt("WinTitleMatchMode", 2)
;Wait until the program opens.
WinWaitActive("cmd")
If Not @error Then
    For $i = 0 To UBound($aLines) - 1
        $s_Val = $aLines[$i]
        $s_Val = StringStripWS($s_Val, 2)
        ;MsgBox(0, "Result " & $i+1, $s_Val)
        ;Send("REG{space}SAVE{space}HKEY_USERS" & $s_Val & "{space}" & @ScriptDir & "Evidence" & $i+1 & ".dat")
        Run("cmd /c REG SAVE " & $s_Val & " " & @ScriptDir & "Evidence" & $i + 1 & ".dat /y") ; <<< The /y is in case it's run on the same machine more than once, it overwrites the existing file.
    Next
EndIf

[SaintedRogue]

Sir, thank you so much for simplifying a problem I've spent 2.5 weeks on. HAHAH! You're amazing!