# Kod tworzy wirtualny katalog dla domylnej witryny WWW

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
$strVdirName = '<NazwaWirtualnegoKatalogu>'; # np. pracownicy
$strVdirPath = '<cieka>'; # np. D:\resumes
# ------ KONIEC KONFIGURACJI ---------
$objIIS = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC/1');
$objWebSite =  $objIIS->GetObject("IISWebVirtualDir","Root");
$objVdir = $objWebSite->Create('IISWebVirtualDir', $strVdirName);
$objVdir->{AccessRead} = 1;
$objVdir->{Path} = $strVdirPath;
$objVdir->SetInfo();
print 'Z powodzeniem utworzono wirtualny katalog: ' . $objVdir->Name, "\n";
