Hello and welcome to the board.

Well here is some quick and dirty code that can do it.

The main idea was from Radimus and pops up a box with the Computer MODEL and SERIAL number and offers to launch the browser to go to the DELL support site.

You can easily modfiy to get or do what you want.

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