프로그래밍 방식으로 Internet Explorer의 신뢰할 수있는 사이트 영역에 사이트 추가?

Question

아래 스크립트는 activeX 컨트롤을 실행할 수 있도록 사용자가 신뢰할 수있는 사이트 영역에 내 사이트를 추가합니다.

내 로컬 호스트에서 완벽하게 작동하며 URL이 신뢰할 수있는 사이트 영역에 추가됩니다. 스크립트를 포함하는 웹 페이지를 온라인 프로덕션 웹 사이트에 복사 할 때 아무 것도하지 않으며 마지막 메시지가 나타납니다. 여기서 내가 뭘 잘못하고 있니?

다른 사람이 동일한 작업을 수행하도록 나를 도울 수 있습니까?

감사

<script type="text/vbscript"> 


On Error Resume Next 

Sub addkey 

Dim DomainArray, strComputer, strHTTP, strHTTPS 

Dim dwordZone, regPath, objReg, counter, subkeyPath, icounter 

Dim subkeyValue 

Const HKEY_CURRENT_USER = &H80000001 


DomainArray = "mydomain.ca" 

strComputer = "." 
strHTTP = "http" 
strHTTPS = "https" 
dwordZone = "2" 

regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" &_ 
"\ZoneMap\Domains\" 
'Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\default:StdRegProv") 
subkeyPath = regPath & DomainArray 
objReg.CreateKey HKEY_CURRENT_USER,subkeyPath 
regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" &_ 
"\ZoneMap\Domains\mydomain.ca\" 
subkeyPath = regPath & "www" 
objReg.CreateKey HKEY_CURRENT_USER,subkeyPath 
objReg.SetDWORDValue HKEY_CURRENT_USER,subkeyPath,strHTTPS,dwordZone 
MsgBox("https://www.mydomain.ca has been added to the Trusted Sites Zone.") 
objReg.DeleteValue HKEY_CURRENT_USER, subkeyPath, strHTTPEnd Sub 

</script> 

Answer 1

당신은 정상적인 웹 페이지에서 같은 아무것도 할 수 없습니다. 임의의 웹 페이지가 레지스트리와 관련이없는 경우 엄청난 보안 재앙이 발생합니다. 신뢰할 수있는 사이트 영역의 요점은 사용자가 사이트를 신뢰할 수 있다고 명시해야한다는 것입니다.

신뢰할 수있는 사이트 영역에서 사이트를 얻는 유일한 방법은 수동으로 추가하도록 사용자에게 요청하는 것입니다. 그러나 ActiveX 컨트롤을 실행하기에는 여전히 부적절하고 불필요합니다. 이 ActiveX 컨트롤로 실제로 무엇을하려합니까?