[Ubiquiti]

вот код vbs все ок работает на этой базе все проверил

Код:

Set WshShell = CreateObject("WScript.Shell") 
dim d,m,y 

d = day(date()) 
if d < 10 then 
d = "0" & d 
end if 

m = month(date()) 
if m < 10 then 
m = "0" & m 
end if 

y = year(date()) 

h = Hour(Time()) 
if h < 10 then 
h = "0" & h 
end if 

Min = Minute(Time()) 
if Min < 10 then 
Min = "0" & Min 
end if 

S = Second(Time()) 
if S < 10 then 
S = "0" & S 
end if 

'Формируется полное имя файлов выгрузки и лога 
s = d & "_" & m & "_" & y & "_" & h & "_" & Min & "_" & S 

'Путь к файлу выгрузки 
BackupPath = "/DumpIB Z:\buh2014\z2015_" & s & ".dt" 

'Путь к логу 
LogPath = "/Out Z:\buh2014\buh2015_ " & s & ".log" 

'Путь к фалу запуска программы 1С 
one1CPath = """C:\Program Files (x86)\1cv82\common\1cestart.exe""" 

'Параметры запуска базы (SQL) имя кластера\имя базы пользователь пароль 
Paramters = "DESIGNER /S pab-asu-1c8.puma.com\zarpnew /N backup /P 000000 /DisableStartupMessages" 

Set fs = CreateObject("Scripting.FileSystemObject") 


'Запуск 
WshShell.Run one1CPath & " " & Paramters& " " & LogPath & " " & BackupPath, 0, True