Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Windows Новый топик    Ответить
 Как выкинуть полозователя из 1С  [new]
Aliga
Member

Откуда: Из Алматы
Сообщений: 203
Добрый день!
Проблема в следующем !
Есть Терминальный сервер под 1С нектрые пользователи не правильно закрывают 1С и при повторном входе в терминал у них выкидывает сообщение из 1С что каталог пользователя занет !
В Терминал сервер менеджер при нажатии на Disconect тоже не помогает как его выкинуть от туда ?
16 июн 06, 18:06    [2781553]     Ответить | Цитировать Сообщить модератору
 Re: Как выкинуть полозователя из 1С  [new]
idle_instance
Member

Откуда: Кострома
Сообщений: 547
у нас в 1с сделана обработка- типа посылаещ сообшение а кто не нажмет ок на нем того отключает
16 июн 06, 18:29    [2781659]     Ответить | Цитировать Сообщить модератору
 Re: Как выкинуть полозователя из 1С  [new]
AL_KIR
Member

Откуда:
Сообщений: 203
делюсь своим простым оригинальным авторским решением

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

на рабочем столе пользователя на терминале (это можно сделать на общей части рабочего стола) создаешь ярлык , я запупындрил туда большую красную кнопку из стандартного набора иконок 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
16 июн 06, 18:29    [2781664]     Ответить | Цитировать Сообщить модератору
 Re: Как выкинуть полозователя из 1С  [new]
AL_KIR
Member

Откуда:
Сообщений: 203
забыл упомянуть - если правильно настроить терминальный сервер - то такой проблемы возникать не будет!!!
16 июн 06, 18:34    [2781683]     Ответить | Цитировать Сообщить модератору
Все форумы / Windows Ответить