' Kod definiuje dla witryny FTP wycznie anonimowy dostp, 
' a take konfiguruje domylne konto uytkownika i haso
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"
strSiteID = "<IdentyfikatorLokacji>"
' ------ KONIEC KONFIGURACJI ---------
set objFtpSite = GetObject("IIS://" & strComputer & "/MSFTPSVC/" & strSiteID)

objFtpSite.AllowAnonymous    = True
objFtpSite.AnonymousOnly     = True
objFtpSite.AnonymousUserName = "DOMAIN\iisuser"
objFtpSite.AnonymousUserPass = "!!sUser"
objFtpSite.SetInfo

WScript.Echo "Z powodzeniem zmodyfikowano ustawienia dostpu anonimowego dla witryny: " & _
             objFtpSite.ServerComment
