Po małej wędróce po zakamarkach WMI odkryem ze ten skrypt:
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("Lab110-03")
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Computer: " & strComputer&" ServiceTag: " & objItem.SerialNumber
Next
Next
Idealnie nadaję się do zrzucania service Tagów z delli