$Computername = "somecomputername"
  $objWMIService=GetObject("winmgmts:\\" + $Computername + "\root\cimv2")
 
	For Each $objItem In $objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
	"manufacturer " + $objItem.Manufacturer ?
        "Model " + $objItem.Model ?
       Next

$Computername = "somecomputername" ;variable - points to computer
  $objWMIService=GetObject("winmgmts:\\" + $Computername + "\root\cimv2") ;this connects
;to the WMI - notice that in this were the computername is.
 
	For Each $objItem In $objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) ;since a query (.ExecQuery) to win32_ComputerSystem returns an array, we need to get those things we want to see:
	"manufacturer " + $objItem.Manufacturer ? ;one
        "Model " + $objItem.Model ? ;and two
       Next

Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')

Dim $MyBIOSInfo,$Q
Global $Make,$Model,$SerNumb,$HKLMSMWCVAP,$Explorer,$Msg
$HKLMSMWCVAP = 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths'
$Explorer    = ReadValue($HKLMSMWCVAP + '\IEXPLORE.EXE','')
$MyBIOSInfo=GetBIOSInfo()
$Make = $MyBIOSInfo[0]
$Model = $MyBIOSInfo[1]
$SerNumb = $MyBIOSInfo[2]

$Msg=MessageBox('MFG  :  ' + $Make +@CRLF + 'Model:  ' + $Model + @CRLF + 'Serial :  ' + $SerNumb + @CRLF+@CRLF+
 'Go to the Web Support site for drivers ? ','Computer Model',4385)
If 1=$Msg
  GoToMake()
EndIf
Exit 1

Function GetBIOSInfo()
  Dim $WMIService, $Mfg,$Model,$Ser
  Dim $MItem,$SItem, $SerialNumber, $Manufacturer
  $WMIService = GetObject("winmgmts:" + "\root\cimv2")
  $Mfg  = $WMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
  $Ser  = $WMIService.ExecQuery("Select * from Win32_BIOS",,48)
  For Each $MItem In $Mfg
    If $MItem
      $Manufacturer = Trim($MItem.Manufacturer)
      $Model = Trim($MItem.Model)
    EndIf
  Next
  For Each $SItem In $Ser
    If $SItem
      $SerialNumber = Trim($SItem.SerialNumber)
    EndIf
  Next
  $GetBIOSInfo=$Manufacturer,$Model,$SerialNumber
EndFunction

Function GoToMake()
  Dim $URL
  Select
    Case InStr($Make,'dell') $URL = "http://support.dell.com/support/downloads/index.aspx?ServiceTag="+$SerNumb
    Case 1 $URL = ''
  EndSelect
    If $URL
      RUN $Explorer + ' ' + $URL
    Else
      $Msg=MessageBox('Unable to determine computer model.','Model unknown',48)
    EndIf
EndFunction
 

Break On
If IsLaptop()
	'Your Computer is a portable device'
Else
	'Your Computer is a NOT portable device'
EndIf
Get $x

Function IsLaptop()
	Dim $oWMI,$cItems,$oItem
	
	$oWMI = GetObject("winmgmts:root\cimv2")
	$IsLaptop=0
	$cItems = $oWMI.ExecQuery("Select * from Win32_Battery",,48)
	For Each $oItem In $cItems
		$IsLaptop=1
	Next
EndFunction