code:

---

	$HD	=WMIQuery("Size","Win32_DiskDrive")
	$hdGB	=left($hd,len($hd)-9)
	$hdMBfr	=GetDiskSpace("c:")/1000
	$Video	=WMIQuery("Description","Win32_VideoController")
	$Printer=WMIQuery("DriverName","Win32_Printer",,"SystemName","@wksta")
	$modem	=WMIQuery("Description","Win32_POTSModem",,"Status","OK")
	$Biosv	=WMIQuery("SMBIOSBIOSVersion","Win32_BIOS")
	$biosd	=WMIQuery("Version","Win32_BIOS")
	$Make 	=WMIQuery("Manufacturer","Win32_ComputerSystem")
	$Model	=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
	$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))
	$CPUsp	=WMIQuery("CurrentClockSpeed","Win32_Processor")
		if instr($CPUsp,"179")		$CPUsp=1800		endif
		if instr($CPUsp,"106")		$CPUsp=1100		endif
		if instr($CPUsp,"702")		$CPUsp=700		endif
	$dimms	=Split(WMIQuery("Capacity","Win32_PhysicalMemory"),"|")
		for $a=0 to ubound($dimms)
			$=execute("$$dimm$a=val($$dimms[$a]) / 1048576")
			$=execute("$$memory=val($$Memory)+val($$dimm$a)")
			next

---