[Iska]

WSH:

Код:

Option Explicit

Dim objWord

With WScript.CreateObject("WScript.Network")
	WScript.Echo "Computer name: " & .ComputerName
	WScript.Echo "User name: "     & .UserDomain & "\" & .UserName
End With

On Error Resume Next
Set objWord = WScript.CreateObject("Word.Application")

If Err.Number = 0 Then
	On Error Goto 0
	WScript.Echo "Microsoft Office version: " & objWord.Build
	objWord.Quit
	
	Set objWord = Nothing
Else
	Err.Clear
	On Error Goto 0
	WScript.Echo "Microsoft Office version: Not found"
End If

With WScript.CreateObject("InternetExplorer.Application")
	WScript.Echo "Internet Explorer version: " & WScript.CreateObject("Scripting.FileSystemObject").GetFileVersion(.FullName)
	.Quit
End With

WScript.Quit 0

Это не единственный способ.