Manufacturer: Dell Computer Corporation Model: OptiPlex GX150 Manufacturer (hex): 44656C6C 20436F6D 70757465 7220436F 72706F72 6174696F 6E Hex to String Converter: http://chxo.com/scripts/hex2string.php 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 = (vbCrLf & space(3) & "Manufacturer: " & objComputer.Manufacturer & vbCrLf &_ space(3) & "Model: " & objComputer.Model & vbCrLF & vbCrLf & space(3) & "Manufacturer (hex): " & vbCrLf & space(3)& MfgHex) Next Ts.WriteLine ComputerReport : Ts.Close Act.Run(Chr(34)& Dtop & "\ComputerReport.txt" & Chr(34)),1,True