' Name: office_version.vbs
' Description: Determine the version of Microsoft Office installed on 
' the system on which this script is run.

' Usage: "cscript /nologo office_version.vbs"

' Limitations: Works only for Windows XP systems. See "Hey, Scripting Guy!
' How Can I Determine Which Version of Word is installed on a Computer?" at
' http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan05/hey0110.mspx

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colApps = objWMIService.ExecQuery _
    ("Select * from Win32_Product Where Caption Like '%Microsoft Office%'")
For Each objApp in colApps
    Wscript.Echo objApp.Caption, objApp.Version
Next