code:

---

:Hardware
	$Biosv=""	$Biosd=""	$Make=""	$Model=""	$SerNo=""	$Case=""
	$CPUfm=""	$CPUsp=""	$dimm1=""	$dimm2=""	$dimm3=""	$memory=""
	if @ras=0
		If exist("c:\smbios.exe")=0
			? "	Installing SMBIOS inspector"
			copy "$logon\smbios.exe" "c:\"
			endif
		endif
	go c:
	cd "c:\"
	del "c:\hardware.lst"
	shell "%comspec% /c c:\smbios.exe >nul"
	sleep 1
	$Biosv=readprofilestring("c:\hardware.lst","Bios","Version")
	$biosd=readprofilestring("c:\hardware.lst","Bios","Date")
	$Make =readprofilestring("c:\hardware.lst","System","Make")
	$Model=readprofilestring("c:\hardware.lst","System","Model")
	$SerNo=readprofilestring("c:\hardware.lst","System","Serial#")
	$Case =readprofilestring("c:\hardware.lst","Case","Type")
	$CPUfm=readprofilestring("c:\hardware.lst","Processor-4","Family")
	$CPUsp=readprofilestring("c:\hardware.lst","Processor-4","CurSpeed")
	if $CPUfm=""	
		$CPUfm=readprofilestring("c:\hardware.lst","Processor-400","Family")
		$CPUsp=readprofilestring("c:\hardware.lst","Processor-400","CurSpeed")
		endif
	select
		case $make="Dell Computer Corporation"
			$dimm1=readprofilestring("c:\hardware.lst","MemDev4352","Size")
			$dimm2=readprofilestring("c:\hardware.lst","MemDev4353","Size")
			$memory=val("$dimm1")+val("$dimm2")
		case $make="Compaq"
			$dimm1=readprofilestring("c:\hardware.lst","MemDev35","Size")
			$dimm2=readprofilestring("c:\hardware.lst","MemDev36","Size")
			$dimm3=readprofilestring("c:\hardware.lst","MemDev37","Size")
			$memory=val("$dimm1")+val("$dimm2")+val("$dimm3")
		endselect
	$freespace=getdiskspace("C:\")
	? "	Computer "color c+/n "Manufacturer " color w/n "is " color w+/n $Make color w/n
	? "	Computer "color c+/n "Model " color w/n "is " color w+/n $Model color w/n
	? "	Computer "color c+/n "Bios " color w/n "is " color w+/n $Biosv color w/n " dated " color w+/n $Biosd color w/n
	? "	Computer "color c+/n "Serial Number " color w/n "is " color w+/n $SerNo color w/n
	? "	Computer "color c+/n "Processor " color w/n "is a " color w+/n $CPUfm color w/n " running at " color w+/n $CPUsp color w/n
	? "	Computer "color c+/n "Memory " color w/n "is " color w+/n $memory " MB" color w/n 
	return
;********************************************* end of Hardware ***********************************************************

---