Андрей Попов - Windows Script Host для Windows 2000/XP

'Определяем текущую дату

d=Date()

'Выделяем номер месяца

s=s & Month(d)

'Если месяц представляется одним символом, добавляем слева "0"

If Len(s)=1 Then

s="0" & s

End If

'Выделяем в дате день

s1=s1 & Day(d)

'Если день представляется одним символом, добавляем слева "0"

If Len(s1)=1 Then

s1="0" & s1

End If

s=s & s1

'Возвращаем сформированную строку

NowIs=s

End Function

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

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

]]>

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

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

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

Что касается компьютерных сетей (локальных или глобальных), здесь также уместно говорить о каталогах, содержащих объекты разных типов: зарегистрированные пользователи, доступные сетевые принтеры и очереди печати и т.д. Для пользователей сети важно уметь находить и использовать такие объекты (а их в крупной сети может быть огромное количество), администраторы же сети должны поддерживать эти объекты в работоспособном состоянии. Под службой каталога (directory service) понимается та часть распределенной компьютерной системы (компьютерной сети), которая предоставляет средства для поиска и использования имеющихся сетевых ресурсов. Другими словами, служба каталога — это единое образование, объединяющее данные об объектах сети и совокупность служб, осуществляющих манипуляцию этими данными.