Solved

Startup Script for Ofc 2007 - Service Pack 1 Deployment ONLY

Posted on 2008-10-16
4
376 Views
Last Modified: 2012-05-05
I've settled on customizing the Office 2007 package using the OCT file and using a startup script to deploy the application.  To prepare for a future service pack deployment, during my development phase, I'm trying to see if I can push out Service Pack 1 to this package using a script like that described by Microsoft below.

The script works great, applies the service pack without issues...however, upon subsequent reboots, the script runs again, and while it doesn't appear to apply the whole service pack over again, it goes through the motions before it realizes oh wait, I already have this update, and then getting users to the Ctrl + Alt + Del screen.  This is taking a long time, and I'm trying to avoid the delay if the pack is already deployed.  Any suggestions for additions to the below script to make it only run this particular update once aside from how it's doing it now?


Dim wShell 'As WshShell

Dim fso 'As FileSystemObject

Dim f 'As File

Dim sLogName 'As String

Dim sPatchFolder 'As String

Dim sPatchCmd 'As String
 

Const kTempFolder = 2
 

On Error Resume Next

    sPatchFolder = Replace(Wscript.ScriptFullName, Wscript.ScriptName, "")
 

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set wShell = CreateObject("WScript.Shell")

    For Each f In fso.GetFolder(sPatchFolder).Files

        If UCase(Right(f.Name, 4)) = ".EXE" Then

            sLogName = fso.GetSpecialFolder(kTempFolder) & "\" & Left(f.Name, Len(f.Name) - 3) & "log"

            sPatchCmd = f.Path & " /quiet /norestart /log:" & sLogName

            wShell.Run sPatchCmd, 0, True

        End If

    Next

Open in new window

0
Comment
Question by:kaos_theory
  • 2
4 Comments
 
LVL 3

Accepted Solution

by:
Angelized earned 500 total points
ID: 22735032
What about to test the registry to see if the SP1 is already installed ?


Verifying the installation of the SP1  updates for the 2007 Office system language packs is more difficult  because language pack products will not be displayed in the Windows  Add/Remove Programs listing if the language pack is included in  the original deployment of the 2007 Office system. The best way to verify  updates to the 2007 Office Suite language packs is through a Visual  Basic®  script that uses the Windows Installer to verify the installation.
The version returned will not be the  same for each product because every fix does not apply to every language.  A script example that demonstrates how this would be done is provided  below. This script is meant only for demonstration purposes, and it  may need to be modified for your usage.
Set oWI = CreateObject("WindowsInstaller.Installer")
For Each prod In oWI.Products
    If UCase(Right(prod,  7)) = "0FF1CE}" Then _
             sOutput = sOutput & prod & vbTab & _
                               oWI.ProductInfo(prod, "VersionString") & vbTab & _
                               oWI.ProductInfo(prod, "ProductName") & vbCrLf
Next
wscript.echo sOutput
 
If the file name of the script is  Off2007Ver.vbs, then the command line provided below can be used  in a Command Prompt window to generate a text file that contains the  results.
Cscript.ext [path]\Off2007Ver.vbs  > [path]\Off2007Ver.txt
 
This will generate a text file that summarizes  the products that have been installed and the version for each. A sample  of the text that would be contained in that text file is as follows:
 
{90120000-0014-0000-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Professional 2007
{90120000-0015-0407-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Access MUI (German) 2007
{90120000-0015-0409-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Access MUI (English) 2007
{90120000-0015-040C-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Access MUI (French) 2007
{90120000-0115-0409-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Shared Setup Metadata MUI (English) 2007
{90120000-0016-0407-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Excel MUI (German) 2007
{90120000-0016-0409-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Excel MUI (English) 2007
{90120000-0016-040C-0000-0000000FF1CE} 12.0.6215.1000 Microsoft  Office Excel MUI (French) 2007
 
In the above text, the globally unique  identifier (GUID) for each product is followed by the version of the  product and the name of the product. In this case, a product is any  application that is represented by a Windows Installer (.msi) file on  the original source. A suite such as Microsoft Office Professional 2007  will have a number of .msi files. If language packs are installed, there  will be an additional Windows Installer file for each additional language.
0
 
LVL 2

Author Comment

by:kaos_theory
ID: 23613866
will be closing soon
0
 
LVL 2

Author Closing Comment

by:kaos_theory
ID: 31506782
I"ve decided to just remove them from the group after the initial install, but thank goodness I have a small company -- I'm sure your suggestion would have worked as well!
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

If like me you are one who spends a lot of time working and scripting with cmd.exe, sometimes it is handy to be able to quickly view a calendar for a given month and year. This script will quickly do just that!  Save the code posted below to a .bat …
This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now