;*************************************************************************************************************************
; Connect to computer's WMI service
$objWMIService = GetObject( "winmgmts://./root/cimv2" )
; Display error number and description if applicable
If @ERROR
	ShowError()
EndIf

; Get chassis object
$colChassis = $objWMIService.ExecQuery( "Select * from Win32_SystemEnclosure", , 16 )
; Display error number and description if applicable
If @ERROR
	ShowError()
EndIf


; Remove statements if you want to check for more specific
; laptop type (see comment lines after each CASE statement)
For Each $objChassis in $colChassis
	For Each $objItem in $objChassis.ChassisTypes
		Select
			Case $ObjItem =  8
				; Portable
				$IsLaptop = 1
			Case $ObjItem =  9
				; Laptop
				$IsLaptop = 1
			Case $ObjItem = 10
				; Notebook
				$IsLaptop = 1
			Case $ObjItem = 11
				; Hand Held
				$IsLaptop = 1
			Case $ObjItem = 12
				; Docking Station
				$IsLaptop = 1
			Case $ObjItem = 14
				; Sub Notebook
				$IsLaptop = 1
			Case 1
				$IsLaptop = 0
		EndSelect
	Next
Next

; Done
If $IsLaptop AND If Exist($path)
	?"This computer is a laptop ..........checking xxxx Security Settings "
	Goto InstallClient	
EndIf
Else
	?"This computer is NOT a laptop no additonal settings required"
EndIf

; Return code
Quit $IsLaptop


Function ShowError()
	? "Error # @ERROR"
	?
	Syntax
EndFunction


Function Syntax()
	? "IsLaptop.kix,  Version 1.00"
	? "Check if a computer is a laptop"
	?
	? "Usage   :  KIX32  ISLAPTOP.KIX  [ $$help=1 ]"
	?
	? "Returns :  Errorlevel 2 after help screen, 1 on laptops, otherwise 0"
	?
	; Abort with return code 1
	Quit 2
EndFunction

If $IsLaptop AND If Exist($path)
	?"This computer is a laptop ..........checking xxxx Security Settings "
	Goto InstallClient	
EndIf
Else
	?"This computer is NOT a laptop no additonal settings required"
EndIf

If $IsLaptop And Exist ($path)
  ? "This computer is a laptop ..........checking xxx Security Settings "
Else
  ? "This computer is NOT a laptop no additonal settings required"
EndIf