error codes with msxml in vbs file

[bdc101]

I am getting one of two error codes from a vbs file when the task scheduler in Windows Server 2003 tries to run it. The file is used to generate several different sales reports at night. The reports will still generate if someone is there to press ok within a certain amount of time on the alert that pops up. If the reports do not run at night they need manually run in the morning. The section of code causing the error is as follows:

function getURL(url)
if left(url,7)<>"

http://"

then url="

http://"&

url
set x = CreateObject("MSXML2.ServerXMLHTTP")
x.Open "GET",url,true
x.Send
for n = 1 to 15
If x.readyState = 4 then exit for
'While x.ReadyState <> 4
x.waitForResponse 180000 --line that causes error
'Wend
next
getURL = x.responseText
end function

The error code changes depending on the code. with the IF statement and FOR loop, the error code is 8000000a. With the While loop the error code is 80072EF1. Everything I have read has said these errors have to do with SUS updates. Any ideas on how to make the error go away? Thanks.

--bdc101

 

[tsuji]

[tt]>x.waitForResponse 180000 [/tt]
Would 180000 sec (50 hours) not be a bit too long? Look strange. Have you tried it shorter?
[tt]x.waitForResponse 180[/tt]

 

[bdc101]

I have tried several different values for the line ranging from 1 up to 180000. Originally the value was 1.

--bdc101

 

[tsuji]

Probably a connection problem.

[tt]Per documented error code

ref

http://support.microsoft.com/default.aspx?scid=kb;en-us;186063

Refer to Winerror.h

-2147483638 (8000000A)
The data necessary to complete this operation not yet available.

ref

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/wininet_errors.asp

ERROR_INTERNET_OPERATION_CANCELLED
12017 (2ef1)
The operation was canceled, usually because the handle on which the request was operating was closed before the operation completed.
[/tt]