Ребут сервера по расписанию с игнорированием всего)

[userego 7]

Сабж - Server 2008 Standart

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

Есть подозрение, что именно Конфигуратор 1С не даёт планировщику принудительно завершать работу.

Аргумент допилен до идеала (ну, как мне кажется): /r /f /t 120 /d p:0:0 /c "Тут страшный текст о предстоящем завершении"

 

Как заставить сервер всё же делать ребут с принудительным завершением всех процессов без возможности его отменить?

Вариант: попросить 1С'ников, чтобы те закрывали всё своё - не прокатит, это ведь 1С'ники)

[userego 7]

Возможно стоит ещё и отрубать подключения по rdp на определённый срок, но процессы то останутся открытыми и, как мне кажется, будет такая же беда.

[drovik 7 378]

В 24.01.2019 в 14:59, Песня сказал:

Не переживай, я свои посты не стираю,. Ты уже забыл, что это делаешь ты?

Исключительно по твоей просьбе. И без дурацких смайликов.

[userego 7]

Только что, drovik сказал:

Повесь ардуйну с релюшкой на питание.

Тогда я спать не смогу, переживая за железки)

[drovik 7 378]

В 24.01.2019 в 14:59, Песня сказал:

Не переживай, я свои посты не стираю,. Ты уже забыл, что это делаешь ты?

Исключительно по твоей просьбе. И без дурацких смайликов.

[drovik 7 378]

В 24.01.2019 в 14:59, Песня сказал:

Не переживай, я свои посты не стираю,. Ты уже забыл, что это делаешь ты?

Исключительно по твоей просьбе. И без дурацких смайликов.

[Warlord 16 431]

5 часов назад, userego сказал:

Сабж - Server 2008 Standart

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

Есть подозрение, что именно Конфигуратор 1С не даёт планировщику принудительно завершать работу.

Аргумент допилен до идеала (ну, как мне кажется): /r /f /t 120 /d p:0:0 /c "Тут страшный текст о предстоящем завершении"

 

Как заставить сервер всё же делать ребут с принудительным завершением всех процессов без возможности его отменить?

Вариант: попросить 1С'ников, чтобы те закрывали всё своё - не прокатит, это ведь 1С'ники)

а тупо скопировать файл 1CV8.1CD не судьба? а, ну ты ж сисадмин, это не прокатит

[userego 7]

14 минуты назад, Warlord сказал:

а тупо скопировать файл 1CV8.1CD не судьба? а, ну ты ж сисадмин, это не прокатит

Зато ты я смотрю не сисадмин, после этого комментария

[trabl 2 113]

А если параметр /t равный нулю поставить? В планировщик вы команду с параметрами прописываете или идёт запуск бат файла по расписанию?

Я на практике вообще перезагружаю сервера и рабочие станции через Kaspersky security center, там можно выставлять параметры принудительного завершения всех сеансов пользователей. Но и через планировщик должно работать по идее. В планировщике также выставьте чтобы запуск задания был от локального администратора а не текущего пользователя.

[userego 7]

18 минут назад, trabl сказал:

А если параметр /t равный нулю поставить? В планировщик вы команду с параметрами прописываете или идёт запуск бат файла по расписанию?

аргумент(команда) без батника работает

18 минут назад, trabl сказал:

Я на практике вообще перезагружаю сервера и рабочие станции через Kaspersky security center, там можно выставлять параметры принудительного завершения всех сеансов пользователей. Но и через планировщик должно работать по идее.

 

Не прокатит, т.к. ребутается терминальный сервер, а касперы стоят на локальных машинах

[drovik 7 378]

В 24.01.2019 в 14:59, Песня сказал:

Не переживай, я свои посты не стираю,. Ты уже забыл, что это делаешь ты?

Исключительно по твоей просьбе. И без дурацких смайликов.

[trabl 2 113]

15 минут назад, userego сказал:

аргумент(команда) без батника работает

Не прокатит, т.к. ребутается терминальный сервер, а касперы стоят на локальных машинах

Попробуй запускать батник по расписанию из планировщика. Потому как если в планировщик добавлять команду с параметрами, эти параметры при неверном синтаксисе могут не отработать. И чтобы задача от локального админа запускалась, параметр /t поставь 0, плюс добавь ведение лога там же в батнике.

По поводу каспера, то плохо что у вас сервера без антивирусной защиты, на сервера идёт серверный дистрибутив каспера, причём без разницы терминальный это сервер или ещё какой-либо.

[Warlord 16 431]

1 час назад, userego сказал:

Зато ты я смотрю не сисадмин, после этого комментария

я программист 1С

а что, какие-то трудности с копированием?

[userego 7]

Только что, Warlord сказал:

я программист 1С

а что, какие-то трудности с копированием?

У меня появились сомнения по поводу твоей проф.пригодности, как программиста 1С)

Дабы дальше не обсуждать ерунду, напомню про использование файла при работе в нём.

[Warlord 16 431]

Только что, userego сказал:

У меня появились сомнения по поводу твоей проф.пригодности, как программиста 1С)

Дабы дальше не обсуждать ерунду, напомню про использование файла при работе в нём.

какое использование? прекрасно всё копируется "при работе в нём".

[Warlord 16 431]

1 минуту назад, userego сказал:

У меня появились сомнения по поводу твоей проф.пригодности, как программиста 1С)

Дабы дальше не обсуждать ерунду, напомню про использование файла при работе в нём.

а на сомнения твои мне параллельно, зарплату ж не ты мне платишь.

[userego 7]

5 минут назад, Warlord сказал:

какое использование? прекрасно всё копируется "при работе в нём".

Вот эти Ваши шаманские технологии...

Как скопировать файл базы, в котором работают юзеры? А тем более, в котором открыт конфигуратор?

[Warlord 16 431]

1 минуту назад, userego сказал:

Вот эти Ваши шаманские технологии...

Как скопировать файл базы, в котором работают юзеры? А тем более, в котором открыт конфигуратор?

попробуй robocopy, ну или xcopy хотя бы, если не силён в новых технологиях.

[userego 7]

3 минуты назад, Warlord сказал:

попробуй robocopy, ну или xcopy хотя бы, если не силён в новых технологиях.

Вот поэтому ты до сих пор и программист 1С)

Зачем мне робокопи, когда используются более "правильные" программы для снятия бэкапов.

[userego 7]

9 минут назад, Warlord сказал:

попробуй robocopy, ну или xcopy хотя бы, если не силён в новых технологиях.

Погоди, или ты мне предлагаешь сначала куда-нибудь копировать файл базы, а потом натравить на него того же кобиана, чтобы сжать, заархивировать и положить дальше на полку?

Я правильно понял тебя?

[drovik 7 378]

В 24.01.2019 в 14:59, Песня сказал:

Не переживай, я свои посты не стираю,. Ты уже забыл, что это делаешь ты?

Исключительно по твоей просьбе. И без дурацких смайликов.

[userego 7]

1 минуту назад, drovik сказал:

Ага. Правильные, но не работающие

Погоди, погоди) Жду ответа от Warlord'a, если я его правильно понял.

[Warlord 16 431]

10 минут назад, userego сказал:

Вот поэтому ты до сих пор и программист 1С)

Зачем мне робокопи, когда используются более "правильные" программы для снятия бэкапов.

 

6 минут назад, userego сказал:

Погоди, или ты мне предлагаешь сначала куда-нибудь копировать файл базы, а потом натравить на него того же кобиана, чтобы сжать, заархивировать и положить дальше на полку?

Я правильно понял тебя?

ну и почему твои "правильные программы" не работают?

вот поэтому я вас, сисодминов, к базам и не подпускаю с вашими "кобианами"-херобианами

[lvlukola 197]

Можно запретить вход в домен на нужное время и гнать всех из rdp скриптом (чуть поправить нужно будет)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Скрипт следит за терминальными пользователями и выкидывает их сессии по условиям: '
'    1.По какой-либо причине не произошёл выход из сессии                           '
'    2.Пользователь не закрывает сессию более 8 часов! Просто какой-то кашмар -     '
'      пора домой, а они кричат: "Хлебом не корми - работу давай!"                  '
'               Скрипт написал Анчуров Олег Владимирович в 2013 году.               '
'                     Скрипт взят с сайта: http://ithelp.moy.su '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

On Error Resume Next
Dim WshShell, WshShell2
Dim objScriptExec, objScriptExec2
Set WshShell = CreateObject("Wscript.Shell")
Set WshShell2 = CreateObject("Wscript.Shell")
Set objScriptExec = WshShell.Exec("qUser.exe")
Dim User, Rdp, Id, Status, OffLine, TDate, TTime
Dim Line, Line2
Dim a, c, t, p, i, Reset
Dim Msg, k

Msg = "ПРОТОКОЛ РАБОТЫ СКРИПТА, АВТОМАТИЧЕСКИ ВЫКИДЫВАЮЩЕГО ПОЛЬЗОВАТЕЛЕЙ ИЗ ТЕРМИНАЛЬНЫХ СЕССИЙ НА ТЕРМИНАЛЬНОМ СЕРВАКЕ:" + chr(13) + chr(10) + chr(13) + chr(10)
k = 0

Do Until objScriptExec.StdOut.AtEndOfStream
    Line = objScriptExec.StdOut.ReadLine
    Line2 = ""
    'Производим перекодировку текста из Dos в ANSI:
    For i = 1 to Len(Line)
        a = Asc(Mid(Line,i,1))
        If a < 128 then Line2 = Line2 + chr(a)
        If a > 127 and a < 176 then Line2 = Line2 + chr(a + 64)
        If a > 175 and a < 224 then Line2 = Line2 + chr(a)
        If a > 223 and a < 240 then Line2 = Line2 + chr(a + 16)
        If a = 240 then Line2 = Line2 + chr(168)
        If a = 241 then Line2 = Line2 + chr(184)
        If a > 241 then Line2 = Line2 + chr(a)
    Next
    Line = Line2
   
    'Разщипляем строку на составляющие
    User = LCase(Trim(Mid(Line, 2, 22)))
    Rdp = LCase(Trim(Mid(Line, 24, 16)))
    Id = LCase(Trim(Mid(Line, 40, 6)))
    Status = LCase(Trim(Mid(Line, 47, 8)))  'Если нужно, то раскоментировать!
    OffLine = LCase(Trim(Mid(Line, 55, 12)))
    TDate = LCase(Trim(Mid(Line, 67, 11)))  'Если нужно, то раскоментировать!
    TTime = LCase(Trim(Mid(Line, 78, 6)))   'Если нужно, то раскоментировать!

    'Первая строка нас не интересует!
    'Переменная Rdp может принимать следующие значения:
    'rdp-tcp#xxx   - стандартный клиент RDP
    'console       - консоль, например из DameWare
    'пустая строка - пользователь отключился некорректно
    If Rdp <> "сеанс" Then
        a = 0
        a = a + InStr(User,"admin1") 'Эту учётку трогать низя!
        'a = a + InStr(User,"admin2") 'Эту учётку трогать низя!
        'a = a + InStr(User,"admin3") 'Эту учётку трогать низя!
        'a = a + InStr(User,"admin4") 'Эту учётку трогать низя!
        'Остальные учётки проверяем дальше...
        If a = 0 then
            c = 0
            t = 0
            p = 0
            If Instr(OffLine,"отсутствует") > 0  then c = c + 1 'Если была закрыта сессия просто крестиком или по какой-либо причине не произошёл выход из системы, то сразу необходимо выкинуть пользователя из сессии!
            'If OffLine = "отсутствует" then c = c + 1 'Если была закрыта сессия просто крестиком или по какой-либо причине не произошёл выход из системы, то сразу необходимо выкинуть пользователя из сессии!
            p = InStr(OffLine,":")
            If p > 0 then
                t = CDbl(Left(OffLine,p - 1))
                If t > 8 then c = c + 1 'Если пользователь не выключает комп на ночь и его сессия простаивает больше 8 часов, то тоже выкидываем из сессии!
            End If
            If c > 0 then        
                Reset = "logoff " & Id 'Команду LogOff можно заменить на Reset Session. Кому что больше подходит.
                Set objScriptExec2 = WshShell2.Exec(Reset)
                Msg = Msg + "Отключен пользователь: " + User + chr(13) + chr(10)
                Msg = Msg + "Значения параметров команды QUser для данного пользователя: " + chr(13) + chr(10)
                Msg = Msg + "     Пользователь: " + User + chr(13) + chr(10)
                Msg = Msg + "    Сеанс:        " + Rdp + chr(13) + chr(10)
                Msg = Msg + "    ID:           " + Id + chr(13) + chr(10)
                Msg = Msg + "    Статус:       " + Status + chr(13) + chr(10)
                Msg = Msg + "    Бездействие:  " + Offline + chr(13) + chr(10)
                Msg = Msg + "    Время входа:  " + TDate + "/" + TTime + chr(13) + chr(10) + chr(13) + chr(10)
                k = k + 1
                WScript.Sleep 3000 'Это время (в млсек) ждёт скрипт, пока будет исполнена команда Logoff. если паузы не делать, то будет отключен только первый пользователь, а остальных проигнорирует!
            End If
        End If
    End If
Loop
Set objScriptExec = Nothing
Set WshShell = Nothing

'If k > 0 then
'    Dim objEmail
'    MSG = MSG + "Всего отключено контактов: " + CStr(k) + chr(13) + chr(10) + chr(13) + chr(10)
'    MSG = MSG + "Время/дата отработки скрипта: " + CStr(Time) + "/" + CStr(Date) + chr(13) + chr(10)
    'WScript.Echo(MSG)
   
'    Const EmailFrom = "[email protected]"         ' от кого будет отправляться e-mail
'    Const EmailPassword = "SuperPassword"       ' пароль от e-mail
'    Const strSmtpServer = "smtp.firma.ru" ' smtp сервер
'    Const EmailTo = "[email protected]"    ' Кому будет отправляться e-mail
'    Set objEmail = CreateObject("CDO.Message")
   
'    objEmail.From = EmailFrom
'    objEmail.To = EmailTo
'    objEmail.Subject = "Отчёт по работе скрипта RDP_Reset" 'Тема письма
'    objEmail.Textbody = MSG
'    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
'    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
'    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
'    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'    objEmail.Configuration.Fields.Update
'    objEmail.Send
'    Set objEmail = Nothing
'End If

[drovik 7 378]

В 24.01.2019 в 14:59, Песня сказал:

Не переживай, я свои посты не стираю,. Ты уже забыл, что это делаешь ты?

Исключительно по твоей просьбе. И без дурацких смайликов.