Solved

Startup Script for Ofc 2007 - Service Pack 1 Deployment ONLY

Posted on 2008-10-16
4
379 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

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Microsoft Office Picture Manager was included in Office 2003, 2007, and 2010, but not in Office 2013. Users had hopes that it would be in Office 2016/Office 365, but it is not. Fortunately, the same zero-cost technique that works to install it with …
In this article we discuss how to recover the missing Outlook 2011 for Mac data like Emails and Contacts manually.
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…

777 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