'REGEDIT4 
'[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet 
'Settings\ZoneMap\Domains\somed­omain.com] 
'[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet 
'Settings\ZoneMap\Domains\somed­omain.com\www] 
'"https"=dword:00000002 

Dim SH, sDom, sPath, sDomain, sSub, iZone 

' TRNG SSB
sDomain = "auburn.edu\" 
sSub = "banssb.trng\"
iZone = 2    '-- add to trusted sites. use 4 for restricted. 

sPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" 
Set SH = CreateObject("WScript.Shell")

SH.RegWrite sPath & sDomain, ""  '-- add auburn.edu key. 
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.trng key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' SEED SSB
sSub = "banssb.seed\"
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.seed key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' QUAL SSB
sSub = "banssb.qual\"
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.qual key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' CONV SSB
sSub = "banssb.conv\"
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.conv key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' PPRD SSB
sSub = "banssb.pprd\"
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.pprd key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' AUTR SSB
sSub = "banssb.autr\"
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.autr key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' PROD SSB
sSub = "banssb.prod\"
SH.RegWrite sPath & sDomain & sSub, "" '--add banssb.prod key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' TRNG INB
sSub = "baninb.trng\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.trng key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' SEED INB
sSub = "baninb.seed\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.seed key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' QUAL INB
sSub = "baninb.qual\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.qual key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' CONV INB
sSub = "baninb.conv\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.conv key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' PPRD INB
sSub = "baninb.pprd\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.pprd key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' AUTR INB
sSub = "baninb.autr\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.autr key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' PROD INB
sSub = "baninb.prod\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.prod key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' PROD INB sys06 server
sSub = "baninb2.prod\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.prod key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"

' auaccess
sSub = "auaccess\"
SH.RegWrite sPath & sDomain & sSub, "" '--add baninb.prod key. 
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"  ' this may need to be "http:\\" or "https:\\"