'***************************************************************************
' 
' WSH Script - ZoneMap2.vbs
'
' ?M?????T?C?g?? "microsoft.com" ??o?^????(http ??l??"2")
'
'***************************************************************************

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

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.mtcweb.jp", 0, "REG_BINARY"

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\mtcweb.jp\www\https", 2, "REG_DWORD"

on error goto 0
WSHShell.Popup( "?M?????T?C?g????????????B??xInternetExplorer???I??????A??x??????????????")