code:

---

		
$VerNmb1 = READVALUE "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CurrentVersion")
IF $VerNmb1 = "5.0"
$machine=@wksta
$TAG=WMIQuery("IdentifyingNumber","Win32_ComputerSystemProduct","$machine")
$MARKE=WMIQuery("Name","Win32_ComputerSystemProduct","$machine")
$TILLV=WMIQuery("Vendor","Win32_ComputerSystemProduct","$machine")
FUNCTION WMIQuery($what,$where, optional $computer)	
	dim $strQuery, $objEnumerator, $value
	if not $computer	$computer="@WKSTA"	endif
	$strQuery = "Select $what From $where"	
	$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer")		
	$objEnumerator = $SystemSet.ExecQuery($strQuery)	
	For Each $objInstance in $objEnumerator		
		If @Error = 0 and $objInstance <> ""
			$=execute("$$value = $$objInstance.$what")	
			$WMIQuery="$value"+"|"+"$WMIQuery"			
			EndIf
		Next
	$WMIQuery=left($WMIQuery,len($WMIQuery)-1)	
	exit @error
ENDFUNCTION
	ELSE
		$TAG = "N/A"
		$MARKE = "N/A"
		$TILLV = "N/A"
ENDIF  

---

code:

---

$DellBIOS = GetObject("winmgmts:").ExecQuery("select * from Win32_BIOS")
if @error <> 0
   ? @error + " / " @serror ? ? shell "%comspec% /c pause"
else
   for each $Item in $DellBIOS
       $SerNum = $Item.SerialNumber
   next
endif
? ? "Dell Service Tag: $SerNum" ? ? shell "%comspec% /c pause"
exit

---

code:

---

$DellBIOS = GetObject("winmgmts://RemoteComputerName or IPAddress").ExecQuery("select * from Win32_BIOS")

---

code:

---

$DellBIOS = GetObject("winmgmts:").ExecQuery("select * from Win32_BIOS")
if @error = 0
   for each $Item in $DellBIOS
       $manuf = $Item.Manufacturer
       $SerNum = $Item.SerialNumber
   next
   if $manuf = "dell computer corporation"
      shell "%comspec% /c echo @wksta#@userid#$SerNum > \\serverName\shareName$\BIOS_@wksta"
   endif
endif
exit

---

code:

---

; Determine Serialnr
$Serialnr = WMIQuery("SerialNumber","Win32_BIOS")
   If LEN("$Serialnr") < 2
      $Serialnr = WMIQuery("SerialNumber","Win32_SystemEnclosure")
      If Instr($Serialnr,"|")
         For Each $Return in Split($Serialnr,"|")
            If LEN($Return)<10
               $Serialnr = $Return
            Endif
         Next
      Endif
      If LEN("$Serialnr") < 2
         $Serialnr = WMIQuery("IdentifyingNumber","Win32_ComputerSystemProduct","@WKSTA")
      Endif
   Endif
Endif

; Determine Model name
$MachineName = WMIQuery("Name","Win32_ComputerSystemProduct","@WKSTA")
If $MachineName = ""
   $MachineName = "-------"
Endif

---

code:

---

 	$Make 	=split(WMIQuery("Manufacturer","Win32_ComputerSystem"))[0]
	$Model	=trim(WMIQuery("Model","Win32_ComputerSystem"))
		select
			case instr("$model","pro")	$case="Desktop"	
			case instr("$model","evo")	$case="Desktop"	
			case instr("$model","lat")	$case="Laptop"	
			case 1				$case="Not Specified"
			endselect
	$asset	=WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
		if instr($asset,"|")
			for each $return in split($asset,"|")
				if $return	$asset=$return		endif
				next
			endif
	$asset	=trim($asset)
	$SerNo	=WMIQuery("SerialNumber","Win32_BIOS")
		if len($SerNo) < 2 	
			$SerNo=WMIQuery("SerialNumber","Win32_SystemEnclosure")
			if instr($serno,"|")
				for each $return in split($serno,"|")
					if len($return)<10	$serno=$return		endif
					next
				endif
			endif
	$SerNo	=trim(ucase($SerNo)) 

---