' Kod tworzy wirtualny katalog dla domylnej witryny WWW
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "rallen-w2k3"
strVdirName = "<NazwaWirtualnegoKatalogu>"    'np. pracownicy
strVdirPath = "<cieka>"                     'np. D:\resumes
' ------ KONIEC KONFIGURACJI ---------
set objIIS = GetObject("IIS://" & strComputer & "/W3SVC/1")
set objWebSite = objIIS.GetObject("IISWebVirtualDir","Root")
set objVdir = objWebSite.Create("IISWebVirtualDir",strVdirName)
objVdir.AccessRead = True
objVdir.Path = strVdirPath
objVdir.SetInfo
WScript.Echo "Z powodzeniem utworzono wirtualny katalog: " & objVdir.Name
