[megaloman]

Попробуйте. Выделенное красным можно удалить - там больше, чем Вы хотели.
Пропишите свой путь к файлу

Код:

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

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

txt = ""

Set objNet = CreateObject("WScript.Network")
outtxt = "ComputerName" + vbTab + objNet.ComputerName + vbCrLf

For Each objOS In colWMI
    txt = txt + "Caption" + vbTab + vbTab + objOS.Caption + vbCrLf
    txt = txt + "Version" + vbTab + vbTab + objOS.Version + vbCrLf
    txt = txt + "OSArchitecture" + vbTab + objOS.OSArchitecture + vbCrLf
    outtxt = outtxt + txt
    txt = txt + vbCrLf
    
    txt = txt + "BootDevice" + vbTab + objOS.BootDevice + vbCrLf
    txt = txt + "BuildNumber" + vbTab + objOS.BuildNumber + vbCrLf
    txt = txt + "BuildType" + vbTab + vbTab + objOS.BuildType + vbCrLf
    txt = txt + "CodeSet" + vbTab + vbTab + objOS.CodeSet + vbCrLf
    txt = txt + "CountryCode" + vbTab + objOS.CountryCode + vbCrLf
    txt = txt + "InstallDate" + vbTab + vbTab + Left(objOS.InstallDate, 8) + vbCrLf
    txt = txt + "NumberOfLicensedUsers" + vbTab + CStr(objOS.NumberOfLicensedUsers) + vbCrLf
    txt = txt + "Organization" + vbTab + objOS.Organization + vbCrLf
    txt = txt + "OSLanguage" + vbTab + CStr(objOS.OSLanguage) + vbCrLf
    txt = txt + "OSProductSuite" + vbTab + CStr(objOS.OSProductSuite) + vbCrLf
    txt = txt + "OSType" + vbTab + vbTab + CStr(objOS.OSType) + vbCrLf
    txt = txt + "Primary" + vbTab + vbTab + CStr(objOS.Primary) + vbCrLf
    txt = txt + "RegisteredUser" + vbTab + objOS.RegisteredUser + vbCrLf
    txt = txt + "SerialNumber" + vbTab + objOS.SerialNumber + vbCrLf
Next

MsgBox txt
MsgBox outtxt

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