' Kod tworzy witryn WWW
' ------ 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 ---------
set objIIS = GetObject("IIS://" & strComputer & "/W3SVC" )
objServerBindings = Array(0)
objServerBindings(0) = strIP & ":" & strPort & ":" & strHostHeader
strNewSiteID = objIIS.CreateNewSite(strSiteName, objServerBindings, _
                                    strRootDir, strSiteID)
WScript.Echo "Z powodzeniem utworzono witryn WWW " & strSiteName & _
             " posiadajc identyfikator " & strNewSiteID 
