Практическое занятие № 10. Управление веб

advertisement
Администрирование информационных систем и сетей
Практическое занятие 10. Управление веб-сервером. Сценарии
VisualBasic.
1. Подключитесь с помощью удаленного рабочего стола к виртуальному компьютеру
US413-#.tc.rosnou.ru
2. Определите имя и ip-адрес компьютера.
3. Откройте командную строку и определите с помощью скриптов список веб-узлов,
созданных на сервере. Каков синтаксис команды? Какие параметры веб-узла команда
позволяет определить? Каковы параметры веб-узла, созданного Вами?
4. Используя MS Visual Studio, создайте сценарий на языке Visual Basic
ListOfWebSites.VBS. Внесите следующие команды (внесите изменения, используя имя
Вашего компьютера):
' VBScript source code
' отображает список веб-сайтов на сервере
Option Explicit
dim strComputer ' имя компьютера
dim objIIS, objSite
dim strPath
strComputer="."
strPath = "W3SVC"
set objIIS = GetObject("IIS://" & strComputer & "/" & strPath)
for each objSite in objIIS
if(objSite.Class = "IIsWebServer") then
WScript.Echo objSite.ServerComment & " (" & objSite.Name & ")"
end if
next
5. Используя MS Visual Studio, создайте сценарий на языке Visual Basic
CreateNewSite.VBS. Внесите следующие команды (внесите изменения, используя имя
Вашего компьютера, установите порт 90##, в качестве идентификатора сайта укажите
1##, где ## - ваш номер в списке группы, установите другой домашний каталог):
VBScript source code
' Создание нового веб-сайта
Option Explicit
dim strComputer ' имя компьютера
dim strSiteName ' описание веб-сайта
dim strRootDir ' корневой каталог веб-сайта
dim objIIS, objSite
dim newIIS
dim strPath
dim objServerBindings
dim strNewSiteID
' необязательные параметры сайта
dim strPort
' номер порта
dim strIP
' ip-адрес
dim strHostHeader ' заголовок сайта
dim strSiteID ' идентификатор сайта
strPort = 90##
strComputer = "."
strSiteName = "myNewSite" ‘укажите имя ЫВашего сайта
strRootDir = "с:\web"
strPath = "W3SVC"
strSiteID = 1##
set objIIS = GetObject("IIS://" & strComputer & "/" & strPath)
objServerBindings = Array(0)
objServerBindings(0) = strIP & ":" & strPort & ":" & strHostHeader
strNewSiteID = objIIS.CreateNewSite(strSiteName,objServerBindings,strRootDir,strSiteID)
Wscript.Echo "web сайт " & strSiteName & " на " & strComputer & " успешно запущен" & " с ID " &
strNewSiteID
6. Найдите новый веб-сайт в списке. Каковы его параметры?
7. Для запуска веб-узлов создайте следующий сценарий StartWeb.VBS команды (внесите
изменения, используя имя Вашего компьютера):
' VBScript source code
' Запуск веб-сайтов
Option Explicit
dim strComputer
dim strPath
dim objIIS, objSite
strComputer="."
strPath = "W3SVC"
set objIIS = GetObject("IIS://" & strComputer & "/" & strPath)
for each objSite in objIIS
if(objSite.Class = "IIsWebServer") then
objSite.Stop
WScript.Echo objSite.ServerComment & " (" & objSite.Name & ")" & " stopped"
end if
next
8. В Вашем веб-узле с помощью скриптов, создайте виртуальный каталог с собственным
именем (используйте латинское написание). Для создания виртуального каталога
используйте сценарий CreateVirDir.VBS. (измените в тексте на Ваш компьютер, в
качестве веб-узла используйте созданный сайт, в качестве места размещения укажите
папку www, предварительно созданную в Вашем каталоге):
' создание виртуальных каталогов
Option Explicit
dim strComputer ' имя компьютера
dim strVirDirName ' имя виртуального каталога VirtualDirectory
dim objIIS, objWebSite, objVdir
dim strVirDirPath ' месторасположение виртуального каталога d:\dima\virdir
dim strPath, strSiteID
strComputer = "."
strVirDirName = "VirtualDirectory"
strVirDirPath = "c:\web\virdir"
strPath = "W3SVC"
strSiteID = 1##
set objIIS = GetObject("IIS://" & strComputer & "/" & strPath & "/" & strSiteID)
set objWebSite = objIIS.GetObject("IISwebVirtualDir","Root")
set objVdir = objWebSite.Create("IISwebVirtualDir", strVirDirName)
objVdir.AccessRead = True
objVdir.Path = strVirDirPath
objVdir.SetInfo
Wscript.Echo "виртуальный каталог " & objVdir.Name & " successfully created "
9. Создайте сценарий ControlPermission.VBS для задания прав доступа к веб-узлу:
' VBScript source code
' код настройки разрешений веб-узла
Option Explicit
dim strComputer ' имя компьютера
dim objWebSite
dim strPath, strSiteID ' имя службы, идентификатор узла
strComputer = "."
strPath = "W3SVC"
strSiteID = 1##
set objWebSite = GetObject("IIS://" & strComputer & "/" & strPath & "/" & strSiteID)
objWebSite.AccessRead = True
objWebSite.AccessWrite = True
objWebSite.AccessSource = False
objWebSite.AccessScript = False
objWebSite.AccessExecute = False
objWebSite.SetInfo
Wscript.Echo "разрешения для веб-сайта " & objWebSite.ServerComment & " установлены "
10. Просмотрите, какие разрешения были установлены, после выполнения сценария?
11. Создайте сценарий ControlAccess.VBS для задания ограничений на доступ к веб-узлу по
сети (для указания ip-адреса установите ip-адреса соседнего компьютера и по
завершению выполнения проверьте результаты):
' VBScript source code ограничивает доступ к веб-сайту
Option Explicit
dim strComputer ' имя компьютера
dim objWebSite
dim strPath, strSiteID ' имя службы, идентификатор узла
dim objIPRestrict
dim arrDeny, i
strComputer = "."
strPath = "W3SVC"
strSiteID = 1##
set objWebSite = GetObject("IIS://" & strComputer & "/" & strPath & "/" & strSiteID)
set objIPRestrict = objWebSite.Get("IPSecurity")
objIPRestrict.IPDeny = Array("192.168.0.105")
objIPrestrict.DomainDeny = Array("tc.rosnou.ru")
objWebSite.IPSecurity = objIPRestrict
objWebSite.SetInfo
WScript.Echo "установлены ограничения на подключение к веб-сайту" &
objWebSite.ServerComment
WScript.Echo ""
WScript.Echo "IP Deny:"
arrDeny = objWebSite.Get("IPSecurity").IPDeny
for i=0 to Ubound(arrDeny)
WScript.Echo arrDeny(i)
next
arrDeny = objWebSite.Get("IPSecurity").DomainDeny
WScript.Echo ""
WScript.Echo "Domain Deny:"
arrDeny = objWebSite.Get("IPSecurity").DomainDeny
for i=0 to Ubound(arrDeny)
WScript.Echo arrDeny(i)
next
12. Просмотрите с помощью Диспетчера Служб IIS, какие свойства в итоге были
установлены для Вашего веб-сайта?
13. Покажите результаты выполнения работы.
Download