Не могу получить данные из dbf файла - VB

Формулировка задачи:

Добрый вечер. Есть некоторая проблемка. Кратко опишу ее суть. Вообщем на некотором заводе есть проходная, данные из которой каждое утро выкладываются на Novell Netware сервер в виде DBF файлов. Каждое утро срабатывает планировщик заданий, запускающий vbs скрипт, который осуществляет перекачку данных из dbf файла на oracle сервер. У меня есть профиль на сервере Novell поэтому с моей рабочей машинки все работает отлично. Но стоит задача переноса vbs скрипта выгрузки на сервер win2003. Вот для этого и нужно где то в скрипте указать пользователя и пароль на сервер Novell, для получения данных расположенных на нем dbf файлов! Ниже приведена часть кода, осуществляющая доступ к dbf файлу:

path_dbf:     path_dbf = 
     basa_dbf:     basa_dbf = 
     cnn:         cnn = WScript.CreateObject()
     rst:         rst = WScript.CreateObject()
    cnn.ConnectionString =  &  & path_dbf &  &  & path_dbf & 
    cnn.
    rst.  & basa_dbf, cn

Решение задачи: «Не могу получить данные из dbf файла»

textual
                            Листинг программы 
                        

                            <font color="#00AA00">'----------------------------------------------------------------Подключаем сетевой диск Х -------------------------------------</font>
     MapDrv <font color="teal">"X:"</font>, <font color="teal">"\\S10\vol1\USERS\K05\ARXPROX"</font>
<font color="#00AA00">'--------------------------------------------------------------------------------------------------------------------------------</font>

<font color="#00AA00">'--------------------------------------------------------------------------------начало Функции подключения сетевого диска------</font>
 <font color="blue">Function</font> MapDrv(DrvLet, UNCPath)  

     <font color="blue">Dim</font> WshNetwork,objFSO          <font color="#00AA00">' Object variable  </font>
     <font color="blue">Dim</font> Msg  
  
     <font color="blue">Set</font> WshNetwork = WScript.CreateObject(<font color="teal">"WScript.Network"</font>)  
     <font color="blue">Set</font> objFSO = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
  
     <font color="#00AA00">'On Error Resume Next  </font>
  
     <font color="blue">If</font> objFSO.DriveExists(DrvLet) <font color="blue">Then</font>  
         WshNetwork.RemoveNetworkDrive DrvLet, true, true
     <font color="blue">End</font> <font color="blue">If</font>
        
     WshNetwork.MapNetworkDrive DrvLet, UNCPath, False, <font color="teal">"02062t"</font>, <font color="teal">"02062t"</font>  
      
    <font color="blue">Select</font> <font color="blue">Case</font> Err.Number  
         <font color="blue">Case</font> <font color="darkblue"><b>0</b></font>            <font color="#00AA00">' No error  #  </font>
         <font color="blue">Case</font> -<font color="darkblue"><b>2147023694</b></font>  
             WshNetwork.RemoveNetworkDrive DrvLet, true, true
             WshNetwork.MapNetworkDrive DrvLet, UNCPath  
                
         <font color="blue">Case</font> -<font color="darkblue"><b>2147024811</b></font>  
             WshNetwork.RemoveNetworkDrive DrvLet, true, true  
             WshNetwork.MapNetworkDrive DrvLet, UNCPath  
  
         <font color="blue">Case</font> <font color="blue">Else</font>  
           
             Msg = <font color="teal">"Mapping network drive error: "</font> & _  
                   CStr(Err.Number) & <font color="teal">" 0x"</font> & Hex(Err.Number) & vbCrLf & _  
                 <font color="teal">"Error description: "</font> & Err.Description & vbCrLf  
           Msg = Msg & <font color="teal">"Domain: "</font> & WshNetwork.UserDomain & vbCrLf  
             Msg = Msg & <font color="teal">"Computer Name: "</font> & WshNetwork.ComputerName & vbCrLf  
             Msg = Msg & <font color="teal">"User Name: "</font> & WshNetwork.UserName & vbCrLf & vbCrLf  
             Msg = Msg & <font color="teal">"Device name: "</font> & DrvLet & vbCrLf  
             Msg = Msg & <font color="teal">"Map path: "</font> & UNCPath  
               
     <font color="blue">End</font> <font color="blue">Select</font>  
 <font color="blue">End</font> <font color="blue">Function</font>     
<font color="#00AA00">'--------------------------------------------------------------------------------конец Функции подключения сетевого диска------</font>

                        