用於刪除可信站點的vbscript問題

Question

我有一個腳本可以將可信站點添加到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 

可信站點添加成功。但這裏有一個問題.... 我無法刪除通過腳本添加的信任網站，這是一個嚴重的問題

在此先感謝。

Answer 1

The Scripting Guys本文告訴您如何刪除鍵，並告訴你爲什麼刪除有時不起作用

Answer 2

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

'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