OFSO.DeleteFile("C:\TEMP\HKCU_ExcelAddin.reg") If oFSO.FileExists ("C:\TEMP\HKCU_ExcelAddin.reg") Then WriteLine(VbCrLf &"") & vbcrlf & "-" &eRegLine If InStr(1, eRegLine, sSearchFor, 1) > 0 Then If InStr(1, eRegLine, "[", 1) > 0 Then sRegKey = eRegLine WriteLine("Windows Registry Editor Version 5.00" & VbCrLf)ĪRegFileLines = Split(.OpenAsTextStream(1, 0).Read(.Size), vbcrlf) OWS.Run "regedit /e /a " & sRegTmp,, True '/a enables export as Ansi for WinXP Hour(Now) & Minute(Now) & Second(Now) & ".tmp " SOutTmp = oWS.Environment("Process")("Temp") & "\sOutTmp" & _ SRegTmp = oWS.Environment("Process")("Temp") & "\RegTmp.tmp " 'sSearchFor = chr(34) &"\" &chr(34) &"C:\\Essbase\\bin\\essxleqd.xla\" &chr(34)ĭim sRegTmp, sOutTmp, eRegLine, iCnt, sRegKey, aRegFileLines
![westworld season 1 timeline westworld season 1 timeline](http://fishstreamtv.com/wp-content/uploads/2016/11/westworld-park-timeline-700x490.png)
SSearchFor = "/R \" &chr(34) &"C:\\Program Files\\Microsoft Office\\OFFICE11\\Library\\Analysis\\ANALYS32.XLL\" &chr(34) ' Change here for the addin to get removed add the exact entry as in the registry
#Westworld season 1 timeline how to
Needs some more modifications on how to remove it from all the profiles and to change then rearrange the OPEN key values
![westworld season 1 timeline westworld season 1 timeline](https://blogs-images.forbes.com/erikkain/files/2018/06/Westworld-Dolores.jpg)
I have used a script from © Bill James and made some changes to it to search for the exact file name and output as a reg file, not many changes are made except to make it silent, credit goes to Bill James. This script removes XL addin from current user, i want it remove from all the user profiles. WshShell.Regdelete ("HKCU\Software\Microsoft\Office\11.0\Excel\Options\OPEN" & b) XLReg1=WshShell.RegRead ("HKCU\Software\Microsoft\Office\11.0\Excel\Options\OPEN" & b) WshShell.Regdelete ("HKCU\Software\Microsoft\Office\10.0\Excel\Options\OPEN" & a) XLReg=WshShell.RegRead ("HKCU\Software\Microsoft\Office\10.0\Excel\Options\OPEN" & a) WshShell.Regdelete ("HKCU\Software\Microsoft\Office\11.0\Excel\Options\OPEN") WshShell.Regdelete ("HKCU\Software\Microsoft\Office\10.0\Excel\Options\OPEN") XLReg1=WshShell.RegRead ("HKCU\Software\Microsoft\Office\11.0\Excel\Options\OPEN") XLReg=WshShell.RegRead ("HKCU\Software\Microsoft\Office\10.0\Excel\Options\OPEN")
Set WshShell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") 'Description: Used to remove Excel Add-Ins automatically in Office XP and Office 2003. The error will pop up if you don't remove the entry in the HKCU registry.