' /* Create Shell Object */
dim newurl
dim WSH
set WSH = createobject("WScript.Shell")
 
' /* Get The URL From The User */
newurl = inputbox("Please, Enter The New Home Page")
 
' /* If They Hit Cancel, Or Leave It Blank Then Exit Sub */
if newurl = "" then exit sub
 
' /* Set The Home Page To The New URL */
wsh.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", newurl
 
' /* Tell us It's Done */
msgbox "Done!"