Determining Which Version of Office is Installed on a Computer

I want to determine which version of MS Office is installed on a computer (in
domain). There are two versions (Office 2000 and 2003) here at the moment and
i want to upgrade Office 2000 clients to 2003. All of our clients run on
Windows XP Pro SP2 and our AD is 2003 (FL: 2000 Native). I found a script
from "Hey Scripting Guy!" at below, it's working well on local. But I want to
run it as startup script on domain and it must write all client results into
a text file (with AD computer name and office version together in case of two
columns). How can i do that?


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


Thanks your support...

user
Fri Jul 27 05:27:10 CDT 2007

This may do what you want:
http://www.nirsoft.net/utils/product_cd_key_viewer.html

I used this to do more or less what you want to do. You can run it from a
command line and get it to dump the info you need (office version, computer
name) into various file formats.
Bilbo

"BladeRunner" <idiotspammers@anotherplanet.com> wrote in message
news:230B7A81-9EC3-4828-A54D-4A078310CE01@microsoft.com...
>I want to determine which version of MS Office is installed on a computer
>(in
> domain). There are two versions (Office 2000 and 2003) here at the moment
> and
> i want to upgrade Office 2000 clients to 2003. All of our clients run on
> Windows XP Pro SP2 and our AD is 2003 (FL: 2000 Native). I found a script
> from "Hey Scripting Guy!" at below, it's working well on local. But I want
> to
> run it as startup script on domain and it must write all client results
> into
> a text file (with AD computer name and office version together in case of
> two
> columns). How can i do that?
>
>
> 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
>
>
> Thanks your support...