strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
    MfgHex=""
    for i=1 to len(objComputer.Manufacturer)
        MfgHex=MfgHex & Hex(Asc(Mid(objComputer.Manufacturer,i,1)))
        If i Mod 4 = 0 then MfgHex=MfgHex & " "
    Next
    ComputerReport = ("Manufacturer: " & objComputer.Manufacturer & vbCrLf &_
    "Model: " & objComputer.Model & vbCrLf &_
    MfgHex)
Next
WScript.Echo ComputerReport

strComputer = "."
Dim Act, ComputerReport, Fso, Dtop, Report, Ts
Set Act = CreateObject("Wscript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
Dtop = Act.SpecialFolders("Desktop")
Set Ts = Fso.CreateTextFile(Dtop & "\ComputerReport.txt")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
  MfgHex=""
  For i=1 To Len(objComputer.Manufacturer)
    MfgHex=MfgHex & Hex(Asc(Mid(objComputer.Manufacturer,i,1)))
    If i Mod 4 = 0 then MfgHex=MfgHex & " "
  Next
  ComputerReport = (space(3) & "Manufacturer: " & objComputer.Manufacturer & vbCrLf &_
  space(3) & "Model: " & objComputer.Model & vbCrLf & space(3)& MfgHex)
Next
Ts.WriteLine ComputerReport : Ts.Close
Act.Run(Chr(34)& Dtop & "\ComputerReport.txt" & Chr(34)),1,True

@for /F "tokens=2* delims=: " %%i in ('compname /s ^|findstr /L /c:"System    manufacturer"') do @set Manufacturer=%%j &@call manufacturerhex "%%j"