Verify if page renders

[sanvan]

I need to create a vbscript that will verify our website is available. I would like the script to request a page and check that it has rendered fully. If it has, the script can stop. If it hasn't, then I'd like the script to retry until it is successful or has 4 failed attempts. On the 4th failed attempt, it would send an email.

1. Is this possible to do with vbscipt?
2. If so, does anyone have a sample script?

I am fairly new to OOP (primarily a mainframe developer) so simple explanations are always appreciated. I have done simple scripts to stop/start services and send an email when a problem is encountered so I am a little familiar with the email process.

Thank you!

 

[tsuji]

Should "search" the forum... I think it is treated many times, quick and dirty one way or another.

 

[sanvan]

I performed many searches on the forum and found nothing. I used keywords such as "page renders" and "monitor page render" and "verify page". Being new to OOP, I imagine it is quite possible I am not using the proper syntax. Do you have any suggestions for finding the appropriate material on the forum?

Thanks.

 

[dm4ever]

http://www.tek-tips.com/viewthread.cfm?qid=1395360

found it by search internetexplorer.application

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[tsuji]

I understand search may not be perfect. (For this occasion, I have also some difficulty.) Rather let me draft a quick script for purpose according to my concern at this moment.
[tt]

dim ieErr 'need this global variable declared

dim surl
surl="

http://www.google.com/unknownpageunknownpage.html"

if checkpage(surl) then
wscript.echo surl & vbcrlf & "loading is successful"
else
wscript.echo surl & vbcrlf & "loading is failed for mulititude of reasons."
end if

function checkpage(surl)
'need and dependent on a global variable ieErr set up
'return true: no error; false: error occured
dim oie
ieErr=true 'reset global
set oie=wscript.createobject("internetexplorer.application","ie_")
'oie.visible=true 'uncomment duriing debug
oie.navigate surl
do while oie.readystate<>4 : wscript.sleep 500 : loop
oie.quit
checkpage=ieErr
end function

Sub ie_NavigateError(pDisp,URL,TargetFrameName,StatusCode,Cancel)
'need and dependent on a global variable ieErr set up
ieErr=false 'false for failure one reason or another
End Sub
[/tt]
This should be a relative sophisticated approach which is capable of capturing a multitude of reasons for the page to fail: site down, inexisiting specific page etc... It does not depend on localization error page redirection etc.