Get the actual website

[suoirotciv]

Is it possible to get the actual website of this url below, which is "

http://www.starr-al.com/"?

http://www.yellowbook.com/link/?lis...-b7f6-8a57d72bbbcf&userId=apirinte01&siteId=1

========================================
I kept my Job because of TEK-TIPS
Thanks a lot to all who keeps on helping others.

 

[markdmac]

The following code will launch the given URL and then return the actual URL information.

Set IE = createobject("internetexplorer.application")
IE.navigate "[URL unfurl="true"]http://www.yellowbook.com/link/?listingId=1821815872&listingTypeId=2&sessionUID=www1044a5fc428450c7&visitorUID=www1114a5c10783bbe3&searchUID=e7e69632-102c-421f-b6ea-e8b4f11895d3&webRequestUID=9c45b767-f70b-4039-b7f6-8a57d72bbbcf&userId=apirinte01&siteId=1"[/URL] 	
IE.visible = true
 
Set objShell = CreateObject("Shell.Application")
Set objShellWindows = objShell.Windows
 
For i = 0 to objShellWindows.Count - 1
    Set objIE = objShellWindows.Item(i)
    strURL = objIE.LocationURL
	If Left(strURL,4) = "http" Then
		WScript.Echo strURL
	End IF
Next
IE.Quit

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[markdmac]

A shorter version. I could not get this to work earlier because I had to wait for IE to not be busy...

Set IE = CreateObject("internetexplorer.application")
IE.navigate "[URL unfurl="true"]http://www.thespidersparlor.com"[/URL]
IE.visible = true
Do While IE.Busy = True
	WScript.Sleep 2000 
Loop
WScript.Echo "URL:" & IE.LocationURL
IE.Quit

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.