—НАЧАЛО КОММЕНТАРИЯ
?используется 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