# Kod tworzy witryn FTP

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';# komputer, z ktrym jest nawizywane poczenie
$strSiteName = '<NazwaLokacji>'; # opis witryny FTP
$strRootDir = '<GwnyKatalog>'; # gwny katalog witryny
$strPort = '21'; # port uywany przez witryn
# Ponisze parametry s opcjonalne
# strIP = "<AdresIP>"        ' adres IP uywany przez witryn
# strHostHeader = "<NazwaKomputera>" ' nagwek hosta stosowany przez witryn
$strSiteID = '<IdentyfikatorLokacji>'; # identyfikator lokacji (domylnie jest generowany automatycznie)
# ------ KONIEC KONFIGURACJI ---------
$objIIS = Win32::OLE->GetObject('IIS://' . $strComputer . '/msftpsvc');
$objNewFtpServer = $objIIS->Create("IIsFtpServer",$strSiteID);
$objNewFtpServer->{ServerComment} = $strSiteName;
$objServerBindings->[0] = $strIP . ':' . $strPort . ':' . $strHostHeader;
$objNewFtpServer->{ServerBindings} = $objServerBindings;
$objNewFtpServer->SetInfo();

$objNewDir = $objNewFtpServer->Create('IIsFtpVirtualDir', 'ROOT');
$objNewDir->{Path} = $strRootDir;
$objNewDir->{AccessRead} = 1;
$objNewDir->SetInfo();

print 'Z powodzeniem utworzono witryn FTP ', $objNewFtpServer->ServerComment, "\n";
