xml.send errors????

TheMSsForum.com: The Microsoft Software Forum

254643



cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\" "Siglist.txt"
c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210.
For the past 2 years, I have been successully issueing the following commands, every night, on Windows XP Pro, via the Task Scheduler.

cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\" "Siglist.txt"
cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/ii_nt86.exe" "C:\TEMP\" "ii_nt86.exe"
cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/iv_nt86.exe" "C:\TEMP\" "iv_nt86.exe"
cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/fi_nt86.exe" "C:\TEMP\" "fi_nt86.exe"
cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/fv_nt86.exe" "C:\TEMP\" "fv_nt86.exe"

The c:\util\ftpvbs.vbs file contains:

Dim objArgument
Set objArgument = Wscript.Arguments
URL=objArgument(0)
DestFolder=objArgument(1)
ImageFile=objArgument(2)
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False, "user", "pass"
xml.Send
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody
' Do not overwrite an existing file
oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
' Use this form to overwrite a file if it already exists
' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
oStream.close
set oStream = nothing
Set xml = Nothing

About a week ago, I started to receive:
c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210.

I have no idea why or how to resolve this.
I can manually download the 5 files with no problem.
Prior to running the script, the previous versions of the 5 files are
deleted from C:\temp.

KB 254643 is the only article which has "System error" and -2146697210

Any help would be appreciated.

Jerold Schulman
Windows Server MVP
JSI, Inc.
http://www.jsiinc.com
http://www.jsifaq.com
Top

Re: xml.send errors???? by Walter

Walter
Sat Jul 08 02:24:38 CDT 2006

This could be a server error.

On Error Resume Next
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False, "user", "pass"
xml.Send
If Err Then
MsgBox xml.Status & vbNewLine & xml.StatusText
End If

"Jerold Schulman" <Jerry@jsiinc.com> wrote in message
news:qkgta29ckoct1cqgmkoh4sr5fdnhd2ftb9@4ax.com...
>
> 254643
>
>
>
> cscript //nologo c:\util\ftpvbs.vbs
> "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\"
> "Siglist.txt"
> c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210.
> For the past 2 years, I have been successully issueing the following
> commands, every night, on Windows XP Pro, via the Task Scheduler.
>
> cscript //nologo c:\util\ftpvbs.vbs
> "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\"
> "Siglist.txt"
> cscript //nologo c:\util\ftpvbs.vbs
> "ftp://ftpav.ca.com/pub/inoculan/scaneng/ii_nt86.exe" "C:\TEMP\"
> "ii_nt86.exe"
> cscript //nologo c:\util\ftpvbs.vbs
> "ftp://ftpav.ca.com/pub/inoculan/scaneng/iv_nt86.exe" "C:\TEMP\"
> "iv_nt86.exe"
> cscript //nologo c:\util\ftpvbs.vbs
> "ftp://ftpav.ca.com/pub/inoculan/scaneng/fi_nt86.exe" "C:\TEMP\"
> "fi_nt86.exe"
> cscript //nologo c:\util\ftpvbs.vbs
> "ftp://ftpav.ca.com/pub/inoculan/scaneng/fv_nt86.exe" "C:\TEMP\"
> "fv_nt86.exe"
>
> The c:\util\ftpvbs.vbs file contains:
>
> Dim objArgument
> Set objArgument = Wscript.Arguments
> URL=objArgument(0)
> DestFolder=objArgument(1)
> ImageFile=objArgument(2)
> Set xml = CreateObject("Microsoft.XMLHTTP")
> xml.Open "GET", URL, False, "user", "pass"
> xml.Send
> set oStream = createobject("Adodb.Stream")
> Const adTypeBinary = 1
> Const adSaveCreateOverWrite = 2
> Const adSaveCreateNotExist = 1
> oStream.type = adTypeBinary
> oStream.open
> oStream.write xml.responseBody
> ' Do not overwrite an existing file
> oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
> ' Use this form to overwrite a file if it already exists
> ' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
> oStream.close
> set oStream = nothing
> Set xml = Nothing
>
> About a week ago, I started to receive:
> c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210.
>
> I have no idea why or how to resolve this.
> I can manually download the 5 files with no problem.
> Prior to running the script, the previous versions of the 5 files are
> deleted from C:\temp.
>
> KB 254643 is the only article which has "System error" and -2146697210
>
> Any help would be appreciated.
>
> Jerold Schulman
> Windows Server MVP
> JSI, Inc.
> http://www.jsiinc.com
> http://www.jsifaq.com


Top

Re: Re: xml.send errors???? by Jerold

Jerold
Sat Jul 08 07:46:41 CDT 2006

On Sat, 8 Jul 2006 03:24:39 -0400, "Walter Zackery" <please_respond_to@group.com> wrote:

>This could be a server error.

Thank you. It was. Problem resolved.

>
>On Error Resume Next
>Set xml = CreateObject("Microsoft.XMLHTTP")
>xml.Open "GET", URL, False, "user", "pass"
>xml.Send
>If Err Then
> MsgBox xml.Status & vbNewLine & xml.StatusText
>End If
>
>"Jerold Schulman" <Jerry@jsiinc.com> wrote in message
>news:qkgta29ckoct1cqgmkoh4sr5fdnhd2ftb9@4ax.com...
>>
>> 254643
>>
>>
>>
>> cscript //nologo c:\util\ftpvbs.vbs
>> "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\"
>> "Siglist.txt"
>> c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210.
>> For the past 2 years, I have been successully issueing the following
>> commands, every night, on Windows XP Pro, via the Task Scheduler.
>>
>> cscript //nologo c:\util\ftpvbs.vbs
>> "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\"
>> "Siglist.txt"
>> cscript //nologo c:\util\ftpvbs.vbs
>> "ftp://ftpav.ca.com/pub/inoculan/scaneng/ii_nt86.exe" "C:\TEMP\"
>> "ii_nt86.exe"
>> cscript //nologo c:\util\ftpvbs.vbs
>> "ftp://ftpav.ca.com/pub/inoculan/scaneng/iv_nt86.exe" "C:\TEMP\"
>> "iv_nt86.exe"
>> cscript //nologo c:\util\ftpvbs.vbs
>> "ftp://ftpav.ca.com/pub/inoculan/scaneng/fi_nt86.exe" "C:\TEMP\"
>> "fi_nt86.exe"
>> cscript //nologo c:\util\ftpvbs.vbs
>> "ftp://ftpav.ca.com/pub/inoculan/scaneng/fv_nt86.exe" "C:\TEMP\"
>> "fv_nt86.exe"
>>
>> The c:\util\ftpvbs.vbs file contains:
>>
>> Dim objArgument
>> Set objArgument = Wscript.Arguments
>> URL=objArgument(0)
>> DestFolder=objArgument(1)
>> ImageFile=objArgument(2)
>> Set xml = CreateObject("Microsoft.XMLHTTP")
>> xml.Open "GET", URL, False, "user", "pass"
>> xml.Send
>> set oStream = createobject("Adodb.Stream")
>> Const adTypeBinary = 1
>> Const adSaveCreateOverWrite = 2
>> Const adSaveCreateNotExist = 1
>> oStream.type = adTypeBinary
>> oStream.open
>> oStream.write xml.responseBody
>> ' Do not overwrite an existing file
>> oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
>> ' Use this form to overwrite a file if it already exists
>> ' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
>> oStream.close
>> set oStream = nothing
>> Set xml = Nothing
>>
>> About a week ago, I started to receive:
>> c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210.
>>
>> I have no idea why or how to resolve this.
>> I can manually download the 5 files with no problem.
>> Prior to running the script, the previous versions of the 5 files are
>> deleted from C:\temp.
>>
>> KB 254643 is the only article which has "System error" and -2146697210
>>
>> Any help would be appreciated.
>>
>> Jerold Schulman
>> Windows Server MVP
>> JSI, Inc.
>> http://www.jsiinc.com
>> http://www.jsifaq.com
>

Jerold Schulman
Windows Server MVP
JSI, Inc.
http://www.jsiinc.com
http://www.jsifaq.com
Top