site = "svusd.org" Dim status Dim message message = "Begin Registry Tests
" status = "All Keys Set" Set oShell = WScript.CreateObject( "WScript.Shell" ) message = message & "Begin Local Intranet site test
" on Error Resume Next result = oShell.RegRead( "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & site & "\*" ) if Err.number <> 0 Then ' try setting Local Intranet Site message = message & ">Local Intranet site does not exists
" Set objRegistry = GetObject( "winmgmts:root\default:StdRegProv" ) strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" strValueName = "Flags" objRegistry.GetDWORDValue &H80000001,strKeyPath,strValueName,dwValue objRegistry.SetDWORDValue &H80000001,strKeyPath,strValueName,(dwValue AND &HFFFFFFFB) oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & site & "\*","1","REG_DWORD" message = message & ">Local Intranet site added
" status = "Restart Required" Else message = message & "Local Intranet site does exists
" End If on Error Goto 0 message = message & "End Local Intranet site test
" message = message & "Begin RDP client key test
" on Error Resume Next result = oShell.RegRead( "HKCU\Software\Microsoft\Windows\CurrentVersion\Ext\Stats\{6A6F4B83-45C5-4CA9-BDD9-0D81C12295E4}\iexplore\AllowedDomains\*" ) if Err.number <> 0 Then ' try installing RDP Client message = message & "RDP client key does not exists
" oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ext\Stats\{6A6F4B83-45C5-4CA9-BDD9-0D81C12295E4}\iexplore\AllowedDomains\*","0","REG_DWORD" oShell.RegWrite "HKEY_USERS\S-1-5-21-3190274708-3948209112-161260126-500\Software\Microsoft\Windows\CurrentVersion\Ext\\Stats\{6A6F4B83-45C5-4CA9-BDD9-0D81C12295E4}\iexplore\AllowedDomains\*","0","REG_DWORD" message = message & "RDP client key site added
" status = "Restart Required" Else message = message & "RDP client key does exists
" End If on Error Goto 0 message = message & "End RDP client key test
" message = message & "Begin RDP warning key test
" on Error Resume Next oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1201", "0","REG_DWORD" message = message & "RDP warning key site added
" if Err.number <> 0 Then ' Error thrown when trying to write to enable mixed content registry key message = message & "RDP warning key site not added
" status = "Unable to modify registry" Else End If on Error Goto 0 message = message & "End RDP warning key test
" message = message & "Begin Popup Blocker key test
" on Error Resume Next result = oShell.RegRead( "HKCU\Software\Microsoft\Internet Explorer\New Windows\Allow\*." & site ) if Err.number <> 0 Then ' try setting URL for Popup Blocker message = message & "Popup Blocker key does not exists
" oShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\New Windows\Allow\*." & site, 0000,"REG_BINARY" message = message & "Popup Blocker key added
" status = "Restart Required" Else message = message & "Popup Blocker key does exists
" End If on Error Goto 0 message = message & "End Popup Blocker key test
" on Error Resume Next oShell.RegWrite "HKCU\Software\Microsoft\Active Setup\Declined Install On Demand IEv5\{08B0e5c0-4FCB-11CF-AAA5-00401C608501}", "","REG_SZ" if Err.number <> 0 Then ' Error thrown when trying to write to disable MS Java message registry key status = "Unable to modify registry" Else End If on Error Goto 0 message = message & "Begin SSL warning key test
" on Error Resume Next oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1609", "0","REG_DWORD" oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1609", "0","REG_DWORD" oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1609", "0","REG_DWORD" message = message & "SSL warning key site added
" if Err.number <> 0 Then ' Error thrown when trying to write to enable mixed content registry key message = message & "SSL warning key site not added
" status = "Unable to modify registry" Else End If on Error Goto 0 message = message & "End SSL warning key test
" WScript.Echo message & status WScript.quit