Friday, May 25, 2007

Office 2007 and Lookout

If you are looking at moving to Office 2007 and you have Office 2003 with Lookout you will run into a problem. Lookout needs to open Outlook and remove itself from the system. Unless you are an admin you can't do this. If you allow the users to interact with the system and run Outlook with admin privs then you can run into a serious security problem. The simplest way is to remove lookout manually before installing Office 2007


---------------removelookout.vbs------
on error resume nextSet Sh = WScript.CreateObject("WScript.Shell")Key ="HKLM\SOFTWARE\Microsoft\Fusion\References\LookoutAddIn, Version=1.0.1868.24056, Culture=neutral, PublicKeyToken=b7aa31f2379f8c07\{2EC93463-B0C3-45E1-8364-327E96AEA856}\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Microsoft\Fusion\References\LookoutAddIn, Version=1.0.1868.24056, Culture=neutral, PublicKeyToken=b7aa31f2379f8c07\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Lookout Software\Lookout\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Lookout Software\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Microsoft\Office\Outlook\AddIns\LookoutAddInShim.Connect\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Lookout\"Sh.RegDelete KeyKey ="HKEY_USERS\.DEFAULT\Software\Microsoft\Office\Outlook\Addins\LookoutAddInShim.Connect\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Classes\LookoutAddInShim.Connect\CLSID\"Sh.RegDelete KeyKey ="HKLM\SOFTWARE\Classes\LookoutAddInShim.Connect\"Sh.RegDelete KeyKey ="HKCR\LookoutAddInShim.Connect\CLSID\"Sh.RegDelete KeyKey ="HKCR\LookoutAddInShim.Connect\"Sh.RegDelete KeyKey ="HKEY_CLASSES_ROOT\CLSID\{86e53597-10b0-4e2e-ad00-53044a23c550}\ProgID\"Sh.RegDelete KeyKey ="HKEY_CLASSES_ROOT\CLSID\{86e53597-10b0-4e2e-ad00-53044a23c550}\InprocServer32\"Sh.RegDelete KeyKey ="HKEY_CLASSES_ROOT\CLSID\{86e53597-10b0-4e2e-ad00-53044a23c550}\"Sh.RegDelete Key'''now delete the folderSet oFSO = CreateObject("Scripting.FileSystemObject")sDirectoryPath = "C:\Program Files\Lookout Software"set oFolder = oFSO.GetFolder(sDirectoryPath)oFolder.Delete(true)
------------------