Windows Script Host для Windows 2000/XP
вернуться

Попов Андрей Викторович
Шрифт:

Function CheckPath

 Dim FSO

 'Создаем объект FileSystemObject

 Set FSO=CreateObject("Scripting.FileSystemObject")

 'Проверяем доступность исходного каталога

 If Not FSO.FolderExists(SFrom) Then

'Исходный каталог не существует

'Формируем строку с информацией об ошибке

SErrMess="Не найден исходный каталог " & SFrom

CheckPath=false

 End If

 'Проверяем доступность каталога для архивирования

 If Not FSO.FolderExists(SArch) Then

'Каталог для архивирования не существует

'Формируем строку с информацией об ошибке

SErrMess="Не найден каталог для хранения архивов " & SArch

CheckPath=false

 End If

 'Если оба каталога существуют, возвращаем true

 CheckPath=true

End Function

'Архивирование файлов из исходного каталога

Function FilesToArchiv

 Dim WshShell,SComLine,RetCode,SFName,FSO

 'Если хотя бы один из каталогов не существует, возвращаем false

 If Not CheckPath Then

FilesToArchiv=false

 End If

 'Создаем объект FileSystemObject

 Set FSO=CreateObject("Scripting.FileSystemObject")

 'Создаем объект WshShell

 Set WshShell=CreateObject("WScript.Shell")

 'Формируем имя файла-архива

 SFName=SPref & NowIs & ".arj"

 'Формируем командную строку для запуска архиватора arj.exe

 SComLine="%COMSPEC% /c arj.exe a "

 SComLine=SComLine & FSO.BuildPath(SArch,SFName)+" "

 SComLine=SComLine & FSO.BuildPath(SFrom,SMask)

 'Запускаем архиватор arj.exe

 RetCode = WshShell.Run(SComLine, 1, true)

 'Анализируем код возврата для arj.exe

 If 0=RetCode Then

'Выполнение arj.exe завершилось без ошибок

FilesToArchiv=true

 Else

'Формируем строку с информацией об ошибке

SErrMess="Ошибка ARJ.EXE! Код " & RetCode

FilesToArchiv=false

 End If

End Function

]]>

 </script>

</component>
 

Глава 11

Применение сценариев WSH для администрирования Windows ХР

Одним из основных назначений сценариев WSH является, в конечном счете, автоматизация работы администраторов компьютерных систем, построенных на базе Windows. В данной главе мы рассмотрим примеры сценариев, которые могут быть полезны администраторам в их повседневной работе, например, при создании сценариев регистрации для пользователей.

Особое внимание мы уделим вопросам применения в сценариях WSH таких мощных современных технологий Microsoft, как ADSI — Active Directory Service Interface и WMI — Windows Management Instrumentation, которые позволяют автоматизировать процесс администрирования как отдельной рабочей станции, так и крупной корпоративной информационной системы в целом. Отметим, что в данной книге не ставится задача более или менее полного раскрытия этих технологий, а лишь кратко описываются их основные возможности и приводятся примеры сценариев для их реализации.

Использование службы каталогов Active Directory Service Interface (ADSI)

Обсудим сначала термины "каталог" и "служба каталога", которые будут использоваться в этом разделе. Под каталогом в общем смысле этого слова подразумевается источник информации, в котором хранятся данные о некоторых объектах. Например, в телефонном каталоге хранятся сведения об абонентах телефонной сети, в библиотечном каталоге — данные о книгах, в каталоге файловой системы — информация о находящихся в нем файлах.