' Demo: list versions/builds of Microsoft Office programs
' Written by Rob van der Woude
' http://www.robvanderwoude.com

Option Explicit

Dim objAccess, objExcel, objOutlook, objPpt, objVisio, objWord
Dim strMsg, strVer

strMsg = ""

On Error Resume Next

Set objAccess = CreateObject( "Access.Application" )
strVer = ""
strVer = objAccess.Version
strVer = strVer & "." & objAccess.Build
strVer = objAccess.BuildFull
strMsg = strMsg & vbCrLf & objAccess.Name & ": " & strVer
objAccess.Quit
Set objAccess = Nothing

Set objExcel = CreateObject( "Excel.Application" )
strVer = ""
strVer = objExcel.Version
strVer = strVer & "." & objExcel.Build
strVer = objExcel.BuildFull
strMsg = strMsg & vbCrLf & objExcel.Name & ": " & strVer
objExcel.Quit
Set objExcel = Nothing

Set objOutlook = CreateObject( "Outlook.Application" )
strVer = ""
strVer = objOutlook.Version
strVer = objOutlook.Build
strVer = objOutlook.BuildFull
strMsg = strMsg & vbCrLf & objOutlook.Name & ": " & strVer
objOutlook.Quit
Set objOutlook = Nothing

Set objPpt = CreateObject( "PowerPoint.Application" )
strVer = ""
strVer = objPpt.Version
strVer = strVer & "." & objPpt.Build
strVer = objPpt.BuildFull
strMsg = strMsg & vbCrLf & objPpt.Name & ": " & strVer
objPpt.Quit
Set objPpt = Nothing

Set objVisio = CreateObject( "Visio.Application" )
strVer = ""
strVer = objVisio.Version
strVer = objVisio.Build
strVer = objVisio.BuildFull
strMsg = strMsg & vbCrLf & objVisio.Name & ": " & strVer
objVisio.Quit
Set objVisio = Nothing

Set objWord = CreateObject( "Word.Application" )
strVer = ""
strVer = objWord.Version
strVer = objWord.Build
strVer = objWord.BuildFull
strMsg = strMsg & vbCrLf & objWord.Name & ": " & strVer
objWord.Quit
Set objWord = Nothing

On Error Goto 0

WScript.Echo strMsg