# Kod tworzy witryn WWW

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>'; # komputer, z ktrym nawizuje si poczenie
$strSiteName = '<NazwaWitrynyWWW>'; # opis witryny WWW
$strRootDir = '<ciekaKatalogu>'; # gwny katalog witryny WWW
# Ponisze parametry s opcjonalne
# strPort = "<NumerPortu>"     ' port uywany przez witryn WWW
# strIP = "<AdresIP>"        ' adres IP uywany przez witryn WWW
# strHostHeader = "<NazwaKomputera>" ' nagwek hosta uywany przez witryn WWW
# strSiteID = 1234             ' identyfikator witryny WWW (domylnie jest generowany automatycznie)
# ------ KONIEC KONFIGURACJI ---------
$objIIS = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC');
$objServerBindings->[0] = $strIP . ':' . $strPort . ':' . $strHostHeader;
$strNewSiteID = $objIIS->CreateNewSite($strSiteName, $objServerBindings, $strRootDir, $strSiteID);
print 'Z powodzeniem utworzono witryn WWW ' . $strSiteName . ' posiadajc identyfikator ' . $strNewSiteID, "\n";
