This should be simple.

1. Write code to read the data from Excel i.e Links. which I think byZaroor
has already provided.

2. Pass the value of link read from excel cell as parameter in the following
statement:

str_URL_FromExcel = "http://www.google.com";

SystemUtil.Run("iexplore.exe",str_URL_FromExcel)

3. If you have the list of error codes available than you can pick the error
codes from there and search it on the page.
Else You need to do is to prepare the list of error codes that can be
reffered from below links:
http://en.wikipedia.org/wiki/List_of_HTTP_status_codes
http://webmaster.iu.edu/tool_guide_info/errorcodes.shtml

*Solution2-*
Dim objIE
Set objIE = WScript.CreateObject ("InternetExplorer.Application")
objIE.Toolbar = false
objIE.statusbar=false
str_URL_FromExcel = "http://www.google.com";
objIE.Navigate str_URL_FromExcel
 If Err.Number <> 0 Then
  WScript.Echo "Error number is      = " & Err.Number
  WScript.Echo "Error Description is = " & Err.Description
  WScript.Echo "The web-page is not loading"

 Else
  WScript.Echo "Error number is      = " & Err.Number
  WScript.Echo "Error Description is = " & Err.Description
  WScript.Echo "The web-page is loading perfectly fine"
 End If

NjOy...!!!! :)



Regards
Shalabh Dixit



On Thu, Jul 14, 2011 at 10:30 PM, chaman kalra <[email protected]> wrote:

> Hello Group Members,
>
> I have 5000 links containing in a excel. i need to check every link. We
> need to  placed every link in a browser and validate the response. If
> response received by the server is error code. link failed. We have to
> record the output in the excel sheet
>
> Kindly help to provide the script for the same.
>
>
> --
> Thanks & Regards
> Chaman Kalra
> Internet Email :[email protected]
>
>
>
>
>
> ==============
> *Dhan Nirankar Ji*
>
>  --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en

-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

Reply via email to