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.

Comments

Add New Search

migz   | 70.89.184.xxx | 21-04-2008 18:02:36 did this work for anyone?? Reply | Quote 0   0

Chey Harden - migz     | 70.235.104.xxx | 23-04-2008 11:38:08 I have this inplace and it has successfully installed the .exe on all of our machines. If you are having an issue it may be because the script is word wrapped, or your users are not local admins. Also, you can remove the single quote in front of "On Error Resume Next", this will show you an error if something is wrong. Then please post the error here and I will try to resolve it! Thank you, Chey Harden Network Engineer Reply | Quote 1   0

migz   | 70.89.184.xxx | 23-04-2008 12:30:17 yea my users are not local admins, they install too many programs i have to uninstall later.... Reply | Quote 0   0

Bryan - IT   | 70.62.97.xxx | 23-04-2008 15:32:45 I have received this error we I attempt to run the script. Windows Script Host Line: 21 Car: 1 Error: Syntax Error Code: 800A03EA Source: Microsoft VBScript compilation error Reply | Quote 0   0

Chey Harden - Syntax Error     | 70.235.104.xxx | 25-04-2008 09:28:18 Looks like the problem may be word wrap. What is your line 21. Mine is"strComputer & "\root& #92;default:StdRegPr ov"". Make sure the line before it has the underscore " _ " at the end. This tells the VBS compiler to look to the next line for the rest of the code. Reply | Quote 0   0

Nick - IT   | 207.242.93.xxx | 01-05-2008 21:24:11 I'm just starting to use GP's and scripts. I noticed there was a comment that this can't be installed if the user isn't a local admin. Could it be setup in the GP that it runs with admin credentials? Thanks in advance. Reply | Quote 0   0

Chey Harden - Nick     | 70.235.104.xxx | 07-05-2008 09:17:31 You can change the script to include admin credentials. See the link: http://techtasks.com/code/viewbookcode/364 Reply | Quote 1   0

Write comment
Name:
Email:	do not notifynotify
Website:
Title:
UBBCode:	-color-aquablackbluefuchsiagraygreenlimemaroonnavyolivepurpleredsilvertealwhiteyellow -size-tinysmallmediumlargehuge
	Please input the anti-spam code that you can read in the image.

Powered by !JoomlaComment 3.12

Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved.