VBScript mit WINscp für einfachen FTP Transfer und nachträglichem verschieben der Datei in ein erledigt Verzeichnis

Set objFSO = CreateObject("Scripting.FileSystemObject")  
 Set objShell = CreateObject("WScript.Shell")  
 Const intForReading = 1
 
 scp_script_dir="\\192.168.2.1\Batch\Batch_TEST"  
 scp_script_dir="\\192.168.2.1\Batch\TEST\workdir"  

 strTextFiles = "hello.txt"  
 arrTextFiles = Split(strTextFiles, ";")  

 For intFile = LBound(arrTextFiles) To UBound(arrTextFiles)
       Set objTextFile = objFSO.OpenTextFile(arrTextFiles(intFile), intForReading, False)
       While Not objTextFile.AtEndOfStream
             strServerName = objTextFile.ReadLine
             strScriptText = "# Auto-generated script file For server: " & strServerName & vbCrLf  
             strScriptText = strScriptText & "# Automatically answer all prompts negatively not to stall" & vbCrLf  
             strScriptText = strScriptText & "# the script on errors" & vbCrLf  
             strScriptText = strScriptText & "option batch on" & vbCrLf  
             strScriptText = strScriptText & "# Disable overwrite confirmations that conflict with the previous" & vbCrLf  
             strScriptText = strScriptText & "option confirm off" & vbCrLf  
             strScriptText = strScriptText & "# Connect using a password" & vbCrLf  
             strScriptText = strScriptText & "# open User:****" & vbCrLf  
             strScriptText = strScriptText & "# Connect" & vbCrLf  
             strScriptText = strScriptText & "open root:ftp.server.com" & vbCrLf  
             strScriptText = strScriptText & "# Change remote directory" & vbCrLf  
             strScriptText = strScriptText & "cd /upload" & strServerName & vbCrLf  
             strScriptText = strScriptText & "# Force binary mode transfer" & vbCrLf  
             strScriptText = strScriptText & "option transfer binary" & vbCrLf  
             strScriptText = strScriptText & "# Upload file to the directory in SAP" & vbCrLf  
             strScriptText = strScriptText & "put " & strServerName & "*.txt \\192.168.2.1\Export" & vbCrLf  
             strScriptText = strScriptText & "# Disconnect" & vbCrLf  
             strScriptText = strScriptText & "close" & vbCrLf  
             strScriptText = strScriptText & "# Exit WinSCP" & vbCrLf  
             strScriptText = strScriptText & "exit"  
             Set objOutputFile = objFSO.CreateTextFile(scp_script_dir & "\winscp_script.txt", True)  
             objOutputFile.Write strScriptText
             objOutputFile.Close
             Set objOutputFile = Nothing
             MsgBox "About to run:" & VbCrLf & """C:\Tools\WinSCP\WinSCP.exe"" /console /script=" & scp_script_dir & "\winscp_script.txt" & _  
                   VbCrLf & "When you click OK, the winscp_script.txt file will be displayed for you to check, then when you close it, you will be asked whether to run that script."  
             objShell.Run "notepad """ & scp_script_dir & "\winscp_script.txt" & """", 1, True  
             strResponse = MsgBox("Do you want to run the winscp_script.txt file?", vbYesNo, "Run Script File?")  
             If strResponse = vbYes Then
                   objShell.Run """D:\Tools\WinSCP\WinSCP.exe"" /console /script=" & scp_script_dir & "\winscp_script.txt", 1, True  
             End If
       Wend
       objTextFile.Close
       Set objTextFile = Nothing
 Next

 MsgBox "Done"  

cscript  "\\citrix-alias\citrixroot$\Gruen\Batch\WI_Batch_TEST\Test_FTP.vbs"  

\\192.168.2.1\Batch\Test_FTP.vbs(12, 8) Microso
ft VBScript runtime error: File not found