' Remove trusted sites' Matt Rowston Version 2.0 26-02-10
' This script does the following....
'
' Deletes the domains registry key so we can start from scratch adding the trusted sites
'
'----------------------------------------Start Internet Explorer Progress Window-----------------------
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 550
objExplorer.Height = 600
objExplorer.Left = 20
objExplorer.Top = 20
Do While (objExplorer.Busy)
Wscript.Sleep 20
Loop
objExplorer.Visible = 1
Set objDocument = objExplorer.Document
objDocument.Open
objDocument.Writeln "NAS - Remove Trusted Sites"
'objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objDocument.Writeln ""
objExplorer.Document.body.childnodes(0).InnerHTML = "" & _
"NAS - Remove Trusted Sites Script."
wscript.sleep 1000
'
'
'
'----------------------------------------Say Deleting the domains registry key--------------------------------------
objExplorer.Document.body.childnodes(1).InnerHTML="Deleting the domains registry key.
"
objExplorer.Document.body.childnodes(2).InnerHTML="This will remove any existing trusted sites
"
objExplorer.Document.body.childnodes(3).InnerHTML="so we can start from scratch...
"
'
'
' Delete the domains SOFTWARE registry key so we can start from scratch
On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
DeleteSubkeys HKEY_CURRENT_USER, strKeypath
Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)
objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & "\" & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath
End Sub
'
' Delete the domains HARDWARE registry key so we can start from scratch
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
Sub DeleteSubkeys(HKEY_LOCAL_MACHINE, strKeyPath)
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeyPath & "\" & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
End Sub
'
'
'
' msgbox "MATT PAUSE",64,"NAS FINNAS Settings"
'
'
'----------------------------------------Say completed--------------------------------
objExplorer.Document.body.childnodes(37).InnerHTML="NAS - Remove Trusted Sites is complete...thankyou
"
wscript.sleep 1000
msgbox "NAS - Remove Trusted Sites Completed",64,"Remove Trusted Sites"
objExplorer.quit