[.]
ЗЫ: во избежание недоразумений содержимое скрипта привожу ниже.
' Программа контроля "Домашней страницы и префиксов"
' удобна в клубах и инет офисах где клиентЫ любят полазить по парнухе
' Написана cherepaxa icq 93412429
' --------------
start =
"www.vrn.ru" 'стартовая страница
sp = "http://" 'префикс
pause = 60 'пауза между проверками, в секундах
path = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\UR L\DefaultPrefix\" 'путь реестра к префиксу по дефолту
path1 = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\UR L\Prefixes\www" 'путь реестра к префиксу по ввв
path2 = "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page" 'путь реестра к стартовой странице
' --------------
dim WSHShell' объявляем переменную WSHShell
set WSHShell = CreateObject ("WScript.Shell") ' создаем объект для работы с реестром
enter = chr(13) & chr(10) 'символ переноса при выводе информации
pause = pause * 1000 'пауза в миллисекундах
do 'создаем бесконечный цикл
WScript.Sleep(pause) 'пауза перед проверкой
www = WSHShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\U RL\DefaultPrefix\") 'считываем из реестра префикс
If www <> sp Then 'если запись в реестре не соответствует заданной ...
WSHShell.RegWrite path, sp 'возрващаем префикс
end if 'закрываем условие
www1 = WSHShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\U RL\Prefixes\www")
If www1 <> sp Then 'если запись в реестре не соответствует заданной ...
WSHShell.RegWrite path1, sp 'возрващаем префикс
end if 'закрываем условие
StartPage = WSHShell.RegRead ("HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page") 'считываем из реестра стартовую страницу
If StartPage <> start Then 'если запись в реестре не соответствует заданной ...
WSHShell.RegWrite path2, start 'возвращаем свою страницу
end if 'закрываем условие
loop 'закрываем цикл
ЗЫЫ: в архиве VBS скрипт - распаковываем, меняем подсвеченную
красным цветом в данном посте стартовую страницу на нужную Вам, запускаем скрипт. Потом запускаем IE. Удачи
