'***************************************************************************
' 
' WSH Script - ZoneMap2.vbs
'
' 信頼済みサイトへ登録する(http の値が"2")
'
'***************************************************************************

Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")

WSHShell.Popup( "インターネット設定が完了しました。")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\webjump.jp\www\http", 2, "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\webjump.jp\www.sys\http", 2, "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2201", 0, "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2102", 0, "REG_DWORD"