Найти: на

Объект Microsoft Script Control

Встречи on-line для разработчиков

Внимание! Сайт переехал на http://бизнесплюспермь.рф

Примеры использования объекта Microsoft Script Control в 1С - как выполнить любой код на VBScript или JScript

Объект Microsoft Script Control позволит исполнить код на VBScript или JScript. Присутствует в Windows начиная с версии 2000, в более ранних может быть установлен.

Может быть полезен, если нужно исполнить код, который не может быть исполнен непосредственно в 1С:Предприятии, например доступ к WMI (полное управление ОС, устройствами, AD, реестр и прочее), доступ к процедурам и функциям VBScript, JScript.


Примеры использования:

Пример 1. Получение случайного числа.
Попытка
	ScrCtrl = новый COMОбъект("MSScriptControl.ScriptControl");
	ScrCtrl.Language = "VBscript";
	ScrCtrl.ExecuteStatement("randomize");
	
	СлучайноеЧисло=ScrCtrl.Eval("rnd");
		
Исключение
	Сообщить(ОписаниеОшибки());
КонецПопытки;


Пример 2. Вычисление квадратного корня.
Попытка
	ScrptCtrl = новый COMОбъект("MSScriptControl.ScriptControl");
	ScrptCtrl.Language="vbscript";
	ScrptCtrl.AddCode("
	|Function GetSqr(x)
	| GetSqr = Sqr(x)
	|End Function
	|");
	
	// Преобразуем в строку
	СлучайноеЧислоСтрока = Строка(СлучайноеЧисло);
	
	// Разделитель целой и дробной частей должна быть точка, не запятая
	СлучайноеЧислоСтрока = СтрЗаменить(СлучайноеЧислоСтрока, ",", ".");
	
	КвадратныйКорень = ScrptCtrl.Eval("GetSqr(" + СлучайноеЧислоСтрока + ")");
		
Исключение
	Сообщить(ОписаниеОшибки());
КонецПопытки;

Обработку, содержащую примеры использования можно скачать здесь.


Внимание! Сайт переехал на http://бизнесплюспермь.рф

Hosted by uCoz