Script to add a web site to IE's Trusted Sites

UPDATE: Instead of a script, a neater way would be to add the relevant registry keys using Group Policy Preferences. But the script method below may still be useful in some situations.

Why use a script? Because doing it via the fucking GPO setting overwrites what the user had and also prevents them from adding their own. Enjoy.

Option Explicit
Dim oShell
Set oShell = WScript.CreateObject("WScript.Shell")
' http://support.microsoft.com/kb/182569
Dim sSite, sDValue, sZone, sKey, sZonesPath, aKeys, aKey
sZonesPath="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains"
sSite=0
sDvalue=1
sZone=2
' create key
aKeys = array( _
array(sZonesPath & "\the.website.to.trust.com\","","1") _
)
For Each aKey in aKeys
' create key for sSite
oShell.RegWrite akey(sSite), akey(sDvalue)
' add * dword under the site's key and set the szone
sKey=akey(sSite) & "*"
oShell.RegWrite sKey, akey(sZone), "REG_DWORD"
Next


Shout-out to Zoredache.

Fix Active Desktop Recovery mode

Just for shits and giggles, Active Desktop in Windows XP occasionally decides to enter 'recovery mode', replacing the desktop background with a useless message and a button that doesn't work.

To fix, set DWORD DeskHtmlVersion to 0:

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components\

Then, right-click on a blank area of the desktop and hit Refresh (or log out and back in).

Yay middo.

Disable the zoom menu in IE8

Strangely, sometimes it's not Microsoft's fault. This registry change will disable the zoom menu in Internet Explorer, preventing users from inadvertently changing it and wondering why they can't read the on-screen text.

1. Log in as the user and set the zoom to something acceptable.

2. Boot up El Regito Editoras and create the following key (if it doesn't already exist):

HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Zoom\

3. Create a new DWORD name with "1" as the value.