Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Сам VBS-файл:

Dim WSH 'Объект "WScript.Shell"
Set WSH = CreateObject("WScript.Shell")
Dim FSO 'Объект "Scripting.FileSystemObject"
Set FSO = CreateObject("Scripting.FileSystemObject")

'Создание файла параметров 1С для выгрузки данных
Set IniFile = FSO.CreateTextFile("fpr.prm")
IniFile.WriteLine "[General]"
IniFile.WriteLine "UnloadData = 1"
IniFile.WriteLine "Quit = 1"
'IniFile.WriteLine "Output = """ & TempPath & "UnLoad.log"""
IniFile.WriteLine "[UnloadData]"
IniFile.WriteLine "UnloadToFile = """ & date & ".zip"""
IniFile.WriteLine "IncludeUserDef=1"
IniFile.Close

WSH.Run "C:\Progra~1\1Cv77\BIN\1cv7s.exe config /@D:\BACKUP\BAYKAL\fpr.prm /dD:\Base\BAYKAL\ /nAdmin /pDg6rw23R5"

Отправлено: 19:07, 28-10-2005 | #4