or

code:
 
  DIM $SysType[25]
  $SysType=split('Other|Unknown|Desktop|Low Profile Desktop|Pizza Box|Mini Tower|Tower|Portable|'+
		 'Laptop|Notebook|Hand Held|Docking Station|All in One|Sub Notebook|Space-Saving|'+
		 'Lunch Box|Main System Chassis|Expansion Chassis|SubChassis|Bus Expansion Chassis|'+
		 'Peripheral Chassis|Storage Chassis|Rack Mount Chassis|Sealed-Case PC','|')
  $CaseType = WMIQuery('ChassisTypes','Win32_SystemEnclosure')[0]
  ? $systype[val($CaseType)-1]

  Select
     case ascan(split('8,9,10,12,14',','),$CaseType)		$Case = 'Laptop'
     case ascan(split('3,4,5,6,7,13,15,24',','),$CaseType)	$Case = 'Desktop'
     case 1							$Case = 'Unknown'
     EndSelect


[ 23. September 2003, 04:59: Message edited by: Radimus ]
_________________________
How to ask questions the smart way <-----------> Before you ask