powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Windows [игнор отключен] [закрыт для гостей] / Как выкинуть полозователя из 1С
4 сообщений из 4, страница 1 из 1
Как выкинуть полозователя из 1С
    #33796620
Aliga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Проблема в следующем !
Есть Терминальный сервер под 1С нектрые пользователи не правильно закрывают 1С и при повторном входе в терминал у них выкидывает сообщение из 1С что каталог пользователя занет !
В Терминал сервер менеджер при нажатии на Disconect тоже не помогает как его выкинуть от туда ?
...
Рейтинг: 0 / 0
Как выкинуть полозователя из 1С
    #33796675
Фотография idle_instance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у нас в 1с сделана обработка- типа посылаещ сообшение а кто не нажмет ок на нем того отключает
...
Рейтинг: 0 / 0
Как выкинуть полозователя из 1С
    #33796678
AL_KIR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
делюсь своим простым оригинальным авторским решением

жалко, но что делать, нужно помогать друг-другу :)

на рабочем столе пользователя на терминале (это можно сделать на общей части рабочего стола) создаешь ярлык , я запупындрил туда большую красную кнопку из стандартного набора иконок windows, к ней привязываешь следующий скрипт, убивающий все процессы 1сv77 у данного пользователя

'*******************************************************
' File: KillProcess.vbs
' Author: (c) AlexanderK
'
'***********************************************************
'
'
'**********************************************
'* *
'* DONT't MODiFy ANY PART OF THIS CODE *
'* *
'**********************************************
'
' КАРОЧЕ, если будете менять код
' Одназначно - будут вырваны руки!!!
'
Dim WNetwork
Set WNetwork = Wscript.CreateObject("Wscript.Network")

Dim ThisUserName
ThisUserName = WNetwork.Userdomain
ThisUserName = ThisUserName & "\" & WNetwork.UserName
'MsgBox ThisUserName
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Dim oExec
Set oExec = WshShell.Exec("taskkill /T /F /FI ""IMAGENAME eq 1cv7s.exe"" /FI ""USERNAME eq "&ThisUserName&""" ")

.vbs

Страшные слова написаны для запугивания пользователей

а еще есть форум www.mista.ru
...
Рейтинг: 0 / 0
Как выкинуть полозователя из 1С
    #33796688
AL_KIR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
забыл упомянуть - если правильно настроить терминальный сервер - то такой проблемы возникать не будет!!!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / Как выкинуть полозователя из 1С
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]