El Blog de Gualtrysoft

Windows 2000/2003/2008, Active Directory, VBScript, Hyper-V, PowerShell y todo aquello interesante a la hora de usar, configurar y administrar Windows Server. También tenemos longanizas…

Script VBScript Para Establecer La Página De Inicio De Internet Explorer

Posted by urpiano en Jueves 7 \07\UTC junio \07\UTC 2007

Script VBScript que cambia la página de inicio de Internet Explorer para el usuario que lanza el script.

Sintaxis

{wscript | cscript [//nologo]} pagina-inicio-ie.vbs [/?] [url

Siendo

Parámetro ¿Requerido? Descripción
/? No
Muestra la ayuda en línea.
url No
URL de la página que se quiere establecer como página de inicio. En el caso de omitirse se establece una página en blanco.

Ejemplos

– Establece la página de inicio en blanco

wscript pagina-inicio-ie.vbs

– Establece como página de inicio http://freyes.svetlian.com

cscript //nologo pagina-inicio-ie.vbs http://freyes.svetlian.com

El script se basa en establecer el valor Start Page, ubicado en la clave del registro HKCUSoftwareMicrosoftInternet ExplorerMain.

'pagina-inicio-ie.vbs
'
'Script VBScript que cambia la página de inicio
'de Internet Explorer para el usuario que lanza
'el script.
'
'Sintaxis
'
'{wscript | cscript [//nologo]} pagina-inicio-ie.vbs [/?] [url]
'
'Siendo
'
'- url: parámetro opcional con la URL de la página que se
'       quiere establecer como página de inicio. En el caso
'       de omitirse se establece una página en blanco
'- ?:   parámetro opcional que muestra la ayuda en línea
'
'Ejemplos
'
'Establece la página de inicio en blanco
'wscript pagina-inicio-ie.vbs
'
'Establece como página de inicio http://freyes.svetlian.com
'cscript //nologo pagina-inicio-ie.vbs http://freyes.svetlian.com
'
'© Fernando Reyes - Junio de 2007

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

Dim str_Equipo, str_PaginaInicio, str_Clave
Dim obj_Registro, str_Valor

'Si hay que mostrar la ayuda en línea
If WScript.Arguments.Named.Exists("?") Then

    'Mostramos la ayuda en línea
    Call s_Ayuda
    
    'Terminamos el script
    WScript.Quit 0
    
End If

'Establecemos el equipo local
str_Equipo = "."

'Si no se ha recibido el parámetro de página
'de inicio...
If WScript.Arguments.Unnamed.Count = 0 Then

    'establecemos la página en blanco
    str_PaginaInicio = "about:blank"
    
'Si se ha recibido el parámetro de página
'de inicio...
Else    

    'recogemos la página de inicio recibida
    str_PaginaInicio = WScript.Arguments.Unnamed(0)
    
End If

'Obtenemos el proveedor del registro
Set obj_Registro = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}\" & str_Equipo & _
        "rootdefault:StdRegProv")

'Establecemos la clave donde está el valor con la página
'de inicio
str_Clave = "SoftwareMicrosoftInternet ExplorerMain"

'Establecemos el valor
str_Valor = "Start Page"

'Establecemos la página de inicio
obj_Registro.SetStringValue HKEY_CURRENT_USER, str_Clave, _
    str_Valor,str_PaginaInicio
    
'Limpieza de retaguardia :-))
Set obj_Regi`stro = Nothing


Sub s_Ayuda()

    WScript.Echo "pagina-inicio-ie.vbs"
    WScript.Echo ""
    WScript.Echo "Script VBScript que " & _
                 "cambia la página de " & _
                 "inicio"
    WScript.Echo "de Internet Explorer" & _
                 " para el usuario que" & _
                 " lanza"
    WScript.Echo "el script."
    WScript.Echo ""
    WScript.Echo "Sintaxis"
    WScript.Echo ""
    WScript.Echo "{wscript | cscript [/" & _
                 "/nologo]} pagina-inic" & _
                 "io-ie.vbs [/?] [url]"
    WScript.Echo ""
    WScript.Echo "Siendo"
    WScript.Echo ""
    WScript.Echo "- url: parámetro opcio" & _
                 "nal con la URL de la p" & _
                 "ágina que se"
    WScript.Echo "       quiere establec" & _
                 "er como página de inic" & _
                 "io. En el caso"
    WScript.Echo "       de omitirse se " & _
                 "establece una página e" & _
                 "n blanco"
    WScript.Echo "- ?:   parámetro opcio" & _
                 "nal que muestra la ayu" & _
                 "da en línea"
    WScript.Echo ""
    WScript.Echo "Ejemplos"
    WScript.Echo ""
    WScript.Echo "Establece la página de" & _
                 " inicio en blanco"
    WScript.Echo "wscript pagina-inicio-" & _
                 "ie.vbs"
    WScript.Echo ""
    WScript.Echo "Establece como página " & _
                 "de inicio http://freye" & _
                 "s.svetlian.com"
    WScript.Echo "cscript //nologo pagin" & _
                 "a-inicio-ie.vbs http:/" & _
                 "/freyes.svetlian.com"
    WScript.Echo ""

End Sub 's_Ayuda

 

 

4 comentarios to “Script VBScript Para Establecer La Página De Inicio De Internet Explorer”

  1. Jaime said

    Hola Fernando, (soy de los que se han leido toda la sección de “Quien soy” ;) )

    estoy empezando a entrar en el mundo de las GPO´s y veo que llega un momento que es necesario el uso de los scripts para temas concretos. He dado con tu página y la verdad es que es de agradecer lo que te has currado. Querría preguntarte si conoces algún link o alguna documentación que me explique cómo agarrar uno de tus scripts , por ejemplo, y hacerlo funcionar e mi servidor windows 2003 server.
    Gracias por tus publicaciones.

    Jaime

  2. urpiano said

    ¿Te refieres a que se lance un script desde una GPO? Mira si esto te ayuda:

    http://msmvps.com/blogs/juansa/archive/2006/08/25/109614.aspx

  3. Lorena said

    Hola Urpiano, necesito cambiar la pagina de inicio de IE con un vbscript, pero probe tu codigo y no me funciono, en realidad no me da ningun error solamente no hace nada, sabes por que me esta pasando esto?

  4. […] Vía: https://urpiano.wordpress.com/2007/06/07/script-vbscript-para-establecer-la-pagina-de-inicio-de-inter… […]

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

 
A %d blogueros les gusta esto: