# Kod tworzy wirtualny dysk.

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strDrive = '<Napd>'; # np. e:
$strPath = '<cieka>'; # np. c:\scripts

# Zakada si, e narzdzie subst uwzgldniono w zmiennej rodowiskowej PATH.
# W przeciwnym razie naley poda tu pen ciek programu.
$strCommand = 'subst ' . $strDrive . ' ' . $strPath;
# ------ KONIEC KONFIGURACJI ---------
$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run($strCommand, 0, 1);
if ($intRC != 0) {
    print 'Po wykonaniu polecenie zwrcio bd: ' . $intRC, "\n";
    print "Prba wykonania polecenia: $strCommand\n";
}
else {
    print "Dziaanie programu zostao zakoczone powodzeniem.\n";
}
