' Kod tworzy wirtualny dysk.
' ------ 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 ---------
set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run(strCommand, 0, TRUE)
if intRC <> 0 then
   WScript.Echo "Po wykonaniu polecenie zwrcio bd: " & intRC
   WScript.Echo "Prba wykonania polecenia: " & strCommand 
else
   WScript.Echo "Dziaanie programu zostao zakoczone powodzeniem."
end if
