Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    Mar 2002
    Posts
    1
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Which office version is installed (O2K or OXP)

    Hi,

    I have to push out the updates to Excel and PPT for O2K and OXP from Microsoft Security Bulletin MS01-050. I will be doing so on an NT domain and using login scripts. I need to determine what version of Office is installed on the target PC so I can push the correct update to it.

    Does anyone know a registry key that I can check, or any other way to check this, which will give me an error code so I can branch the batch file to install the correct update?

    Anyone doing this?

    Any and all replies will be greately appreciated!

    Regards,

    John

  2. #2
    Plutonium Lounger
    Join Date
    Dec 2000
    Location
    Sacramento, California, USA
    Posts
    16,775
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Which office version is installed (O2K or OXP)

    If Office XP is installed, you should find a key for the apps under HKEY_LOCAL_MACHINESOFTWAREMicrosoftOffice10.0.
    Charlotte

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Which office version is installed (O2K or OXP)

    How about:

    HKEY_CLASSES_ROOTExcel.ApplicationCurVer
    HKEY_CLASSES_ROOTPowerPoint.ApplicationCurVer

    We recently wrote a VBScript for a similar situation. It seems to have problems waiting for execution to complete, but for reference (in relevant part):

    <pre>Dim oShell, sValue
    Set oShell = Wscript.CreateObject("Wscript.Shell") 'Instantiate Windows Shell object
    On Error Resume Next 'Must do inline error checking
    sValue = oShell.RegRead("<font color=blue>TargetKey</font color=blue>") 'Try to retrieve target value
    If Err.Number = 0 Then 'Value found
    If UCase(sValue) = "<font color=blue>TARGETVALUE</font color=blue>" Then 'It's ours; Update!
    oShell.Run "PathToExecutable", 1, True
    Exit Sub
    Else 'Do nothing!
    Exit Sub
    End If
    Else 'Key not found, reset err object
    Err.Clear
    End If</pre>

    Hope this helps.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •