This post is the continuation of IE Exceptions Trusted Sites

Privacy::Sites

Privacy::Sites

Path in registry

strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\P3P\History\"

Key to add

WshShell.RegWrite strRegKey & Site & "\", 1, "REG_DWORD" 

Privacy::Pop-up Blocker

Privacy::Pop-up Blocker

Path in Registry

strRegKey = "HKCU\Software\Microsoft\Internet Explorer\New Windows\Allow\"

Key to add

WshShell.RegWrite strRegKey & Site, 0, "REG_BINARY"

Script Trusted Sites + Privacy

Exception "192.168.100.100"
Exception "192.168.100.101" 

Function Exception(Site) 

  Set WshShell = Wscript.CreateObject("Wscript.Shell") 

'------Trusted Sites------'

    strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\"

	 WshShell.RegWrite strRegKey & Site & "\" ,"" , "REG_SZ"

   	 WshShell.RegWrite strRegKey & Site & "\" & ":Range" , Site, "REG_SZ"

   	 WshShell.RegWrite strRegKey & Site & "\*", "2", "REG_DWORD"

'------Privacy------'

    strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\P3P\History\" 
   
     WshShell.RegWrite strRegKey & Site & "\", 1, "REG_DWORD" 
	
    strRegKey = "HKCU\Software\Microsoft\Internet Explorer\New Windows\Allow\"
	
     WshShell.RegWrite strRegKey & Site, 0, "REG_BINARY"


End Function