Welcome !

After experiencing a lot of down time, We decided to move this site to CrystalTech.com. CrystalTech.com is powered by only the finest Windows servers providing the best performance, reliability, and value anywhere.

VBSCRIPT returns a null or no indication of error. Pls help

Author	Message

Vinaycdm

Total Posts : 2
Scores: 0
Reward points : 0
Joined: 1/18/2010
Status: offline

VBSCRIPT returns a null or no indication of error. Pls help Monday, January 18, 2010 6:46 AM (permalink)

Hi Guys,

My Vbscript (below) transfers files to maniframe systems. It works well when the file size is minimal or transfer is able to complete within one-hour.

If the Transfer takes more than one hour then it stops suddenly given no reason for the same.

Iam very confused on why this is happening.

        ' Run via ASP script
        Set HTTPRequest = WScript.CreateObject("WinHttp.WinHttpRequest.5.1")        'Timeouts. Resolve name: 60secs. Connect: 60secs (def). Send: 500mins. Receive: 500mins.
        Call HTTPRequest.SetTimeouts(60000, 60000, 30000000, 30000000)        RunJobReport("I:" & TransferURL & sTransferQueryString)        Call HTTPRequest.Open("GET", TransferURL & sTransferQueryString, False)
        Call HTTPRequest.Send()        Errorlevel = HTTPRequest.Status        ' Check status of job
        If Errorlevel <> 200 Then  ' 200 = No error
           Errorlevelrep = Mid( HTTPRequest.ResponseText , (InStr( 1, "Error Code: ", HTTPRequest.ResponseText ) + 13) , 4 )
           Errorlevel = 1
           RunJobReport("F:Errorlevel = " & Errorlevelrep )
           RunJobReport("F:After XCOM for " & Dataroot & Lfile_SEG_DATA)
           WScript.Quit(Errorlevel)
        Else

     Sub RunJobReport(ReportString)       WScript.Echo Now & " : " & ReportString
       LogEventWSHSHELL.LogEvent Errorlevel, "APP:" & Now & " : " & ReportString     End Sub

Iam getting F:Errorlevel= (nothing)

Since there is no errorcode it is difficult to debug the error

Somebody pls help