Here is an OLD script that hopefully should still work at least some.
Code could probably use an update though.

 Code:
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