function Run()
	Dim V77
	Dim CmdLine
	Dim IsOK

	Set V77 = CreateObject("V77.Application")
	CmdLine = "/D C:\Base\ /N"&UserName&" /P"""&""""
	IsOK = V77.Initialize(V77.RMTrade, CmdLine, "")
	if IsOK then
		msgbox("ok")
	else
		msgbox("failure")
	end if
	IsOK = V77.ExecuteBatch(BatchText)
	if IsOK then
		msgbox("ok")
	else
		msgbox("failure")
	end if
end function

СпрТОЛЕ	= БазаОЛЕ.CreateObject("Справочник.Номенклатура");
СпрОЛЕ.ВыбратьЭлементы();
Пока СпрОЛЕ.ПолучитьЭлемент() =  1  Цикл
//что-то
КонецЦикла;