Доступ к Dbf 1c из Lotus

[root]

Как получить данные из 1С(dbf) Не устанавливая 1С.
1 Скачиваем Microsoft OLE DB Provider for Visual FoxPro с сайта

Ссылка скрыта от гостей

2. В 1Сv7.DD ищим нужный нам DBF файл

#==TABLE no 91	 : Справочник Сотрудники
# Name	|Descr						 |Type[A/S/U]|DBTableName|ReUsable 
T=SC925]  |Справочник Сотрудники		 |A		 |SC925	 |1		 
#-----Fields-------
# Name	  |Descr			  |Type|Length|Precision
F=ID		  |ID object		  |C  |9	 |0		
F=PARENTID  |ID parent obj	  |C  |9	 |0		
F=CODE 	  |object code		|C  |8	 |0		
F=DESCR	  |object description |C  |40	|0		
и т.д

3. в LotusScript пишим

Dim r_recordset As Variant 
Dim sPath_to_dir As String
Dim sDbfForSql As String 
Set conn=CreateObject("ADODB.Connection")
sPath_to_dir ="C:\1C" 'Каталог БД
sDbfForSql="sc925" ' "это файл можно и с расширением. В моем случае справочник сотрудники взятый из 1Cv7.DD файла 
conn.Open |Provider=VFPOLEDB.1;Data Source=|+sPath_to_dir+|;Extended Properties=""|
Set r_recordset=CreateObject("ADODB.recordset")
sql="select * from "+ sDbfForSql
r_recordset.Open  sql , conn 	
While Not( r_recordset.eof)
Msgbox (r_recordset("DESCR").value)
r_recordset.movenext
Wend

3. И усе.
P.S Никакой головной боли с HASP защитой и Юстициями. Все легально.