[megaloman]

megaloman , я так понимаю это невозможно сделать?! »

Мне казалось, что из приведенного решения это сделать просто, от слова совсем

Код:

FileOut = "Z:\Box_Out\fileout.txt"

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2:Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = "Компьютер:" + vbTab + vbTab + CreateObject("WScript.Network").ComputerName + vbCrLf

For Each objOS In colWMI
    txt = txt + "Операционная система:" + vbTab + objOS.Caption + " " + objOS.Version + vbCrLf
    txt = txt + "Тип системы:" + vbTab + vbTab + objOS.OSArchitecture + vbCrLf
Next

'	MsgBox txt

With CreateObject("Scripting.FileSystemObject").CreateTextFile(FileOut, True)
    .Write txt
    .Close
End With