CREARE ED ESEGUIRE UN VBScipt IN TCL

[71lucky]

Questi di seguito sono il messagio di errore


2016-03-09_181852.jpg

e lo script VBS creato

set WshShell = WScript.CreateObject("WScript.Shell")
Set argv = WScript.Arguments
Dim argDir,argv
Dim argFile
argDir=argv(0)
argFile=argv(1)
WshShell.Run "cmd"
WScript.Sleep 5
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 5
WshShell.SendKeys "telnet servername 25~"
WScript.Sleep 5
WshShell.SendKeys "helo xx.com~"
WScript.Sleep 5
WshShell.SendKeys "mail from: PAGINAWEB@xx.com~"
WScript.Sleep 5
WshShell.SendKeys "rcpt to: indirizzomail~"
WScript.Sleep 5
WshShell.SendKeys "rcpt to: indirizzomail~"
WScript.Sleep 5
WshShell.SendKeys "data~"
WScript.Sleep 5
WshShell.SendKeys "subject: TRANSFERRED FILE NOTIFICATION  " & argDir
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys "Hello to all,~"
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys "All selected file " 
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys " FILES " & argFile
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys "has been succesfully transferred on WEB page~"
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys "Link http://xxx.ASP Directory " & argDir
WshShell.SendKeys "~"
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys "Best regards~"
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys "LUCKY~"
WshShell.SendKeys "~"
WshShell.SendKeys "~"
WScript.Sleep 5
WshShell.SendKeys " ** This email is automatically generated , don't reply to it ** ~"
WScript.Sleep 100
WshShell.SendKeys ".~"
WScript.Sleep 100
WshShell.SendKeys "quit~"
WScript.Sleep 100
WshShell.SendKeys "     exit~"