Windows Script Host для Windows 2000/XP

Function put_SPref(newValue)
 SPref = newValue
End Function
'Чтение и запись свойства SMask
Function get_SMask
 get_SMask = SMask
End Function
Function put_SMask(newValue)
 SMask = newValue
End Function
'Чтение свойства SErrMess
Function get_SErrMess
 get_SErrMess = SErrMess
End Function
'Вспомогательная функция для символьного представления даты
Function NowIs
 Dim d,s,s1
 s=""
 s1=""
 'Определяем текущую дату
 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
 ]]>
 </script>
</component>

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

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

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

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

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