code:

---

 	$Make 	=split(WMIQuery("Manufacturer","Win32_ComputerSystem"))[0]
	$Model	=trim(WMIQuery("Model","Win32_ComputerSystem"))
		select
			case instr("$model","pro")	$case="Desktop"	
			case instr("$model","evo")	$case="Desktop"	
			case instr("$model","lat")	$case="Laptop"	
			case 1				$case="Not Specified"
			endselect
	$asset	=WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
		if instr($asset,"|")
			for each $return in split($asset,"|")
				if $return	$asset=$return		endif
				next
			endif
	$asset	=trim($asset)
	$SerNo	=WMIQuery("SerialNumber","Win32_BIOS")
		if len($SerNo) < 2 	
			$SerNo=WMIQuery("SerialNumber","Win32_SystemEnclosure")
			if instr($serno,"|")
				for each $return in split($serno,"|")
					if len($return)<10	$serno=$return		endif
					next
				endif
			endif
	$SerNo	=trim(ucase($SerNo)) 

---