' Kod definiuje etykiet woluminu.
' Klasa Win32_Volume jest nowoci w systemie Windows Server 2003.
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strDrive = "<Napd>"  ' np. C:
strLabel = "<Etykieta>"  ' np. Wolumin systemowy
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colVol = objWMI.ExecQuery("select * from Win32_Volume where Name = '" & _
                              strDrive & "\\'")
if colVol.Count <> 1 then
   WScript.Echo "Bd: wolumin nie zosta znaleziony."
else
   for each objVol in colVol
      objVol.Label = strLabel
      objVol.Put_
      WScript.Echo "Definiowanie etykiety dla woluminu zostao zakoczone powodzeniem."
   next 
end if
