# Kod definiuje etykiet woluminu.
# Klasa Win32_Volume jest nowoci w systemie Windows Server 2003.

use Win32::OLE qw(in);
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.';
$strDrive = '<Napd>'; # np. C:
$strLabel = '<Etykieta>'; # np. Wolumin systemowy
# ------ KONIEC KONFIGURACJI ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colVol = $objWMI->ExecQuery('select * from Win32_Volume where Name = \'' . $strDrive . '\\\\\'');
if ($colVol->Count != 1) {
    print "Bd: wolumin nie zosta znaleziony.\n";
}
else {
    foreach my $objVol (in $colVol) {
        $objVol->{Label} = $strLabel;
        $objVol->Put_;
        print "Definiowanie etykiety dla woluminu zostao zakoczone powodzeniem.\n";
    }
}
