' Kod tworzy witryn FTP
' ------ 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 ---------
set objIIS = GetObject("IIS://" & strComputer & "/msftpsvc" )
set objNewFtpServer = objIIS.Create("IIsFtpServer",strSiteID)
objNewFtpServer.ServerComment = strSiteName
objServerBindings = Array(0)
objServerBindings(0) = strIP & ":" & strPort & ":" & strHostHeader
objNewFtpServer.ServerBindings = objServerBindings
objNewFtpServer.SetInfo

set objNewDir = objNewFTPServer.Create("IIsFtpVirtualDir", "ROOT")
objNewDir.Path = strRootDir
objNewDir.AccessRead = True
objNewDir.SetInfo

WScript.Echo "Z powodzeniem utworzono witryn FTP " & objNewFtpServer.ServerComment
