'********************************************** ***
'Создаем веб-сервер
'Обязательные параметры: WRoot — физический каталог, в котором создан сайт; WComment — описание сайта; WPort — порт сайта; ServerRun — следует ли запускать автоматически;
' Возвращает 1 в случае успешного создания, предлагает выйти и возвращает 0 в случае сбоя, возвращает 2, когда сайт создан успешно, но не запускается.
'********************************************** ****
'
'******************Примечание: WPort — это тип списка, то есть порт сервера.
' Эта функция передается IIS5.0. **Необходимо войти в систему как администратор**
'Пример порта:
' Уменьшите WPort,списки привязок,createflag,oComputer
' oComputer=""""LocalHost""""
'списки=Массив(0)
' binlists(0)="""":80:""""'Номер порта 80
' WPort=списки
' createflag=CreateWebServer(""""D:myweb"""",""""Мой дом"""",WPort,False)'Вызов функции создания веб-сайта
' Если creatflag=0 Тогда
' Response.Write """"Не удалось создать сайт! Пожалуйста, убедитесь, что у вас есть разрешение""""
' ИначеЕсли createflag=1 Тогда
' Response.Write """"Сайт успешно создан! """"
' ИначеЕсли createflag=2 Тогда
' Response.Write """"Сайт создан успешно, но запустить сайт не удается, возможно, конфликт портов! """"
'Конец, если
'********************************************** *********
'О создании FTP-сайта я опубликовал его в asp-версии. Друзья, кому интересно, могут убедиться сами.
«Если у вас есть какие-либо вопросы, пожалуйста, свяжитесь со мной: [email protected]
Функция CreateWebServer(WRoot,WComment,WPort,ServerRun)
При ошибке Возобновить Далее
Тусклый ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' Сначала создайте экземпляр службы
WNumber=1
Делайте, пока IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
Если Номер ошибки<>0 Тогда
Ошибка.Очистить()
Выход сделать
Конец, если
WНомер=WНомер+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' Затем создайте WEB-серверЕсли
(Err.Number <> 0) Тогда 'Есть ли ошибка?
'Response.Write """"Ошибка: операция ADSI по созданию веб-сервера не удалась! """"
СоздатьВебСервер=0
Выход из функции
Конец, если
' Затем настраиваем сервер
ServerObj.ServerSize = 1 ' Средний размер
ServerObj.ServerComment = WComment 'Описание
ServerObj.ServerBindings = WPort 'Порт
ServerObj.EnableDefaultDoc=True
'Отправить информацию
ServerObj.SetInfo
' Наконец, создайте виртуальный каталог.
Set VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
Если (Номер ошибки <> 0) Тогда 'Есть ли ошибка?
'Response.Write """"Ошибка: операция ADSI по созданию виртуального каталога не удалась! """"
СоздатьВебСервер=0
Выход из функции
End If
'Настроить виртуальный каталог
VDirObj.Path = WRoot
VDirObj.AccessRead = Истина
VDirObj.AccessWrite = Истина
VDirObj.EnableDirBrowsing = Ложь
VDirObj.EnableDefaultDoc=Истина
VDirObj.AccessScript=Истина
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""Приложение по умолчанию""""
VDirObj.SetInfo
Если ServerRun = True Тогда
СерверОбж.Старт
If (Номер ошибки <> 0) Тогда ' Ошибка!
'Response.Write """"Ошибка: Ошибка запуска сервера! Пожалуйста, запустите веб-сервер """"&WComment&"""" вручную! <br>""""
СоздатьВебСервер=2
Выход из функции
Конец, если
Конец, если
Установить VDirObj=Ничего
Установить ServerObj=Ничего
Установить ServiceObj=Ничего
СоздатьВебСервер=1
Конечная функция