SCRIPTS home page

On Error Resume Next



Const HKEY_CURRENT_USER = &H80000001



str_Equipo = "."

str_PaginaInicio = "http://www.willamulloa.com"



Set obj_Registro = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & str_Equipo & _
"\root\default:StdRegProv")


str_Clave= "Software\Microsoft\Internet Explorer\Main"

obj_Registro.SetStringValue HKEY_CURRENT_USER, str_Clave, _
"Start Page",str_PaginaInicio


str_Equipo = "."

str_PaginaInicio = "http://sypfbofcws04:85/intranet/WebPortal/"



Set obj_Registro = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & str_Equipo & _
"\root\default:StdRegProv")


str_Clave= "Software\Microsoft\Internet Explorer\Main"

obj_Registro.SetStringValue HKEY_CURRENT_USER, str_Clave, _
"Start Page",str_PaginaInicio