Блокировка подключения к 1с средствами VBS.

21.07.16

Администрирование - Информационная безопасность

Установка блокировки доступа к безе и сброс подвисших соединений.

Скачать файлы

Наименование Файл Версия Размер
monopoly_1.0
.vbs 3,24Kb
0
.vbs 1.0 3,24Kb Скачать

Файл VBScript для установки блокировки доступа пользователей к базе 1с для проведения плановых работ. Данный скрипт устанавливает блокировку подключений без ключа "/UC" и делает перезапуск службы агента 1с для сброса подвисших соединений.

После проведения данных действий, можно проводить обслуживание базы запустив 1с с ключем "/UC" где в качестве кода указать код установленный в настройках скрипта.

По истечении времени блокировки, доступ к базе будет открыт.

//---------------------------------------------------------------------------------

' VBScript Blocked1cForBackUp.vbs
' Sample script to Blocked 1c and Stop or Start a Service
' [url]www.computerperformance.co.[/url]
' Created by Lex  21/07/2016 Version 1.0
' -------------------------------------------------------' 
Sub RestartService
        Dim objWMIService, objItem, objService
        Dim colListOfServices, strComputer, strService, intSleep 
        strComputer = "."
        intSleep = 15000 ' Время между остановкой и запуском службы
        ' Имя службы которую необходимо перезапустить
        strService = " '1C:Enterprise 8.2 Server Agent (x86-64)' "
        Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" _
        & strComputer & "\root\cimv2")
        Set colListOfServices = objWMIService.ExecQuery _
        ("Select * from Win32_Service Where Name ="_
        & strService & " ")
        For Each objService in colListOfServices
        objService.StopService()
        WSCript.Sleep intSleep
        objService.StartService()
        Next 
End Sub


Sub BlockedConnect
        Dim Connector,AgentConnection,Cluster,WorkingProcess,WorkingProcessConnection,ibDesc,connections,ConnectString
        NameLogFile = "monopoly.log" 'Имя Log файла
        'Установим путь к лог файлу как и путь запуска скрипта
        Out=Replace(WSH.ScriptFullName, WSH.ScriptName, NameLogFile )
        Set fs = CreateObject("Scripting.FileSystemObject") 
        Set OutFile = fs.OpenTextFile(Out, 8, True)
            'Указываем имя пользователя с правами доступа к консоли 
            AdminName = "Администратор" 
            'Указываем пароль
            UserPass = "Пароль"
            'Укажем IP Сервера с базами  1c 
            ServerName    =    "192.168.1.11"
            'Укажем Имя базы
            BaseName    =    "Test"
        WScript.Quit (0)
        Set Connector = CreateObject("V82.COMConnector")
        Set AgentConnection = Connector.ConnectAgent(ServerName)
        Set Cluster = AgentConnection.GetClusters()(0)
        AgentConnection.Authenticate Cluster, "", ""
        For Each WorkProcess In AgentConnection.GetWorkingProcesses(Cluster)
        ConnectString = WorkProcess.HostName & ":" & WorkProcess.MainPort
            Set WorkProcessConnection = Connector.ConnectWorkingProcess(ConnectString)
         
        WorkProcessConnection.AddAuthentication AdminName, UserPass
        BaseList = WorkProcessConnection.GetInfoBases()
            For i = LBound(BaseList) To UBound(BaseList)
                If BaseList(i).Name = BaseName Then
                    Set Base = BaseList(i)
                    Connections = WorkProcessConnection.GetInfoBaseConnections(Base)
                    LockMessageText = vbCrLf + "БАЗА ЗАКРЫТА НА СОЗДАНИЕ РЕЗЕРВНОЙ КОПИИ!" + vbCrLf + " ВРЕМЯ ОЖИДАНИЯ ОКОЛО 5 - 10 МИНУТ." 
                    LockPermissionCode = "Kod" ' Код блокировки базы 
                    test=WorkProcessConnection.GetInfoBases()
                    Base.ConnectDenied = True
                    Base.DeniedFrom = CStr(Now())
                    Base.DeniedTo = CStr(Now() + 1/300)
                                
                    Base.DeniedMessage = LockMessageText
                    Base.PermissionCode = LockPermissionCode
                        OutFile.WriteLine(CStr(Now) + " Установлено сообщение для пользователей: "+LockMessageText)
                        OutFile.WriteLine(CStr(Now) + " Установлен код доступа " + LockPermissionCode)
                        OutFile.WriteLine(CStr(Now) + " Установлена блокировка с "+CStr(Base.DeniedFrom)+" по "+ CStr(Base.DeniedTo))
        
                    WorkProcessConnection.UpdateInfoBase(Base)
                    OutFile.Close()  
        
                End If
            Next
        Next

End Sub 
On Error Resume Next 
BlockedConnect()
RestartService()

//---------------------------------------------------------------------------------

VBS VBScript Блокировка доступа к безе.

См. также

Медиадисплей. Рекламный информационный монитор для покупателя.

Разработка внешних компонент POS терминал Рабочее место Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Реклама, PR и маркетинг Управленческий учет Платные (руб)

Монитор покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Можно использовать в качестве графического меню-борда в кафе и видеовывески. Управление выводом на телевизор через hdmi-приставку на базе Windows или Android. В качестве устройства отображения можно использовать Android-планшеты, фоторамки с Android, монитор любого Windows-компьютера, доступного по сети. Настраивается ЛЮБОЙ ДИЗАЙН экрана!

16800 руб.

30.05.2017    52099    34    69    

43

Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).

2400 руб.

12.05.2020    26243    131    99    

83

Внешняя компонента для подключения 1С к телефонии Asterisk

Разработка внешних компонент Телефония, SIP Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

2400 руб.

04.05.2018    44974    117    64    

60

Внешняя компонента печати PDF (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome

1500 руб.

17.09.2018    35078    104    123    

111

Мастер создания внешних компонент 1С (технология COM) для DELPHI 6/7/8/2005/2006/2007/2008/2010/XE/XE2/XE3

Разработка внешних компонент Платформа 1С v8.3 Платные (руб)

Средство для сверхбыстрой разработки внешних компонент 1С:Предприятия 7.7 и 8 по технологии COM на всех версиях DELPHI, начиная с 6.

2000 руб.

28.03.2013    53998    35    14    

68

QR-код с логотипом компании (обычная и управляемая форма)

Разработка внешних компонент Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Как известно, стремление сделать свою рекламную продукцию запоминающейся и выделяющейся — верный путь к успеху. Сегодня, мы поговорим с вами о том, что можно сделать с обычным черно-белым QR-кодом, чтобы он стал более живым и привлекательным. Если вам не терпится попробовать сделать QR-код с логотипом компании, то эта обработка для вас!

2400 руб.

22.06.2016    30839    4    4    

8

AUTO VPN (portable)

Информационная безопасность Платные (руб)

Автоматизация подключения пользователей к удаленному рабочему месту или сети посредством создания автоматического VPN (L2TP или L2TP/IPSEC и т.д.) подключения без ввода настроек пользователем (с возможностью скрытия этих настроек от пользователя). Программа автоматически выполняет подключение к VPN серверу и после успешного коннекта , если необходимо, подключение к серверу удаленных рабочих столов (RDP).

1200 руб.

24.03.2020    14395    22    32    

33

Внешняя компонента 1С и С++. Продолжаем разговор.

Разработка внешних компонент Платформа 1С v8.3 Бесплатно (free)

А давайте запилим 8.3.26 до релиза, или оповещение с сервера...

19.02.2024    4038    starik-2005    28    

52
Оставьте свое сообщение