Книга знаний

1С:Предприятие / v8 / Администрирование

v8: Выгонялка пользователей для 1С 7.7, 8.0, 8.1

Как принудительно отключить пользователей от базыАвтор статьи: Волшебник | Редакторы: Гений 1С, TormozIT, romix, nop
Последняя редакция №23 от 07.12.07 | История
URL: http://kb.mista.ru/article.php?id=79

Ключевые слова: выгнать, из базы, отключить, пользователь, завершить, ЗавершитьРаботуСистемы, принудительно, отрубить


7.7

Администрирование 1С: работа с пользователями.
Как дистанционно кикнуть юзера ?
Народ и всё же я по поводу отваливания юзеров из базы на SQL автоматом
Существуют ли выгонялки, справляющиеся с модальными окнами?
Как выгнать пользователей?
Как средствами SQl отключить пользователей от данных
Как выбросить пользователей из 1С?
Отключить пользователя 1С с другого ПК
И всё же ещё раз как отключить пользователей 1с7.7 через командую строку
Как выкинуть всех из базы без спроса?
Как организовать принудительное отключение пользователей
Отключение пользователей
Как отключить пользователя
Дистанционное отключение раб. пользователей в 1С
принудительное отключение пользователей
Принудительное программное отключение пользователей для монопольного входа
Отключение пользователей
Книга знаний: Альтернативная выгонялка пользователей для 1С
(от romix) Я использую Книга знаний: Альтернативное стартовое окно для 1С:Предприятие 7.7

8.0

v8: Как выкинуть пользователя и базы?
v8: Всем выйти из Базы!
v8: ЗавершитьРаботуСистемы()
v8: Возможно ли средствами 1С выкинуть пользователей?
v8: отключить вручную пользователя из "Списка активных пользователей 1С"
v8: Программный разрыв соединений пользователей
v8: Есть ли в 8.0 механизм позволяющий отключить от базы данных пользователя?
v8: Как определить активных пользователей v 8.0
v8: Как отрубить пользователей и перезапустить сервер 8.1
Книга знаний: v8: Как выгнать пользователей из базы УПП


TSProcessKiller, утилита от Мулька:
Килл указанному процессу на указанных серваках.
http://kb.mista.ru/files/79/TSProcessKiller.rar

Другой способ убийства процессов - командная строка, например, команда
tskill notepad /A
убъет блокноты у всех юзеров на этом сервере.


'VBS. Cкрипт осуществляет отключение всех подключений к ИБ 1С:Предприятия v8.0.

'имя пользователя 1С:Предприятия
UserName = "TormozIT" 

'пароль пользователя 1С:Предприятия
UserPass = "f43_!dPOD"

'имя сервера 1С
ServerName     =     "Tamo"
BaseName    =    "UPP12"

'Удаление всех соединений заданной ИБ сервера 1С
Dim connector
Set connector = CreateObject("v8.COMConnector")

Dim server
Set server = connector.ConnectServer(ServerName)
server.AddAuthentication UserName, UserPass
Dim ibDesc
Set ibDesc = server.CreateInfoBaseInfo()
ibDesc.Name = BaseName
Dim connections
connections = server.GetIBConnections(ibDesc)
Dim i
Dim connection
For i = LBound(connections) To UBound(connections)
    set connection = connections(i)
    server.Disconnect connection
Next


'VBS. Cкрипт осуществляет отключение всех подключений к ИБ 1С:Предприятия v8.1.
'На сервере подразумевается наличие только одного кластера и только одного рабочего процесса

'имя пользователя 1С:Предприятия
UserName = "TormozIT" 

'пароль пользователя 1С:Предприятия
UserPass = "f43_!dPOD"

'имя сервера 1С
ServerName     =     "Tamo"
BaseName    =    "UPP12"

'Удаление всех соединений заданной ИБ сервера 1С

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

Set connector = CreateObject("V81.COMConnector")
Set AgentConnection = Connector.ConnectAgent(ServerName)
Set Cluster = AgentConnection.GetClusters()(0)
AgentConnection.Authenticate Cluster, "", ""
Set WorkingProcess = AgentConnection.GetWorkingProcesses(Cluster)(0)
ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
Set WorkingProcessConnection = Connector.ConnectWorkingProcess(ConnectString)
WorkingProcessConnection.AddAuthentication UserName, UserPass
Set ibDesc = WorkingProcessConnection.CreateInfoBaseInfo()
ibDesc.Name = BaseName
Connections = WorkingProcessConnection.GetInfoBaseConnections(ibDesc)

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
Закладка

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2021 | Mista.ru

Яндекс.Метрика