vbscript issue for removing trusted site -
After
I have a script to add trusted sites to IE.
CONST HKEY_CURRENT_USER = & amp; H80000001 strComputer = "." Set objReg = GetObject ( "winmgmts: \\" & amp; strComputer & amp; "\ root \ default: StdRegProv") strKeyPath = "Software \ Microsoft \ Windows \ CurrentVersion \ Internet Settings \" _ & amp; "Joanmark \ domain \" & amp; "Https://www.google.com" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath strValueName = "* are" dwValue = 2 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue trusted sites successfully added, but there is a problem .... I through scripts that added worldwide sites, will not be able to get rid of it
thanks in advance.
'***************** ************************************************** ************ ************************************************************************************** ********* 'VBScript opened the IE trusted sites list' tab URL off ************************* ************* ************************************************************************************* Restart the error on a slow Windows blind tabUrl. Next console HKEY_CURRENT_USER = & amp; H80000001 Set shell = CreateObject ( "Shell.Application") set for each window in Windows = CreateObject (Shell.Windows) Shell.Windows InStr (1, Window.FullName, "iexplore.exe", vbTextCompare) & gt; 0 then tab url = window Place URL Mssbox Tab URL Structurator = "." Set objReg = GetObject ( "winmgmts: \\" & amp; strComputer & amp; "\ root \ default: StdRegProv") strKeyPath = "Software \ Microsoft \ Windows \ CurrentVersion \ Internet Settings \" & amp; "ZoneMap \ domain \" & amp; tabUrl objReg.DeleteKey HKEY_CURRENT_USER, strKeyPath strValueName = "*" dwValue = 2 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue end next
Comments
Post a Comment