This post is the continuation of IE Exceptions Trusted 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

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