Need help changing advanced -> security settings in IE via VBS

Hello Experts,

I am new to scripting and need help with a script that that will automatically modify the settings under "Internet Options -> Advanced -> Security"

There are two checkboxes that I need checked:

"Allow active content to run files on my computer"
-and-
"Allow software to run or install even if the signature is invalid"

The workstations are subnetted in an area of the LAN where they do not have access to the Internet and they are not a part of the domain (only a mamber of a workgroup.) These workstations are used by 3rd party vendors that use cloogey applications that require ridiculous settings on IE in order for the apps to run, and I am hence directed to "make it work."

Could anyone help me with a script that I'm trying to use? So far I have been unsuccessful. See the code and thank you very much!

Option Explicit
 
Dim objRegistry
Dim strKeyPath,strValueName
 
Const HKLM = &H80000002
 
Set objRegistry = GetObject("WINMGMTS:\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\RUN_INV_SIG"
strValueName = "DefaultValue"
objRegistry.SetDWORDValue HKLM,strKeyPath,strValueName,1
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\LMZ_LOCKDOWN"
strValueName = "DefaultValue"
objRegistry.SetDWORDValue HKLM,strKeyPath,strValueName,1
 
WScript.Quit

Select allOpen in new window