VBScript to change Excel Macro Security

The script below will change the Excel Macro Security to Low. I created it for the purpose of changing the macro security level to Low for running reports. The server was also used to edit Excel reports and thus the security always got changed to medium or high while people edited reports and often forgot to change it back to Low. Hence, the popup asking to enable/disable macros causing the report to sit there waiting for user input. This script ran prior to the scheduled reports running to ensure the security level was where it should be.

Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CONFIG = &H80000005 Set objComputerSystem = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem") for each objSystem in objComputerSystem strComputer = objSystem.Name next Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Excel\Security" strValueName = "Level" 'Value of 1 is Low Macro Security, 2 is Medium, 3 is High 'Note Same key can be created or edited under HKLM that will override HKCU setting oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,1