Const HKLM = &H80000002
Const HKCU = &H80000001

'Закрываем все окна IE
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'iexplore.exe'")
On Error Resume Next
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

'Правим реестр
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
'Надёжные узлы
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"
oReg.CreateKey HKCU,strKeyPath & "amadeus.com"
oReg.SetDWORDValue HKCU,strKeyPath & "amadeus.com","http",2
oReg.CreateKey HKCU,strKeyPath & "amadeus.net"
oReg.SetDWORDValue HKCU,strKeyPath & "amadeus.net","http",2
oReg.CreateKey HKCU,strKeyPath & "amadeus.ru"
oReg.SetDWORDValue HKCU,strKeyPath & "amadeus.ru","http",2
oReg.CreateKey HKCU,strKeyPath & "amadeusvista.com"
oReg.SetDWORDValue HKCU,strKeyPath & "amadeusvista.com","http",2
oReg.SetDWORDValue HKCU,strKeyPath & "amadeusvista.com","https",2
oReg.CreateKey HKLM,strKeyPath & "amadeusvista.com"
oReg.SetDWORDValue HKLM,strKeyPath & "amadeusvista.com","http",2
oReg.CreateKey HKLM,strKeyPath & "mow.ru"
oReg.SetDWORDValue HKLM,strKeyPath & "mow.ru","http",2
oReg.CreateKey HKLM,strKeyPath & "amadeus.ru"
oReg.SetDWORDValue HKLM,strKeyPath & "amadeus.ru","http",2			'неудаляемый
oReg.CreateKey HKCU,strKeyPath & "e-travel.com.ua"
oReg.SetDWORDValue HKCU,strKeyPath & "e-travel.com.ua","http",2
'Уровень их безопасности
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
oReg.SetDWORDValue HKCU,strKeyPath,"CurrentLevel",&H10000
oReg.SetDWORDValue HKCU,strKeyPath,"Flags",&H43
oReg.SetDWORDValue HKCU,strKeyPath,"1001",0
oReg.SetDWORDValue HKCU,strKeyPath,"1004",1
oReg.SetDWORDValue HKCU,strKeyPath,"1201",1
oReg.SetDWORDValue HKCU,strKeyPath,"1406",0
oReg.SetDWORDValue HKCU,strKeyPath,"1407",0
oReg.SetDWORDValue HKCU,strKeyPath,"1607",0
oReg.SetDWORDValue HKCU,strKeyPath,"1800",0
oReg.SetDWORDValue HKCU,strKeyPath,"1804",0
oReg.SetDWORDValue HKCU,strKeyPath,"1809",3
oReg.SetDWORDValue HKCU,strKeyPath,"1A00",0
oReg.SetDWORDValue HKCU,strKeyPath,"1A04",0
oReg.SetDWORDValue HKCU,strKeyPath,"1A05",0
oReg.SetDWORDValue HKCU,strKeyPath,"1C00",&H30000
oReg.SetDWORDValue HKCU,strKeyPath,"1E05",&H30000
oReg.SetDWORDValue HKCU,strKeyPath,"2101",1
oReg.SetDWORDValue HKCU,strKeyPath,"2102",0
oReg.SetDWORDValue HKCU,strKeyPath,"2200",0
oReg.SetDWORDValue HKCU,strKeyPath,"2201",0
oReg.SetDWORDValue HKCU,strKeyPath,"1206",0
oReg.SetDWORDValue HKCU,strKeyPath,"1209",0
oReg.SetDWORDValue HKCU,strKeyPath,"1806",0
oReg.SetDWORDValue HKCU,strKeyPath,"2301",3
'Дополнительные параметры
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
oReg.SetDWORDValue HKCU,strKeyPath,"EnableHttp1_1",1
oReg.SetDWORDValue HKCU,strKeyPath,"SecureProtocols",&HA8
oReg.SetDWORDValue HKCU,strKeyPath,"CertificateRevocation",0
oReg.SetDWORDValue HKCU,strKeyPath,"ProxyHttp1.1",1
oReg.SetDWORDValue HKCU,strKeyPath & "\Cache","Persistent",0
oReg.SetDWORDValue HKCU,"Software\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing","State",&H23E00
strKeyPath = "Software\Microsoft\Internet Explorer\Main"
oReg.SetStringValue HKCU,strKeyPath,"Cache_Update_Frequency","Once_Per_Session"
oReg.SetDWORDValue HKCU,strKeyPath,"AllowWindowReuse",0
oReg.SetStringValue HKCU,strKeyPath,"DisableScriptDebuggerIE","yes"
oReg.SetStringValue HKCU,strKeyPath,"Disable Script Debugger","yes"
oReg.SetStringValue HKCU,strKeyPath,"Error Dlg Displayed On Every Error","no"
'Удаляем мусорные зоны, если есть
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\"
oReg.EnumKey HKCU,strKeyPath,arrSub
For Each subkey In arrSub
	If subkey <> "0" And subkey <> "1" And subkey <> "2" And subkey <> "3" And subkey <> "4" Then
		oReg.DeleteKey HKCU,strKeyPath & subkey	'тут не должно быть других зон
	End If
Next

'Переоткрываем страницу
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://TechSupport.Amadeus.ru/Scripts.htm"		'перезапуск
objExplorer.Visible = 1

Set objWMIService = Nothing
Set oReg = Nothing
Set objExplorer = Nothing