Ich wärme mal einen Post aus meinem alten Blog wieder auf... Eine einfache Methode, per VBScript einen Dell Servicetag auszulesen und zwar ohne zusätzliche Programme bietet folgendes Script:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

For Each objSMBIOS in objWMIService.ExecQuery("Select * from Win32_SystemEnclosure")
Wscript.Echo "Serial Number: " & objSMBIOS.SerialNumber
Next