'Startup VB script to install Compatibility Pack for the 2007 MS Office system
on error resume next
Dim WshShell, RegValue, RegValueVer10, RegValueVer11 
Set WshShell = CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")

RegValue = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\{90120000-0020-0419-0000-0000000FF1CE}\DisplayName")            

If (RegValue = "") Then 
   RegValueVer10 = WshShell.RegRead("HKLM\Software\Microsoft\Office\10.0\Word\InstallRoot\Path") 'MS Office XP
   RegValueVer11 = WshShell.RegRead("HKLM\Software\Microsoft\Office\11.0\Word\InstallRoot\Path") 'MS Office 2003
   If Not (RegValueVer10 = "" And RegValueVer11 = "") Then 
      WshShell.Run "msiexec /qn /i " & """\\share\O12Conv.msi""" , 1, True
   End If
End If