'To remove the WinXP SP2 Local Zone restrictions for Internet Explorer
Dim sReg, SH, Ret, iVal, sType, s
s = "Click YES to set IE local lockdown."
s = s & " Click NO to unset restriction."
Ret = MsgBox(s, 36)
 Set SH = CreateObject("WScript.Shell")
   If (Ret = 6) Then 
       iVal = 1
   Else
       iVal = 0
   End If   
sReg = "Software\Microsoft\Internet Explorer\Main\"
sReg = sReg & "FeatureControl\FEATURE_LocalMachine_Lockdown\"

SH.RegWrite "HKLM\" & sReg & "IExplore.exe", iVal, "REG_DWORD"
SH.RegWrite "HKCU\" & sReg & "IExplore.exe", iVal, "REG_DWORD"

Set SH = Nothing