Disabling Excel Addin

 On Error Resume Next 

Set objShell = CreateObject("WScript.Shell") 

strPlugin = "CDOROM.xll" 'Excel Plugin File Name only 

strExcelRegistryKey = "HKCU\Software\Microsoft\Office\11.0\Excel\Options" 'Excel Registry Location (Dependable on Office version) 

strRegKeyValue = objShell.RegRead(strExcelRegistryKey & "\Open") 

If strRegKeyValue <> "" Then 

If InStr(strRegKeyValue,strPlugin) Then 

objShell.RegDelete strExcelRegistryKey & "\Open" 

End If 

End If 

strRegKey = "" 

strRegKeyValue = "" 

intCount = 0 

Err.Clear 

Do Until Err.number = -2147024894 

intCount = intCount + 1 

strRegKey = strExcelRegistryKey & "\Open" & intCount 

strRegKeyValue = objShell.RegRead(strRegKey) 

If InStr(strRegKeyValue,strPlugin) Then 

objShell.RegDelete strExcelRegistryKey & "\Open" & intCount 

End If 

Loop 

Set objShell = Nothing 

Click here to get more VBS

Script for OS                                    Script for Registries                Script for Addin

Script for File Operations

Script for WindowsService