Использование планировщика заданий Windows 8.1 как альтернатива SQL агента

Option Explicit
Dim f,  FSO, LogFile, cn, cm, rs, WD, TM, SecondFolder, Start, i, j, Shell, strCommand, strHost, ReturnCode, LastBackup
On Error Resume Next
'====================================================================
 
Const Period = 20                       ' период между запусками (мин.)
Const RarFile = """C:\Program Files\WinRAR\WinRAR.exe"""    ' путь к архиватору
Const SourceCatalog = "MyBD"                    ' имя БД
Const DestFolder = "F:\MyFolder\"               ' папка локальных архивов
Const DestFile = "MyBD"                     ' имя файла копии
Const TimeOut = 60                      ' таймаут
                                ' список путей к архивам
SecondFolder = Array( _
    "\\Cоmp1\Архив$\", _
    "\\Cоmp2\Архив$\", _
    "\\Cоmp3\Архив$\", _
    "\\Cоmp4\Архив$\" _
    )
 
'====================================================================
Set cn = CreateObject("ADODB.Connection")
Set cm = CreateObject("ADODB.Command")
Set rs = CreateObject("ADODB.Recordset")
WD=WeekDay(Date(), vbMonday): TM = Time()
Start = ((Hour(TM) * 60 + Minute(TM)) \ Period) Mod (Ubound(SecondFolder) + 1)
TM = "_" & Hour(TM) & "_" & Right("0" & Minute(TM),2)
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & SourceCatalog & ";Data Source=(local)"
cn.Open
rs.Open "SELECT MAX(bs.backup_finish_date) AS LastBackupDate FROM master.dbo.sysdatabases AS db INNER JOIN msdb.dbo.backupset AS bs ON bs.database_name = db.name WHERE (bs.type = 'D') AND (db.name = '" & SourceCatalog & "')", cn
If Not rs.Eof Then
    If Not IsNull(rs("LastBackupDate")) Then LastBackup = CStr(rs("LastBackupDate"))
End If
rs.Close
cm.ActiveConnection = cn
cm.CommandType = adCmdText
cm.CommandText = "BACKUP DATABASE [" & SourceCatalog & "] TO DISK = N'" & DestFolder & DestFile & TM & ".dat' WITH DIFFERENTIAL, NOFORMAT, INIT, NAME = N'MyBD backup', NOREWIND, NOUNLOAD, NOSKIP"
cm.CommandTimeout = TimeOut
cm.Execute
Set FSO = CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Or Err.Number = 500 Then
    Set Shell = wscript.createObject("wscript.shell")
    For i = 0 To Ubound(SecondFolder)
        Err.Clear
        j= (i + Start) Mod (Ubound(SecondFolder) + 1)
        strHost = Mid(SecondFolder(j), 3, InStr("3",SecondFolder(j),"\") - 3)
        strCommand = "ping -n 1 -w 300 " & strHost
        ReturnCode = Shell.Run(strCommand, 0, True)
        If ReturnCode = 0 Then
            If FSO.FileExists(SecondFolder(j) & DestFile & ".rar") Then FSO.DeleteFile SecondFolder(j) & DestFile & ".rar", True
            If Err.Number = 0 Then
                If FSO.FileExists(SecondFolder(j) & DestFile & "_" & WD & TM & ".rar") Then FSO.DeleteFile SecondFolder(j) & DestFile & "_" & WD & TM & ".rar", True
                If Err.Number = 0 Then
                    strCommand = RarFile & " A -inul " & SecondFolder(j) & DestFile & ".rar " & DestFolder & DestFile & TM & ".dat " & DestFolder & DestFile & ".log"
                    ReturnCode = Shell.Run(strCommand, 0, True)
                    If ReturnCode=0 Then
                        Set f = FSO.GetFile(SecondFolder(j) & DestFile & ".rar")
                        f.Name = DestFile & "_" & WD & TM & ".rar"
                        If Err.Number = 0 Then
                            Set LogFile = FSO.OpenTextFile(DestFolder & DestFile & ".log", 8, True)
                            LogFile.WriteLine Now & " (+" & LastBackup & ") - " & SecondFolder(j) & DestFile & "_" & WD & TM & ".rar (" & SecondFolder(Start) & ")"
                            LogFile.Close
                            Exit For
                        Else
                            Set LogFile = FSO.OpenTextFile(DestFolder & DestFile & ".log", 8, True)
                            LogFile.WriteLine Now & " (+" & LastBackup & ") - " & SecondFolder(j) & DestFile & "_" & WD & TM & ".rar (" & SecondFolder(Start) & ") --- ОШИБКА (Rename) !!! (" & Err.Number & " " & Err.Description & ")"
                            LogFile.Close
                        End If
                        f.Close
                    Else
                        Set LogFile = FSO.OpenTextFile(DestFolder & DestFile & ".log", 8, True)
                        LogFile.WriteLine Now & " (+" & LastBackup & ") - " & SecondFolder(j) & DestFile & "_" & WD & TM & ".rar (" & SecondFolder(Start) & ") --- ОШИБКА (Archive) !!! (" & strCommand & ")"
                        LogFile.Close
                    End If
                Else
                    Set LogFile = FSO.OpenTextFile(DestFolder & DestFile & ".log", 8, True)
                    LogFile.WriteLine Now & " (+" & LastBackup & ") - " & SecondFolder(j) & DestFile & "_" & WD & TM & ".rar (" & SecondFolder(Start) & ") --- ОШИБКА (Delete) !!! (" & Err.Number & " " & Err.Description & ")"
                    LogFile.Close
                End If
            Else
                Set LogFile = FSO.OpenTextFile(DestFolder & DestFile & ".log", 8, True)
                LogFile.WriteLine Now & " (+" & LastBackup & ") - " & SecondFolder(j) & DestFile & ".rar (" & SecondFolder(Start) & ") --- ОШИБКА (Delete) !!! (" & Err.Number & " " & Err.Description & ")"
                LogFile.Close
            End If
        End If
    Next
Else
    Set LogFile = FSO.OpenTextFile(DestFolder & DestFile & ".log", 8, True)
    LogFile.WriteLine Now & " (+" & LastBackup & ") - (" & SecondFolder(Start) & ") --- ОШИБКА (Backup) !!! (" & Err.Number & " " & Err.Description & ")"
    LogFile.Close
End If
Err.Clear

Option Explicit
Dim FSO, LogFile, cn, cm, Res
On Error Resume Next
'====================================================================
 
Const SourceServer = "MyServer"                 ' имя сервера
Const SourceCatalog = "MyBD"                ' имя БД
Const DestFolder = "F:\MyCopy\"                 ' папка архивов (сервер)
Const DestFile = "MyBD"                 ' имя файла копии
Const LogFolder = "D:\MyFolger\"                    ' папка логов
Const TimeOut = 120                     ' таймаут
 
'====================================================================
Res=MsgBox("Архивировать ?",vbOkCancel+vbQuestion+vbDefaultButton2,"ПОЛНАЯ АРХИВАЦИЯ...")
If Res=vbOk Then
    Set cn = CreateObject("ADODB.Connection")
    Set cm = CreateObject("ADODB.Command")
    cn.ConnectionString = "Provider=SQLOLEDB.1;Password=MyPassword;Persist Security Info=True;User ID=sa;Initial Catalog=" & SourceCatalog & ";Data Source=" & SourceServer
    cn.Open
    cm.ActiveConnection = cn
    cm.CommandType = adCmdText
    cm.CommandText = "BACKUP DATABASE [" & SourceCatalog & "] TO DISK = N'" & DestFolder & DestFile & ".dat' WITH NOFORMAT, INIT, NAME = N'TorgoviyDom backup', NOREWIND, NOUNLOAD, NOSKIP"
        cm.CommandTimeout = TimeOut
    cm.Execute
    If Err.Number = 0 Or Err.Number = 500 Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set LogFile = FSO.OpenTextFile(LogFolder & DestFile & ".log", 8, True)
        LogFile.WriteLine Now & " - " & DestFolder & DestFile & ".dat" & " - <ПОЛНЫЙ>"
        LogFile.Close
        wscript.echo "ОК"
    Else
        wscript.echo "ОШИБКА !!! (" & Err.Number & " " & Err.Description & ")"
    End If
End If
Err.Clear

Dim cn, rs
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TestDB;Data Source=(local)"
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.Open "TEST", cn

Dim cn, rs
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=MyPassword;Persist Security Info=True;User ID=sa;Initial Catalog=TestDB;Data Source=MyServer"
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.Open "EXEC TEST", cn