3 Ways to shell an URL

A Member of egocrew.de asked me how to shell an URL with VBScript. This is the answer... there are three ways to do it.

Code

GeSHi (vbs):
Const sURL = "http://www.egocrew.de/board/thread.php?goto=firstnew&threadid=15820"
 
Dim Shell
dim oIE
 
 
MsgBox "I will open the same URL with three different ways, choose your ;)",vbInformation
 
'#########################################
'First of all, just call the explorer.exe
'and deliver an URL as argument
CreateObject("WScript.Shell").Run "Explorer.EXE " & sURL,0,True
 
'#########################################
'The next one, should open your registered
'default browser and navigate to the url.
'See http://msdn2.microsoft.com/en-us/library/ms630455.aspx for more info
Set Shell=CreateObject("Shell.Application") 
 
Shell.ShellExecute sURL,Args,Dir,Operation,Show
 
'#########################################
'This way creates a new instance of the IExplorer
'You can use its DOM to fill out password fields
'an log into your webmail for example.
Set oIE = CreateObject("InternetExplorer.Application")
 
Do While oIE.Busy
Loop
 
'Show the new IE window
oIE.Visible = 1
 
'Navigate to the url
oIE.Navigate sURL
 
'Lets wait until the complete page is loaded
Do While oIE.ReadyState <> 4 'READYSTATE_COMPLETE
Loop
 
'If you wan to close the just opened IE, use
oIE.Quit
'(c) by Marook 08/2007
Created by GeSHI 1.0.7.20