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

Start and Stop Windows Services

Try This, just change all the NetDDE items to your service. In this example: When NetDDE is stopped it will start NetDDE and then start all services that depend on NetDDE. When NetDDE is running it will stop all services that depend on NetDDE and then will stop NetDDE.

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colService = objWMIService.ExecQuery("Select * from Win32_Service where Name='NetDDE'") For Each objService in colService if objService.State = "Stopped" Then errReturn = objService.StartService() Set colService2 = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='NetDDE'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For each objService2 in colService2 errReturn = objService2.StartService() Next Elseif objService.State = "Running" Then Set colService3 = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='NetDDE'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For each objService3 in colService3 errReturn=objService3.StopService() Next errReturn = objService.StopService() End If Next