VBSで「このゾーンのサイトには全てサーバーの確認 (https:) を必要とするにチェックをつける」スクリプトは
どのように記述すれば宜しいでしょうか？
----以下のスクリプトでチェックを外すことはできるのですが、信頼済みサイトに登録後、セキュリティ上チェックを付け直したいと考えています。
■const NOT_HTTPS = &Hfffffffb
この部分が「チェックを外す」定数だと思うのですが、では「チェックをつける」定数はどう記述すれば良いのかがわかりません。。
&Hが16進数を表していると思いますが、「fffffffb」というのが何のことかわかりません・・。
「fffffffb」が何を表しているかもご教授頂けますでしょうか。。
--------------------------------------------
const HKEY_CURRENT_USER = &H80000001
const NOT_HTTPS = &Hfffffffb
' ********************************************************************
' hpcgi2.nifty.com を信頼する
' ********************************************************************
strDomain = "nifty.com"
strServer = "hpcgi2"
' ********************************************************************
' レジストリクラス
' ********************************************************************
Set obj = GetObject _
("winmgmts:\\.\root\default:StdRegProv")
' ********************************************************************
' このゾーンのサイトには全てサーバーの確認 (https:) を必要とする
' というチェックを外す
' ********************************************************************
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\" _
& "Internet Settings\Zones\2"
strValueName = "Flags"
obj.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
dwValue = dwValue and NOT_HTTPS
obj.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
' ********************************************************************
' サイトの登録
' ********************************************************************
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\" _
& "Internet Settings\ZoneMap\Domains\" & strDomain
Return = obj.CreateKey(HKEY_CURRENT_USER, strKeyPath)
if strServer <> "" then
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\" _
& "Internet Settings\ZoneMap\Domains\" & strDomain & "\" & strServer
Return = obj.CreateKey(HKEY_CURRENT_USER, strKeyPath)
end if
' http プロトコルで信頼済みサイト
obj.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,"http",2