Vista - Script to retrieve file versions

hi,

I found this script on Scripting Guy. However I would like for the window to
have the results of three file versions. Here's what I have now. It shows in
three seperate windows one at a time:

strComputer = "Server1"

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

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name =
'c:\\windows\\system32\\setup.exe'")

For Each objFile in colFiles
Wscript.Echo objFile.Version
Next

strComputer = "Server2"

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

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name =
'c:\\windows\\system32\\setup.exe'")

For Each objFile in colFiles
Wscript.Echo objFile.Version
Next

strComputer = "Server3"

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

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name =
'c:\\windows\\system32\\setup.exe'")

For Each objFile in colFiles
Wscript.Echo objFile.Version
Next

Did you know that you don't need WMI for that?
(Unless there's a problem using FSO across a network.
I've never tried that.)

-------------------
Set FSO = CreateObject("Scripting.FileSystemObject")
S = FSO.GetFileVersion("c:\windows\system32\setup.exe")
-------------------

If you want to show it all in one msgbox you can
use a variable to concatenate the values as you collect
them. Instead of using WScript.echo with each machine,
you can do something like this:

Dim sVer

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name =
'c:\\windows\\system32\\setup.exe'")

For Each objFile in colFiles
sVer = sVer & strComputer & " - " & objFile.Version & vbcrlf
Next

Do the same for each machine. Then at the end
you can show one window with:

MsgBox sVer

The window will show a list like:

Server1 - 1.055
Server2 - 1.055
Server3 - 1.061

toin