Saturday, June 16, 2007

Package contains source files

Have you ever wondered why SMS asks you if the package contains source files? Does it always contain source files?
No, if you intend on running an application that is on the system then it doesn't. Say you want to copy files from one folder to another. You don't need to push the copy command down. You just run it on the system. In this aspect the package doesn't contain any source files. It does contain the program command "copy x to Y"

Sunday, June 10, 2007

Remove Lookout

If you are upgrading to Office 2007 you might want to uninstall Lookout if it is installed. The problem is that they don't have a silent uninstall. The only way to get rid of it (unless the user is an admin) is to blow away Lookout. Otherwise desktop search will not install.


-------------remove lookout.vbs -------------------------
on error resume next
Set 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 Key
Key ="HKLM\SOFTWARE\Microsoft\Fusion\References\LookoutAddIn, Version=1.0.1868.24056, Culture=neutral, PublicKeyToken=b7aa31f2379f8c07\"
Sh.RegDelete Key
Key ="HKLM\SOFTWARE\Lookout Software\Lookout\"
Sh.RegDelete Key
Key ="HKLM\SOFTWARE\Lookout Software\"
Sh.RegDelete Key
Key ="HKLM\SOFTWARE\Microsoft\Office\Outlook\AddIns\LookoutAddInShim.Connect\"
Sh.RegDelete Key
Key ="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Lookout\"
Sh.RegDelete Key
Key ="HKEY_USERS\.DEFAULT\Software\Microsoft\Office\Outlook\Addins\LookoutAddInShim.Connect\"
Sh.RegDelete Key
Key ="HKLM\SOFTWARE\Classes\LookoutAddInShim.Connect\CLSID\"
Sh.RegDelete Key
Key ="HKLM\SOFTWARE\Classes\LookoutAddInShim.Connect\"
Sh.RegDelete Key
Key ="HKCR\LookoutAddInShim.Connect\CLSID\"
Sh.RegDelete Key
Key ="HKCR\LookoutAddInShim.Connect\"
Sh.RegDelete Key
Key ="HKEY_CLASSES_ROOT\CLSID\{86e53597-10b0-4e2e-ad00-53044a23c550}\ProgID\"
Sh.RegDelete Key
Key ="HKEY_CLASSES_ROOT\CLSID\{86e53597-10b0-4e2e-ad00-53044a23c550}\InprocServer32\"
Sh.RegDelete Key
Key ="HKEY_CLASSES_ROOT\CLSID\{86e53597-10b0-4e2e-ad00-53044a23c550}\"
Sh.RegDelete Key'''now delete the folder
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C:\Program Files\Lookout Software"
set oFolder = oFSO.GetFolder(sDirectoryPath)
oFolder.Delete(true)
-----------------------------------------------

Friday, June 1, 2007

Computers with Old Scan catalogs

This collection will house computers with the scan packager version smaller than 47 and if they have been HW inventoried in the last 60 days. This assumes that your current scan package is 47. Send the scan advertisment to this collection.
-------------------------
select
SMS_R_System.ResourceID,SMS_R_System.ResourceType,SMS_R_System.Name,SMS_R_System.SMSUniqueIdentifier,SMS_R_System.ResourceDomainORWorkgroup,SMS_R_System.Client from SMS_R_System inner join SMS_G_System_SCANPACKAGEVERSION on SMS_G_System_SCANPACKAGEVERSION.ResourceID = SMS_R_System.ResourceId inner join SMS_G_System_WORKSTATION_STATUS on SMS_G_System_WORKSTATION_STATUS.ResourceID = SMS_R_System.ResourceId where SMS_G_System_SCANPACKAGEVERSION.PackageVer < "47" and SMS_G_System_SCANPACKAGEVERSION.PackageID = "SMS00032" and SMS_G_System_WORKSTATION_STATUS.LastHardwareScan >= DateAdd(dd,-60,GetDate())
--------------
What does this get us. You can now see what computers are not updating their scan package. Maybe they are offline, or broken. You can now send an adv every 3 hours to this to make sure these computers scan as soon as they are turned on. Or send down the fix as soon as they turn on.
If you will notice the HTA file I created a while back: We use this to push a popup to the user informing them that their machine is out of date and it will be scanned, please don't restart. "if you continue to see this please contact tech support." This gives you a more active approach to finding systems that have problems