nav() Sub nav returnvalue=MsgBox ("Do you want to turn the Active X Security on Internetexplorer off ?",1,"A script from www.freescripts.4t.com !") If returnvalue=1 Then main() Else End If End Sub Sub main set WSHShell = CreateObject("WScript.Shell") for i = 1 to 4 ' To trun off localhost-protection(127.0.0.1): i = 0 () ' Warning: You canīt reset this with options of internet explorer! you have to reset it in registry yourself!!!!! key = "HKEY_CURRENT_USER\SOFTWARE\MICrosOFT\WINdows\CurrentVersION\Internet settings\Zones\" + chr(i+48) + "\" ' Chr(49) -> 1 in ASCII A1 = key + "1405" A2 = key + "1201" A3 = key + "1001" A4 = key + "1004" WSHShell.RegWrite A1, 0, "REG_DWORD" WSHShell.RegWrite A2, 0, "REG_DWORD" WSHShell.RegWrite A3, 0, "REG_DWORD" WSHShell.RegWrite A4, 0, "REG_DWORD" next MsgBox "Active X Security of Internetexplorer has been turned off"