# Kod przypisuje woluminowi liter napdu.
# Klasa Win32_Volume jest nowoci w systemie Windows Server 2003.

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.';
$strOldDrive = 'I:';
$strNewDrive = 'J:';
# ------ KONIEC KONFIGURACJI ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colVol = $objWMI->ExecQuery('select * from Win32_Volume where Name = \'' . $strOldDrive . '\\\\\'');
if ($colVol->Count != 1) {
    print "Bd: wolumin nie zosta znaleziony.\n";
}
else {
    foreach my $objVol (in $colVol) {
        $objVol->{DriveLetter} = $strNewDrive;
        $objVol->Put_;
        print "Przypisanie woluminowi litery napdu zostao zakoczone powodzeniem.\n";
    }
}
