—НАЧАЛО КОММЕНТАРИЯ
?используется wshshell для запуска метода exec
—КОНЕЦ КОММЕНТАРИЯ
Set WshShell = CreateObject(«WScript.Shell»)

—НАЧАЛО КОММЕНТАРИЯ
?получаем текущую дату
—КОНЕЦ КОММЕНТАРИЯ
strDate = Replace(Date(),»/»,»_»)

—НАЧАЛО КОММЕНТАРИЯ
?создаем каталог назначения для backup на сетевом диске и добавляем к имени каталога текущую дату
—КОНЕЦ КОММЕНТАРИЯ

—НАЧАЛО КОММЕНТАРИЯ
strDestinationFolder = CreateFolder(«usrds005SPBackups» & strDate)
—КОНЕЦ КОММЕНТАРИЯ

—НАЧАЛО КОММЕНТАРИЯ
?формируем параметрическую строку spsbackup
—КОНЕЦ КОММЕНТАРИЯ
strParam = «/all /file « & strDestinationFolder

—НАЧАЛО КОММЕНТАРИЯ
?отметим, что spsbackup указывает на диск C в каталог инсталляции по умолчанию
—КОНЕЦ КОММЕНТАРИЯ
strExec = «C:Progra~1ShareP~1Binspsbackup.exe»

—НАЧАЛО КОММЕНТАРИЯ
?используется метод Exec для запуска spsbackup
—КОНЕЦ КОММЕНТАРИЯ
Set objExec = WshShell.Exec(strExec & « « & strParam)

—НАЧАЛО КОММЕНТАРИЯ
?функция создания каталога
—КОНЕЦ КОММЕНТАРИЯ
Function CreateFolder(folderName)
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set f = fso.CreateFolder(folderName)
CreateFolder = f.Path
End Function

Поделитесь материалом с коллегами и друзьями