Windows Script Host для Windows 2000/XP, Попов Андрей Викторович

Windows Script Host для Windows 2000/XP

на обложку

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

Шрифт:

Если сценарий был запущен не из того каталога, в котором находится сам файл со сценарием, то текущий каталог не будет совпадать с каталогом сценария. Для того чтобы получить путь к каталогу сценария, нужно выделить этот путь из свойства

WScript.ScriptFullName

, содержащему полный путь к выполняемому сценарию (включая имя файла). На языке JScript это можно реализовать с помощью функции

GetScriptDir

следующего содержания:

function GetScriptDir {

var ScriptDir;

ScriptDir = WScript.ScriptFullName;

ScriptDir = ScriptDir.substring(0, ScriptDir.lastIndexOf("\\"));

return ScriptDir;

}

Полные

тексты сценариев на языках JScript (PropScript.js) и VBScript (PropScript.vbs), выводящих на экран сведения о свойства WSH и запущенного сценария, приведены в листингах 2.19 и 2.20 соответственно; результат работы сценария PropScript.js представлен на рис. 2.7.

Рис. 2.7. Результаты выполнения сценария PropScript.js в графическом режиме

Листинг 2.19. Вывод свойств WSH и запущенного сценария (JScript)

/*******************************************************************/

/* Имя: PropScript.js */

/* Язык: JScript */

/* Описание: Вывод свойств запущенного сценария */

/*******************************************************************/

//Проверка режима, в котором запущен сценарий

function IsCScript {

return ("c"== WScript.FullName.toLowerCase.charAt(WScript.FullName.length - 11));

}

//Возвращает каталог, содержащий запущенный сценарий

function GetScriptDir {

var ScriptDir;

ScriptDir = WScript.ScriptFullName;

ScriptDir = ScriptDir.substring(0, ScriptDir.lastIndexOf("\\"));

return ScriptDir;

}

/******************* Начало **********************************/

var WshShell,s; //Объявляем переменные

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

WshShell=WScript.CreateObject("WScript.Shell");

s=" Свойства запущенного сценария:\n\n";

//Проверяем, в каком режиме был запущен сценарий

if (IsCScript) s+="Запущен в консольном режиме\n";

else s+="Запущен

в графическом режиме\n";

//Определяем остальные параметры

s+="Путь к серверу: "+WScript.FullName+"\n";

s+="Каталог сервера: "+WScript.Path+"\n";

s+="Версия WSH: "+WScript.Version+"\n\n";

s+="Текущий каталог: "+ WshShell.CurrentDirectory+"\n";

s+="Путь к сценарию: "+WScript.ScriptFullName+"\n";

s+="Каталог сценария: "+GetScriptDir+"\n";

s+="Имя сценария: "+WScript.ScriptName+"\n";

WScript.Echo(s); //Выводим сформированные строки

/************* Конец *********************************************/

Листинг 2.20. Вывод свойств WSH и запущенного сценария (VBScript)

'*******************************************************************

' Имя: PropScript.vbs

' Язык: VBScript

' Описание: Вывод свойств запущенного сценария

'*******************************************************************

Option Explicit

' Проверка режима, в котором запущен сценарий

Function IsCScript

IsCScript=("c"=Mid(LCase(WScript.FullName),Len(WScript.FullName)-10,1))

End Function

' Возвращает каталог, содержащий запущенный сценарий

Function GetScriptDir

Dim ScriptDir

ScriptDir = WScript.ScriptFullName

ScriptDir = Left(ScriptDir, InstrRev(ScriptDir,"\")-1)

GetScriptDir=ScriptDir

End Function

'******************* Начало **********************************/

Dim WshShell,s ' Объявляем переменные

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

Set WshShell=WScript.CreateObject("WScript.Shell")

s=" Свойства запущенного сценария:" & vbCrLf & vbCrLf

' Проверяем, в каком режиме был запущен сценарий

If IsCScript Then

s=s & "Запущен в консольном режиме" & vbCrLf

Else

s=s & "Запущен в графическом режиме" & vbCrLf

End If

1-26 27 28 29 30 31 32 33 34 35 36 37 38-188

И.П.Павлов PRO ET CONTRA

Коллектив авторов

Русский путь

Документальная литература:

биографии и мемуары

5.00

рейтинг книги

Неучтенный элемент. Том 12

NikL

12. Антимаг. Вне системы

Фантастика:

фэнтези

5.00

рейтинг книги

Дом в овраге

Варго Александр

MYST. Черная книга 18+

Детективы:

триллеры

9.14

рейтинг книги

Солнечный корт

Сакавич Нора

4. Все ради игры

Фантастика:

зарубежная фантастика

8.00

рейтинг книги

Прометей: каменный век

Рави Ивар

1. Прометей

Фантастика:

альтернативная история

6.82

рейтинг книги

Точка Бифуркации IV

Смит Дейлор

4. ТБ

Фантастика:

героическая фантастика

городское фэнтези

попаданцы

5.00

рейтинг книги

Кодекс Крови. Книга VII

Борзых М.

7. РОС: Кодекс Крови

Фантастика:

боевая фантастика

попаданцы

аниме

5.25

рейтинг книги

Письма

Пелусиот Исидор

Религия и эзотерика:

религия

5.00

рейтинг книги

Том 14. Критические статьи, очерки, письма

Гюго Виктор

14. Собрание сочинений