UMnieDziala.pl

Konkurs www.31337.pjwstk.edu.pl wkroczył po 6 miesiącach w fazę finalną - serwer skonfigurowany już stoi , mamy nawet już pierwszych uczestników.
Oczywiście do konkursu są dodatkowe statystyki http://peki.pjwstk.edu.pl/awstats/
Pozostaje tylko czekać na 14.02.06, kiedy ruszą zadania :)

 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