# Kod mapuje dysk na udzia sieciowy.

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

# ------ KONFIGURACJA SKRYPTU ------
$strDrive = '<Napd>'; # np. N:
$strPath = '<cieka>'; # np. \\rtp01\c$\temp
$strUser = '<Uytkownik>'; # np. AMER\rallen
$strPassword = '<Haso>';
$boolPersistent = 1; # True = trwae mapowanie ; False = mapowanie tymczasowe
# ------ KONIEC KONFIGURACJI ---------
$objNetwork = Win32::OLE->new('WScript.Network');
$objNetwork->MapNetworkDrive($strDrive, $strPath, $boolPersistent, $strUser, $strPassword);
print "Mapowanie dysku zostao zakoczone powodzeniem\n";
