# Kod definiuje dla witryny FTP wycznie anonimowy dostp, 
# a take konfiguruje domylne konto uytkownika i haso

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
$strSiteID = '<IdentyfikatorLokacji>';
# ------ KONIEC KONFIGURACJI ---------
$objFtpSite = Win32::OLE->GetObject('IIS://' . $strComputer . '/MSFTPSVC/' . $strSiteID);

$objFtpSite->{AllowAnonymous} = 1;
$objFtpSite->{AnonymousOnly} = 1;
$objFtpSite->{AnonymousUserName} = 'DOMAIN\\iisuser';
$objFtpSite->{AnonymousUserPass} = '!!sUser';
$objFtpSite->SetInfo();

print 'Z powodzeniem zmodyfikowano ustawienia dostpu anonimowego dla witryny: ' . $objFtpSite->ServerComment, "\n";

