Function CambiaPaginaInicioExplorador()
'Este código cambia en el registro de Windows
'la URL de la página de Inicio así como la Barra de titulo
'Francisco Javier García Aguado
'Junio de 2003
Dim WSHShell As Object
Dim StrBarra As String, StrPagina As String
Set WSHShell = CreateObject("WScript.Shell")
StrPagina = InputBox("Escribe la URL que quieres que sea Página de Inicio")
StrBarra = InputBox("Escribe un texto para barra de título de Explorer")
WSHShell.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", StrPagina
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title", StrBarra
MsgBox "Cambios Realizados " & StrBarra & vbCrLf & "StrPagina de inicio: " & StrPagina, vbExclamation + vbOKOnly, "Ejemplo de WSH"
Set WSHShell = Nothing

End Function