[megaloman]

Вариант 1.

Код:

' Cписок баз
MasNames = Array("Base1", _
                "Base2", _
                "Base3")

Mas_1 = LBound(MasNames)
Mas_N = UBound(MasNames)

For Mas_i = Mas_1 To Mas_N
    Call ArcBackups(MasNames(Mas_i))
Next

Sub ArcBackups(BaseName)
    MsgBox BaseName
End Sub

Существующий скрипт надо оформить в виде подпрограммы (у меня условно ArcBackups), и дописать вызывающую её часть, которая будет передавать в эту подпрограмму в виде аргумента имя базы. Как вариант, список имён можно определить в массиве в этой вызывающей процедуре. Достоинство варианта - не надо держать еще какой-то текстовый файл.

Вариант 2. Идеология та же, но, по Вашей идее, список баз храним в текстовом файле

Код:

SpisNames = "Z:\я16062417.txt"   'Cписок баз

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(SpisNames) Then
    Set FSpis = FSO.OpenTextFile(SpisNames, 1)
    Do
        iString = FSpis.ReadLine
        If Len(Trim(iString)) <> 0 Then Call ArcBackups(iString)
    Loop While Not FSpis.AtEndOfStream
    FSpis.Close
End If

Sub ArcBackups(BaseName)
    MsgBox BaseName
End Sub

Что в текстовом файле Z:\я16062417.txt

Код:

Base1
Base2
Base3


Base4
Base5

Base6
Base7




Base222

Вариант 3. И всё-таки я бы предпочел сделать эту работу в cmd - скрипте, ИМХО, надёжнее получится. Но, не зная подробностей Вашего задания, его не привожу.

[Udar_Nick]

Вариант 3. И всё-таки я бы предпочел сделать эту работу в cmd - скрипте, ИМХО, надёжнее получится. Но, не зная подробностей Вашего задания, его не привожу. »

Большое спасибо, буду разбираться с предложенным Вами.
Третий вариант не получится - там задача сначала пройтись по всем существующим в кластере 1С соединеным клиентам и выкинуть их из базы В cmd (насколько мне известно) такое не получится

А подскажите как ?

Существующий скрипт надо оформить в виде подпрограммы

Положу сюда тело скрипта (если это не оффтоп)

СКРИПТ

Код:

'имя пользователя базы 1С:Предприятия
UserName = "user" 
'пароль пользователя базы 1С:Предприятия
UserPass = "pass"
'имя сервера 1С:Предприятия
ServerName = "server"
'имя базы 1С:Предприятия к которой подключаемся
BaseName = "test_baza"
LockPermissionCode = "123456" 

LockMessageText = "БАЗА ЗАКРЫТА НА СОЗДАНИЕ РЕЗЕРВНОЙ КОПИИ И ОБНОВЛЕНИЕ."

Dim Connector
Dim AgentConnection
Dim Cluster
Dim WorkingProcess
Dim WorkingProcessConnection
Dim ibDesc
Dim connections
Dim ConnectString

Set connector = CreateObject("v83.COMConnector.1")
Set AgentConnection = Connector.ConnectAgent(ServerName)
Set Cluster = AgentConnection.GetClusters()(0)

'Указываем доступ к консоли 1С:Предприятия (только в том случае если определён администратор кластера, иначе прописать просто " " (пробелЫ))
AgentConnection.Authenticate Cluster, " ", " "
'Список процессов кластера
Processes = AgentConnection.GetWorkingProcesses(Cluster)
Dim j
'Перебираем все процессы в кластере
For j = LBound(Processes) To UBound(Processes)
	Set WorkingProcess = AgentConnection.GetWorkingProcesses(Cluster)(j)
	'Проверяем на наличие остановленых процессов
	If (WorkingProcess.MainPort <> "0") Then
		ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
		Set WorkingProcessConnection = Connector.ConnectWorkingProcess(ConnectString)
		WorkingProcessConnection.AddAuthentication UserName, UserPass
		InfoBases  = WorkingProcessConnection.GetInfoBases()
		For Each InfoBase In InfoBases
			' Ищем нужную базу
			If UCase(InfoBase.Name) = UCase(BaseName) Then
				' Устанавливаем запрет на подключение новых соединений
				InfoBase.ConnectDenied = True
				InfoBase.DeniedFrom = CStr(Now())
				' Запрет действует 15 минут, если скрипт не отработает нормально
				InfoBase.DeniedTo = CStr(Now() + 1 / 96 * 1)
				InfoBase.DeniedMessage = LockMessageText
				InfoBase.PermissionCode = LockPermissionCode
				WorkingProcessConnection.UpdateInfoBase (InfoBase)
			End If
		Next
		Set ibDesc = WorkingProcessConnection.CreateInfoBaseInfo()
		ibDesc.Name = BaseName
		Connections = WorkingProcessConnection.GetInfoBaseConnections(ibDesc)
		'Удаление всех соединений заданной ИБ сервера 1С
		Dim i
		Dim Connection
		For i = LBound(Connections) To UBound(Connections)
			Set Connection = connections(i)
			If (Connection.AppID <> "COMConsole") Then
				WorkingProcessConnection.Disconnect Connection
			End If
		Next
	End If
Next
'''''''''''''''''''''''''''''


strComm  = """C:\Program Files (x86)\1cv8\8.3.4.437\bin\1cv8.exe"" CONFIG /S"& ServerName &"\"& BaseName &" /Nuser /Ppass /UC"& LockPermissionCode &" /DumpIB ""\\SERVER\BACKUP\1C\"& Dat & BaseName &".dt"" /Out ""\\SERVER\BACKUP\1C\log\"& Dat & BaseName &"_dump.log"""
strComm2 = """C:\Program Files (x86)\1cv8\8.3.4.437\bin\1cv8.exe"" CONFIG /S"& ServerName &"\"& BaseName &" /Nuser /Ppass /UC"& LockPermissionCode &" /UpdateDBCfg /Out ""\\SERVER\BACKUP\1C\log\"& Dat & BaseName &"_update.log"""
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.Run strComm, 0, true
oWshShell.Run strComm2, 0, true

' Отключаем блокировку базы
InfoBases  = WorkingProcessConnection.GetInfoBases()
For Each InfoBase In InfoBases
	' Ищем нужную базу
	If UCase(InfoBase.Name) = UCase(BaseName) Then
		' Отключаем запрет на подключение новых соединений
		InfoBase.ConnectDenied = False
		'InfoBase.DeniedMessage = ""
		'InfoBase.PermissionCode = ""
		WorkingProcessConnection.UpdateInfoBase (InfoBase)
	End If
Next

[megaloman]

Udar_Nick, Я не уверен, что получится с Вашим конкретным скриптом, но попробуйте вместо моего MsgBox BaseName (или ниже, для отладки) вставить полностью Ваш скрипт. В Вашем скрипте закомментируйте строку (в начале строки поставьте ' ). Случайно у нас имена Вашей переменной и параметра моей процедуры совпали

' BaseName = "test_baza"

Естественно, в вызывающем модуле пропишите Ваши имена баз, пару штук для начала.

[megaloman]

Udar_Nick, Вот и Вариант 3.
Пишем bat-файл, где вызываем Ваш vbs-скрипт (я обозвал файл с ним ArcBackups.vbs) и в параметре передаём в него имя базы

Код:

@Echo On
wscript ArcBackups.vbs "Base1"
wscript ArcBackups.vbs "Base2"
wscript ArcBackups.vbs "Base3"

Ваш скрипт слегка дорабатываем:

Код:

Set WS_arg=WScript.Arguments

If WS_arg.Count <> 0 Then
        BaseName=WS_arg(0)
	MsgBox BaseName
End If

Опять же, в батнике пропишите свои имена баз, вместо моего MsgBox BaseName (или ниже, для отладки) вставить полностью Ваш скрипт, лишь в Вашем скрипте закомментируйте строку (в начале строки поставьте ' ) где Вы указываете имя базы.

' BaseName = "test_baza"

ИМХО, этот вариант должен работать.
Если будете настаивать, можно написать в батнике и чтение имён из текстового файла, имхо, это не имеет смысла.

[Iska]

Код: Mas_1 = LBound(MasNames) Mas_N = UBound(MasNames) For Mas_i = Mas_1 To Mas_N »

Тут можно просто «For Each MasName In MasNames» применить.

[Udar_Nick]

а научите пожалуйста как сделать так, чтобы в случае ошибки в выполнении строки:

Код:

oWshShell.Run strComm, 0, true

создавался файл Error.pid в определенной папке

[Iska]

Udar_Nick, «в случае ошибки» — что именно Вы под этим подразумеваете?

[Udar_Nick]

Udar_Nick, «в случае ошибки» — что именно Вы под этим подразумеваете? »

в моем скрипте эта строчка вызывает 1С:

Код:

C:\Program Files (x86)\1cv8\8.3.4.437\bin\1cv8.exe

с некими параметрами. Делается дамп базы данных.
Хотелось бы, если errorlevel выполнения этой строки не 0 (т.е произошла какая-то ошибка), то сделать файлик error.pid (и записать в него errorlevel например). Нужно для мониторинга Нагиосом

в cmd это вот так выглядит:

Код:

set RunProgramm = "c:\program.exe param1"
%RunProgramm%
if %ERRORLEVEL% GTR 0 goto err

:err
echo %ERRORLEVEL% >> c:\error.pid

[Iska]

Код:

Dim lngErrLevel

lngErrLevel = oWshShell.Run(strComm, 0, True)

If lngErrLevel Then
	With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\error.pid")
		.Write CStr(lngErrLevel)
		.Close
	End With
End If

Нужно для мониторинга Нагиосом »

Надеюсь, «Нагиос» удаляет этот файл после обработки?

Далее, в одном случае Вы пишете, чтобы файл «создавался», а ниже приводите пример дополнения файла данными (а не создания).