UMnieDziala.pl

 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