this code
code:
:Hardware
$CPUsp =@mhz
$Memory =Memorysize(0) +1
$Modem =WMIQuery("Description","Win32_POTSModem")
$HD =WMIQuery("Size","Win32_DiskDrive")
$hdGB =left($hd,len($hd)-9)
$Make =WMIQuery("Manufacturer","Win32_ComputerSystem")
$Model =WMIQuery("Model","Win32_ComputerSystem")
$Biosv =WMIQuery("SMBIOSBIOSVersion","Win32_BIOS")
$biosd =WMIQuery("Version","Win32_BIOS")
$SerNo =WMIQuery("SerialNumber","Win32_BIOS")
if len($SerNo) < 2
$SerNo=WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
endif
select
case instr("$model","deskpro") $case="Desktop"
case instr("$model","evo") $case="Desktop"
case instr("$model","latitude") $case="Laptop"
case 1 $case="Not Specified"
endselect
? color c+/n " Computer Model: " color w+/n "$Make $Model $case" color w/n
? color w/n " " color w+/n trim(@CPU)" / $memory MB / $hdGB GB" color w/n
? color c+/n " Serial Number: " color w+/n $SerNo color w/n
return
generates this return... the UDF hasn't been altered.
code:
Determining Computer Hardware...
Computer Model: Compaq Evo D500 Desktop
Intel(R) Pentium(R) 4 CPU 1.80GHz / 512 MB / 20 GB
Serial Number: V526JYFYB689
If you still have problems, search for the WMI Object Browser. I can't remember where on MS's Site it was, but it will help you examing your system's WMI DB to locate your data.
