Резервное копирование MS SQL SERVER 2014 EXPRESS и VBS скрипт

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

Добрый день.
Воспользовался статьей из Faq " Резервное копирование MS SQL SERVER 2005 EXPRESS " https://www.sql.ru/faq/faq_topic.aspx?fid=2050
Возникли некоторые ошибки, частично исправил, но некоторые остались. Подскажите как побороть Процедура или функция ожидает параметр который не был указан.
В MS SQL SERVER 2014 EXPRESS
Падает в ошибку:
строка conn_str="Provider=SQLNCLI.1; Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,1433;"
Лечится conn_str="Provider=SQLNCLI11.1; Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,1433;"
Но остается ошибка: Ожидается параметр "@StrSaveDir"
Если процедуру запустить в ручную и ввести параметры то работает.
Если значения строк
prmStrSaveDir.Value = bcp_dir
prmStrSaveDir.Name = "@StrSaveDir"
поменять местами . То тоже работает , только к имени Базы добавляется @StrSaveDir. Как полечить до конца . ?
Заранее Спасибо за помощь.

Решение задачи: «Резервное копирование MS SQL SERVER 2014 EXPRESS и VBS скрипт»

textual
                            Листинг программы 
                        
 
                            
                        
Sub DeleteOldDir( folder, control_dir )     'обработка  директории - поиск и удаление старых папок с архивами
  ' все архивы разложены по папкам, а папки структурированы по датам - поэтому удаляем сразу всю папку..
 on error resume next   
   dim file, subfolder,d,diff , del
       
   del=0
   
   if (UCase(folder.Path)&"\"<>UCase(control_dir)) then  ' мы-же не будем удалять сам каталог для ведения архивов !!!       
           d = folder.DateCreated
          diff = DateDiff("d",d,Now) 
        
        if diff>DelDiff Then      
           folder.Delete 			
		if  err.number then
                      log "ERROR DeleteOldDir - folder.Delete: " & err.description & " ("  & err.Source & "), " & folder.Path
		else
		     log("Deleted: " & folder.Path)
                     del=1
		end if	
          end if 
                
   end if     
   if  del=0 then       
   For Each subfolder in folder.SubFolders ' конечно, мало вероятно что найдется вложенная подпапка, которая была создана реньше... но всеравно проверим
        DeleteOldDir  subfolder, control_dir   
    Next
    end if       
    
End Sub