Ausgabe einer SSH-Sitzung bricht ab

#pragma compile(Console, true)
#include-once

#include <WinAPIConv.au3>

Global CONST $_SCP_EXISTS = _scp_where("PSCP.exe") = "" ? False : True
Global CONST $_SSH_EXISTS = _scp_where("PLINK.exe") = "" ? False : True

#include <File.au3>


#region main function
If @ScriptName = "SCP.au3" Then

EndIf
#endregion


Func _ssh_run(Const $sServer, Const $sUser, Const $sPassword, Const $sCommand, Const $WorkDir = @WorkingDir)
	If Not $_SSH_EXISTS Then Return SetError(1,0,Null)

	Local $hPID = Run(StringFormat("PLINK.exe -batch -pw %s %s@%s %s", _scp_quoteIf($sPassword), $sUser, $sServer, _scp_quoteIf($sCommand)) _
			, $WorkDir, @SW_HIDE, 0x2 + 0x4)
	If $hPID = 0 Then Return SetError(1,@error,"")

	; warten bis Prozess beendet ist
	ProcessWaitClose($hPID)

	Return StdoutRead($hPID)
EndFunc

Func _scp_get(Const $sServer, Const $sUser, Const $sPassword, Const $sFilePath, Const $sTargetPath, Const $WorkDir = @WorkingDir)
	If Not $_SCP_EXISTS Then Return SetError(1,0,Null)

	Local $hPID = Run(StringFormat("PSCP.exe -C -scp -batch -pw %s %s@%s:%s %s", _scp_quoteIf($sPassword), $sUser, $sServer, _scp_quoteIf($sFilePath), _scp_quoteIf($sTargetPath)) _
	, $WorkDir, @SW_HIDE, 0x2 + 0x4)
	If $hPID = 0 Then Return SetError(1,@error,"")

	Local $s_Ret, $s_Line, $s_Err
	Do
		Sleep(10)
		$s_Line = StdoutRead($hPID)
		If @extended > 0 Then $s_Ret &= $s_Line
	Until @error
	Do
		Sleep(10)
		$s_Line = StderrRead($hPID)
		If @extended > 0 Then $s_Err &= $s_Line
	Until @error
	$s_Ret = _WinAPI_OemToChar($s_Ret)
	If $s_Err <> "" Then
		If $s_Ret <> "" Then Return SetError(3, 0, "------- StdOut -----------" & @CRLF & $s_Ret & @CRLF & @CRLF & "------- StdErr -----------" & @CRLF & $s_Err)
		Return SetError(2, 0, $s_Err)
	EndIf

	Return $s_Ret
EndFunc

Func _scp_read(Const $sServer, Const $sUser, Const $sPassword, Const $sFilePath, Const $WorkDir = @WorkingDir)
	If Not $_SCP_EXISTS Then Return SetError(1,0,Null)
	Local $sTempFilePath = _TempFile()
	_scp_get($sServer, $sUser, $sPassword, $sFilePath, $sTempFilePath, $WorkDir)
	If @error Then Return SetError(2,@error, False)
	Local $sFile =FileRead($sTempFilePath)
	FileDelete($sTempFilePath)
	Return $sFile
EndFunc

Func _scp_put(Const $sServer, Const $sUser, Const $sPassword, Const $sFilePath, Const $sTargetPath, Const $WorkDir = @WorkingDir)
	If Not $_SCP_EXISTS Then Return SetError(1,0,Null)
		RunWait(StringFormat("PSCP.exe -C -scp -batch -pw %s %s %s@%s:%s", _scp_quoteIf($sPassword), _scp_quoteIf($sFilePath), $sUser, $sServer, _scp_quoteIf($sTargetPath)) _
				, $WorkDir, @SW_HIDE)
		If @error Then Return SetError(2, @error, "")
EndFunc



; #FUNCTION# ======================================================================================
; Name ..........: _scp_runCmd()
; Description ...: runs commandline programs or cmd-command and return their output
; Syntax ........: _scp_runCmd($s_Cmd, [$sParameter = '', [$b_CmdSpec = False, [$WorkDir = @WorkingDir]]])
; Parameters ....: $s_Cmd        - the command which should be executed (can be full command or without parameters)
;                  $sParameter   - additional parameters for the command
;                  $b_CmdSpec    - If true the command is interpreted as a command for cmd.exe
;                  $WorkDir      - the working directory
; Return values .: Success: returns a string with the output
;                  Failure: set @error and returns a debug-string
; Author ........: AspirinJunkie
; =================================================================================================
Func _scp_runCmd($s_Cmd, $sParameter = '', $b_CmdSpec = False, $WorkDir = @WorkingDir)
	Local Static $h_User32DLL = DllOpen('user32.dll')
	If @error Then Return SetError(1, @error, "")

	If $b_CmdSpec Then $s_Cmd = @ComSpec & " /c " & $s_Cmd

	Local $s_Ret, $s_Line, $s_Err

	If $sParameter <> '' Then $sParameter = ' ' & $sParameter
	Local $iPID = Run($s_Cmd & $sParameter, $WorkDir, @SW_HIDE, 0x2 + 0x4)
	If @error Then Return SetError(2, @error, "")

	Do
		Sleep(10)
		$s_Line = StdoutRead($iPID)
		If @extended > 0 Then $s_Ret &= $s_Line
	Until @error

	Do
		Sleep(10)
		$s_Line = StderrRead($iPID)
		If @extended > 0 Then $s_Err &= $s_Line
	Until @error

	$s_Ret = _WinAPI_OemToChar($s_Ret)

	If $s_Err <> "" Then
		If $s_Ret <> "" Then Return SetError(3, 0, "------- StdOut -----------" & @CRLF & $s_Ret & @CRLF & @CRLF & "------- StdErr -----------" & @CRLF & $s_Err)
		Return SetError(3, 0, $s_Err)
	EndIf
	Return $s_Ret
EndFunc   ;==>_scp_runCmd


; gibt den Pfad einer Datei nur anhand ihres Dateinamens zur�ck (durchsucht Path-Variable)
Func _scp_where(Const $s_Name)
	Local $s_Return = _scp_runCmd("where", _scp_quoteIf($s_Name), True)
	If Not StringRegExp($s_Return, '^[A-Za-z]:\\') Then Return SetError(1, 0, "")
	Return $s_Return
EndFunc   ;==>_scp_where

; adds quotes around string if white spaces are inside
Func _scp_quoteIf(ByRef Const $s_String, Const $s_Quote = '"')
	If StringLeft($s_String, StringLen($s_Quote)) == $s_Quote And StringRight($s_String, StringLen($s_Quote)) == $s_Quote Then Return $s_String
	 Return StringInStr($s_String, ' ', 1) ? $s_Quote & $s_String & $s_Quote : $s_String
 EndFunc