Rollout the Office 2007 Converter Pack Silently

By | April 4, 2008

Lots of companies don’t want to shell out the $$$ for going to Office 2007. Luckily, Microsoft has a file converter that allows users with Office 2003 to read and edit Office 2007 files!

My script will allow you to silently install the .exe on your users’ machines.

Just add it to a GPO

  

Download the converter pack here: http://www.microsoft.com/downloads/details.aspx?FamilyId=941b3470-3ae9-4aee-8f43-c6bb74cd1466&displaylang=en

 

From Microsoft:

Users of the Microsoft Office XP and 2003 programs Word, Excel, or PowerPoint—please install all High-Priority updates from Microsoft Update before downloading the Compatibility Pack.

By installing the Compatibility Pack in addition to Microsoft Office 2000, Office XP, or Office 2003, you will be able to open, edit, and save files using the file formats new to Word, Excel, and PowerPoint 2007. The Compatibility Pack can also be used in conjunction with the Microsoft Office Word Viewer 2003, Excel Viewer 2003, and PowerPoint Viewer 2003 to view files saved in these new formats. For more information about the Compatibility Pack, see Knowledge Base article 924074.

 

 

 

———-COPY EVERYTHING BELOW THIS LINE———-

 

'Install Office Converter tool for office 2007

'Created 4.3.08 by Chey Harden

 

On Error Resume Next

 

Const HKLM = &H80000002

strComputer = "."

strPath = "\\SERVERNAMEHERE\NETLOGON\FileFormatConverters.exe"

strKeyPath = "SOFTWARE\Administration"

strValueName = "OfficeConverter"

  

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _

                        strComputer & "\root\default:StdRegProv")

                       

CheckRegistry()                       

CheckRegKey()

 

Function CheckRegistry()
 oReg.GetStringValue HKLM,strKeyPath,strValueName,strValue
 If strValue = 1 Then
  'WScript.Echo "Key Exists"
 Else
  'WScript.Echo "The Key doesn't Exist"
 oReg.CreateKey HKLM,strKeyPath
 End If
 
End Function

    

Function CheckRegKey()

            oReg.GetStringValue HKLM,strKeyPath,strValueName,strValue

            If strValue = 1 Then

                        'WScript.Echo "Key Exists: " & strValue

                        WScript.Quit

            Else

                        'WScript.Echo "The key doesn't exist!"

                        strValue = 1

                        oReg.SetStringValue HKLM,strKeyPath,strValueName,strValue

                        ExecuteInstall()

            End If

           

End Function

    

Function ExecuteInstall()

            Set WShell = CreateObject("WScript.Shell")

                        'WScript.Echo strValue2'used for trouble shooting

                        WShell.Run "%COMSPEC% /c " & strPath & " /quiet",0,TRUE

            Set WShell = Nothing

           

End Function

  

———-COPY EVERYTHING ABOVE THIS LINE———-

 

MAKE SURE NO WORD WRAP IS HAPPENING IN YOUR SCRIPT

1.      Change this string to reflect where you have placed the installer (I use a UNC path to the Netlogon folder).

a.       strPath = \\SERVERNAMEHERE\NETLOGON\FileFormatConverters.exe

2.      You can add a GPO to have all computers run this script.

3.      This script created a reg key so the install will not run twice on the same machine.

    

           

This information is provided "AS IS" with no warranties expressed or implied.

Leave a Reply

Your email address will not be published. Required fields are marked *