DIM $Set1, $Set2, $CaseType, $SystemType,$SerialNumb,$Mfg

$Set1=SetOption('Explicit','ON')

$Set2=SetOption('NoVarsInStrings','ON')



$CaseType=WMIQuery('ChassisTypes','Win32_SystemEnclosure')[0]

$SerialNumb=WMIQuery('SerialNumber','Win32_SystemEnclosure')[0]

$Mfg=WMIQuery('Manufacturer','Win32_SystemEnclosure')[0]



SELECT

  CASE $CaseType =  1 $SystemType = 'Other'

  CASE $CaseType =  2 $SystemType = 'Unknown'

  CASE $CaseType =  3 $SystemType = 'Dekstop'

  CASE $CaseType =  4 $SystemType = 'Low Profile Desktop'

  CASE $CaseType =  5 $SystemType = 'Pizza Box'

  CASE $CaseType =  6 $SystemType = 'Mini Tower'

  CASE $CaseType =  7 $SystemType = 'Tower'

  CASE $CaseType =  8 $SystemType = 'Portable'

  CASE $CaseType =  9 $SystemType = 'Laptop'

  CASE $CaseType = 10 $SystemType = 'Notebook'

  CASE $CaseType = 11 $SystemType = 'Hand Held'

  CASE $CaseType = 12 $SystemType = 'Docking Station'

  CASE $CaseType = 13 $SystemType = 'All in One'

  CASE $CaseType = 14 $SystemType = 'Sub Notebook'

  CASE $CaseType = 15 $SystemType = 'Space-Saving'

  CASE $CaseType = 16 $SystemType = 'Lunch Box'

  CASE $CaseType = 17 $SystemType = 'Main System Chassis'

  CASE $CaseType = 18 $SystemType = 'Expansion Chassis'

  CASE $CaseType = 19 $SystemType = 'SubChassis'

  CASE $CaseType = 20 $SystemType = 'Bus Expansion Chassis'

  CASE $CaseType = 21 $SystemType = 'Peripheral Chassis'

  CASE $CaseType = 22 $SystemType = 'Storage Chassis'

  CASE $CaseType = 23 $SystemType = 'Rack Mount Chassis'

  CASE $CaseType = 24 $SystemType = 'Sealed-Case PC'

ENDSELECT



? 'Manufacturer: '+$Mfg

? 'System Type: '+$SystemType

? 'Serial Number: '+$SerialNumb



FUNCTION WMIQuery($sWhat, $sFrom, Optional $sComputer, Optional $sWhere, Optional $x, Optional $root)

Dim $sQuery, $objEnum, $sValue, $sItem, $TMP, $SystemSet, $, $objInstance

If Not $sComputer $sComputer="." EndIf

if instr($sComputer,'\') $sComputer=right($sComputer,instrrev($sComputer,'\')) Endif

if not $root $root="\root\cimv2" Endif

$sQuery = "Select " + $sWhat + " From "+ $sFrom

If $sWhere AND $x $sQuery = $sQuery+" Where "+$sWhere+" = '"+$x+"'" EndIf

$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+$sComputer+$root)

If @ERROR Exit VAL("&"+Right(DecToHex(@ERROR),4)) EndIf

$objEnum = $SystemSet.ExecQuery($sQuery)

If @ERROR Exit VAL("&"+Right(DecToHex(@ERROR),4)) EndIf

   For Each $objInstance in $objEnum

      If $objInstance

         $=Execute("$"+"sValue = $"+"objInstance."+$sWhat)

         if VarType($sValue) & 8192

            For Each $sItem in $sValue $tmp=$tmp+'|'+Trim($sItem) Next

         else

            $tmp=$tmp+'|'+Trim($svalue)

            Endif

         EndIf

      Next

   $WMIQuery = split(substr($tmp,2),'|')

   Exit VAL("&"+Right(DecToHex(@ERROR),4))

ENDFUNCTION

DIM $Set1, $Set2,$ST

$Set1=SetOption('Explicit','ON')

$Set2=SetOption('NoVarsInStrings','ON')



$ST = SystemType()

'System type: ' + $st[0] ?

'System description: ' + $st[1] ?



Function SystemType(Optional $WS)

  Dim $SysType,$oWMIService,$cItems,$Item,$cType,$oItem

  $cType = 0

  $SystemType = 'Not Found'

  $SysType = Split('Unknown|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','|')

  If Not $WS

    $WS = "."

  EndIf

  $oWMIService = GetObject("winmgmts:\\" + $WS + "\root\cimv2")

  If $oWMIService

    $cItems = $oWMIService.ExecQuery("Select * from Win32_SystemEnclosure")

    For Each $oItem In $cItems

      For Each $Item In $oItem.ChassisTypes

        $cType = Val($Item)

      Next

    Next

    Select

      Case AScan(Split('8,9,10,11,12,13,14',','),$cType) >= 0

        $SystemType = 'Portable'

      Case AScan(Split('3,4,6,7,15,24',','),$cType) >= 0

        $SystemType = 'Desktop'

      Case AScan(Split('5,16,17,18,19,20,21,22,23',','),$cType) >= 0

        $SystemType = 'Server/Expansion'

      Case 1

        $SystemType = 'Unknown'

    EndSelect

  EndIf

  $SystemType = Split($SystemType + Chr(9) + $SysType[$cType], Chr(9))

EndFunction