I'm using the below code in vb script which i'm using to send the files over to a remote server:
'#### Function to SCP File #######
Function scpFile(fileName)
Set WshShell = WScript.CreateObject("WScript.Shell")
strRunSCP = "pscp -p -v -pw pwld39Dq " & fileName & "
[email protected]:/cygdrive/f/FtpRoot/SanctionResponse/"
'x.x.x.x is the IP of the remote machine
Cmd = "%comspec% /c " & strRunSCP
intRun = WshShell.Run(Cmd, 0, True)
WScript.StdOut.Writeline "Run status is " & intRun
scpFile = intRun
End Function
'#################################