1

以下のスクリプトは、ActiveXコントロールを実行できるように、ユーザーの信頼済みサイトゾーンに自分のサイトを追加します。

それは私のローカルホストで完璧に機能し、URLは信頼済みサイトゾーンに追加されます。ただし、何も実行せず、スクリプトを含むWebページをオンラインの本番Webサイトにコピーすると、最後のメッセージが表示されます。私はここで何が間違っているのですか？

誰かが私を助けたり、同じタスクを達成するための別の方法を提案したりできますか？

ありがとう

<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>
4

1 に答える 1

1

通常の Web ページからはそのようなことはできません。ランダムな Web ページがレジストリをいじることができれば、セキュリティ上の大惨事になるでしょう。信頼済みサイト ゾーンの要点は、ユーザーがそのサイトをそこに置くのに十分信頼できると明示的に宣言する必要があるということです。

そのため、サイトを信頼済みサイト ゾーンに入れる唯一の合理的な方法は、ユーザーに手動でサイトを追加するよう依頼することです。ただし、これは通常、ActiveX コントロールを実行するためだけに不適切であり、不必要です。この ActiveX コントロールで実際に何をしようとしているのですか?

于 2012-07-08T07:22:15.820 に答える