' Kod mapuje dysk na udzia sieciowy.
' ------ KONFIGURACJA SKRYPTU ------
strDrive = "<Napd>"      ' np. N:
strPath = "<cieka>"     ' np. \\rtp01\c$\temp
strUser = "<Uytkownik>"  ' np. AMER\rallen
strPassword = "<Haso>"
boolPersistent = True   ' True = trwae mapowanie ; False = mapowanie tymczasowe
' ------ KONIEC KONFIGURACJI ---------
set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDrive, strPath, boolPersistent, _
                           strUser, strPassword
WScript.Echo "Mapowanie dysku zostao zakoczone powodzeniem."
