//Скрипт разработан для замены долбаного ручного труда!
// При использования скрипта прошу обратить внимание на \ <- она должна быть повторяющейся, не спрашивайте меня почему, это особенность языка
// Также прошу учесть всяких умников, недопустимо использование пробелов в полном наименовании каталога базы данных 1с.
var pathbaseArray = new Array(); //описываем пути к базе данных
var username = "counter"; // Пользователь
var userpass = "bynthghbpf"; //пароль
var runin1c = "ОткрытьФорму(\"Обработка\",2,\"\\\\space.digma\\office\\Departments\\АСУ\\master\\ПроверкаИЗагрузкаВСКЛпропущенныхНакладных.ert\")"; //Строка запуска в 1с
pathbaseArray[0] = "c:\\1cbases\\77test\\";
for (var i = 0; i < pathbaseArray.length; i++) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.GetFolder(pathbaseArray[i]);
var v7 = WScript.CreateObject("V77.Application");
v7.Initialize(v7.RMTrade, "/D" + pathbaseArray[i] +" /N" + username + " /P" + userpass, "NO_SPLASH_SHOW");
var result = v7.EvalExpr(runin1c);
WScript.Echo("Скрипт выполнен по базе данных:"+f.path+". Результат выполнения:"+result);
v7 = "";
result = "";
}
WScript.Echo("Скрипт завершен");
No comments:
Post a Comment