用于删除受信任站点的vbscript问题

我有一个脚本添加到IE的可信网站

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" _
    & "ZoneMap\Domains\" & "https://www.google.com"

objReg.CreateKey HKEY_CURRENT_USER, strKeyPath

strValueName = "*"

dwValue = 2

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

已成功添加受信任的站点。但这里有个问题。。。。 我无法删除通过脚本添加的受信任站点，这是一个严重的问题

提前感谢。

这篇文章告诉您如何删除密钥，并告诉您为什么删除有时不起作用

'**************************************************************************

'VBScript to remove all IE opened tab urls from the Trusted Site list

'***************************************************************************

Dim Windows

Dim tabUrl

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

Set Shell = CreateObject("Shell.Application")

Set Windows = CreateObject(Shell.Windows)

For Each Window In Shell.Windows

    If InStr(1, Window.FullName, "iexplore.exe", vbTextCompare) > 0 Then

        tabUrl = Window.LocationUrl

        Msgbox tabUrl

        strComputer = "."

        Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

        strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "ZoneMap\Domains\" &tabUrl

        objReg.DeleteKey HKEY_CURRENT_USER, strKeyPath

        strValueName = "*"

        dwValue = 2

        objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

    End If

Next