changeHomePage "[URL unfurl="true"]http://website1"[/URL]
changeHomePage2 "[URL unfurl="true"]http://website2"[/URL]
Sub changeHomePage(byval URL)
set objShell=Wscript.CreateObject("Wscript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\" & _
"Internet Explorer\Main\Start Page", URL, "REG_SZ"
end sub
Sub changeHomePage2(byval URL)
set objShell=Wscript.CreateObject("Wscript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\" & _
"Internet Explorer\Main\Secondary Start Pages", URL, "REG_SZ"
end sub