Настройки поиска

Задача: прочесть минимум 2 строки свойств файла *.DWG (автокад установлен) не открывая рисунка (записать эти строки нужно находясьв автокаде).

Читать я собираюсь этим скриптом на VBS

Const PropsCount = 45
Set objFSO = CreateObject ("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("D:\TDMS\05R11D\10UHG\5247\05R11D-10UHG-5247-HV.T#3.dwg")
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace(objFile.ParentFolder.Path)
Set objItem = objFolder.ParseName("05R11D-10UHG-5247-HV.T#3.dwg")
if objFolder is nothing then
Wscript.Echo "Folder not found!" 
Wscript.Quit
end if
Dim arrHeaders(50)
Set objItems = objFolder.Items()
For i = 0 to PropsCount
arrHeaders(i) = objFolder.GetDetailsOf (objItems, i)   
Next
Set objItem = objFolder.ParseName(objFile.Name)
if objItem is nothing then
Wscript.Echo "Folder item not found!" 
Wscript.Quit
end if 
strResult = vbNullString
strResult = "Информация об объекте """ & objItem.Path & """:" & vbCrLf
For i = 0 to PropsCount
strResult = strResult & arrHeaders(i) & ": " & objFolder.GetDetailsOf (objItem, i) & vbCrLf
Next 
MsgBox strResult, vbInformation

надо забить в скрипте свой путь и имя файла

но данный скрипт читает только данные закладки свойств "Сводка", которую я могу заполнить только вручную.
Вопрос: как заполнить ЭТУ закладку программно (можно из автокада) или как прочесть свойства на закладке "Прочие" (легко заполняется-читается в автокаде) не открывая автокад?

Подскажите пожалуйста, я не нашел... И если кто знает, как сделать блок нерасчленяемым и наоборот?

При выполнении функции (vla-plottodevice plt_obj "Adobe PDF.pc3") результат получается примерно через 30сек, в то время как та же печать стандартными средствами автокада выполняется практически сразу без задержек. Это происходит с любыми файлами. В чем проблема?