есть скрипт на vbs, который открывает базу 1С:

'Запуск 1С:Предприятия в пользовательском режиме

		if Base = BaseName then
			'sql
			ConnectString = """C:\Program Files\1cv82\8.2.19.80\bin\1CV8.EXE"" ENTERPRISE /S "& ServerName & ":1641" &"\"& BaseName  &" /DisableStartupMessages"
		else
			'dbf
			ConnectString = """C:\Program Files\1cv82\8.2.19.80\bin\1CV8.EXE"" ENTERPRISE /F "& BaseName  &" /DisableStartupMessages"
		end if
		WshShell.Run ConnectString,1,false

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

что-то типа ConnectString.МойМодуль.мояФункция()

это тебе com-коннектор нужно, имхо

(1) ага. как его в vbs вызвать?

Не порть конфу... "C:\Program Files\1cv82\8.2.17.235\bin\1cv8s.exe" ENTERPRISE /F "D:\1C\HRM" /N user /P password /Execute "D:\1C\Внешние_обработки_1С\РаботающиеОбработки\РабочийСтол.epf"
http://help1c.com/faq/view/474.html

(4) может, ему привилегированный режим нужен

(5) Это вряд ли...

(6) медиум?

(7) Практика... Он редко нужен.

да [...].
одинесники самые умные, цуко. просишь красное, дают черное

(9) А ты посмотри на задачу под другим углом, может тебе черное-то подойдет не хуже чем красное..

+ ща еще полдня потрачу на то, чтобы объяснить что мне нужно, и почему 3 не пойдет, потом дядя вася почешет в затылке и скажет "ну хз тогда"

(2) http://help1c.com/faq/view/596.html

(14) вот тема, пасиб

(13) Последний раз я тебе отвечал по интерфейсам. Проблема оказалась надумана. По каждому пункту меню процедура в одну строчку и все. Подозреваю что текущая задача тоже решается просто, но ты как обычно надеваешь штаны через голову.

(12) охх. ты знаешь, хотя бы, когда вызывается обработка параметров запуска в типовых?
что от
ПриНачалеРаботыСистемы()
и до
ОбработатьПараметрыЗапуска

есть хренова куча кода, который я и хочу обойти.
поэтому - еще раз - запуск внешней обработки не пойдет

(17) Ну если бы ты не поленился сказать нахрена ты это делаешь, тебя было бы гораздо проще понять.

(19) блеать.. см 13

(21) ну тогда гугли и не [...]. А то совет ему дай, а объяснить задачу ему лень...

вот пример конкретно для VB

Set Con = CreateObject("v8.ComConnector")
Set ConHandle = Con.Connect("File=C:\MyBase; Usr=Stim")

Set Query = ConHandle.NewObject("Запрос")
Query.Text = "ВЫБРАТЬ * ИЗ Справочник.Номенклатура"

Set Result = Query.Execute()
Set DataSet = Result.Choose()
Do While DataSet.Next()
 'что то делаем в цикле
Loop

(19) я задал более чем простой вопрос. в моем случае это - "как вставить клизму?" на сцену выходит дядя вася и начинает убеждать, что принимать лекарства нужно через рот. оно конешн можно объяснить, что пациенту болен и ему нельзя пользоваться ртом, но.. тогда это получится не разговор двух врачей

(24) какая разница где. Если до него так лучше доходит... Хотя судя по (25) не помогло...

парни, хорош уже спорить. давайте лучше по делу.

вот, например:

в случае вызова ком-коннектора не будет выполняться модуль приложения, зато будет выполняться модуль внешнего соединения.
также, чтобы вызвать функцию из общего модуля, должно быть объявлено с ключевым словом Экспорт

(27) Вопрос на форуме: Господа, я хочу надеть штаны через голову, ничего не выходит, ваши варианты?
- Дядя Вася: - Попробуй одеть их на ноги, вероятно получится...
- Автор сабжа: - Я не просил менять условия задачи - мне нужно надеть штаны через голову, а Дядю Васю попрошу не флудить!

(30) да, все так. и еще мне нельзя одевать штаны через ноги, см 17
причин тому может быть масса, тебе вовсе не обязательно об этом знать. вопрос ведь простой - как одеть штаны через голову? зачем отвечать не в тему?

(32) А если напишу? )

ну пиши, епты!

(35) Для самоутверждения я этого делать не буду. Работа денег стоит. Не тыщу, и не на мобилу, с нее дорого выводить...

(38)всяко лучше писать ответы по теме. и не настаивать на своем, когда говорят, что ответы не подходят

(39) да всем насрать...

Андре, выручай

Set v8 = CreateObject("V82.COMConnector")		

Set  Connect = V8.Connect(ConnectString)

Set Connect1= Connect.ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы()

при запуске скрипта, он ругается на последнюю строчку

(41) Полный путь и кодировка

сделал так:

Set v8 = CreateObject("V82.COMConnector")		

V8.Connect(ConnectString)



 Connect1= V8.ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы()

все равно ругаетсо на посл строку

Важно! В связи с отсутствием пользовательского интерфейса не все объекты, а также свойства и методы можно использовать во внешнем соединении.
Внешнее соединение предоставляет полный доступ к своему глобальному контексту. Поэтому внешнее соединение в качестве своих методов может иметь: системные константы, значения заданных в конфигураторе объектов, доступ к которым осуществляется с помощью менеджеров (например, константы, перечисления, справочники, документы, журналы документов, отчеты, обработки, планы видов характеристик, планы счетов, планы видов расчета, регистры), а также переменные, объявленные в модуле внешнего соединения с ключевым словом Экспорт.

хм. пишу:

Set v8 = CreateObject("V82.COMConnector")


ConnectString2 =  "srvr='" + ServerName + "'; ref='" + BaseName +  "';"		

V8.Connect(ConnectString2)

пишет - несоответствение версий клиента и серв(8.1 - 8.2)

пишу:

Set v8 = CreateObject("V82.COMConnector")


ConnectString2 =  "srvr='" + ServerName + "':1640; ref='" + BaseName +  "';"		

V8.Connect(ConnectString2)

пишет - неверные или отсутствующие параметры соединия с иб

(46) у тебя на серваке несколько агентов 1С?

(47) один должен быть.. 8.2

(48) а скрипт ты где запускаешь?

(49) там же, где агент серв запущен.

(48) тогда кто откликается на 1540-м порту?

(52) ну 8.1 скорее всего

(53) во-о-от

ага..
а вот еще:

Set v8 = CreateObject("V82.COMConnector")
ConnectString2 =  "srvr='" + ServerName + ":1641'; ref='" + BaseName +  "';"		
Set  Connect1 = V8.Connect(ConnectString2)

Set res= Connect1.ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы()

соединяется без проблем, но на последнюю строчку ругается, типа ошибка компиляции. что делать?

попробуй для начала какой-нить запрос выполнить

res= Connect1.ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ()

тоже ругаетсо. хотя все - сервер и внешн соединение

(60) рассказывай

(61) скрипт ругаетсо на кириллицу. поэтому все слова на кириллице нужно заключать в [ ]
и 59 будет:

Set res= Connect1.[Константы].[НомерВерсииКонфигурации].[Получить]()

(62) а в какой кодировке файл скрипта был?

(63) а хз