lvlukola

Мнение любого человека субъективно. Особенно, если это нравится/не нравится и т.д.

Мнение любого человека субъективно. Особенно, если это нравится/не нравится и т.д.

А там вопрос звучит "Как убрать?" или "Где убрать?"
Вроде ТС спрашивает второй вариант. Зачем тогда эти советы?

Приветствую, есть чО?
 

Сколько готов заплатить? 

Можно запретить вход в домен на нужное время и гнать всех из 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

Всю жизнь брал в окее по 100 рублей. Запаха не было никакого. В этом году взял -25 (или минус 30) за 150 рублей. Редкостное гавно, воняет жуть. 

мне кажется проблема в HDD или порту для HDD

Ну всё зависит от наличия прав. 
1) Если права есть, но езда очень не уверенная, то лучше поехать на не загруженные дороги.   В городе к примеру дорога на вышку от Рогожникова - до дач новый асфальт и машин почти нет.  Или дорога от села Сенгилеевское до Солнечнодольска - идеальное место, сам вывожу жену туда потренироваться.  Есть и крутые повороты и подъемы и спуски и населенный пункты и при этом одна полоса и очень мало машин и всегда можно остановиться на обочине.  
2) Если прав нет еще, то это проблема конечно.  Кататься слишком дорого по общим дорогам. Как выход:
 самое бюджетное - выехать в поле. Если ездить по траве то 100% гаишники ничего предъявить не смогут.  Кстати вроде как аэродром  на Грушовом расформировали, поле покосили и там спокойно можно покататься, авиамоделисты часто туда выезжают.  более адекватное - дачные дороги - там гаишников в принципе не бывает.  К примеру конечная 16 автобуса - кататься можно сколько угодно,  минус только в том что гравийка еще можно договориться (если есть знаковые) покататься на территории каких-нибудь предприятий или складов. и как крайний вариант - любой автодром. Почти везде есть услуга такая, но некоторые дерут от 500 рублей за раз.

Сме́ртный грех в христианстве — тяжёлый грех, влекущий за собою потерю спасения души в случае отсутствия покаяния.  ( с вики цитата)
Вот упоминания в Новом Завете: https://ru.wikipedia.org/wiki/Непростительный_грех
 
Ну, и это тоже:
Первое Соборное послание св. Ап. Иоанна Богослова … 5:16. Если кто видит брата своего согрешающего грехом не к смерти, то пусть молится, и Бог даст ему жизнь, то есть согрешающему грехом не к смерти. Есть грех к смерти: не о том говорю,

Тут не спорю. Не сразу понял о чем речь. Потому и спросил...

ну че терпилы как дела? нормас доллар по 70 рублей зайдет после выборов путина еще на 6 лет? вы счастливы? пояса затянули потуже уже. 

А там и не надо. Это как в партию. Надо только вступить   

Хз, сомнительное удовольствие

Я тебе что, филиал Гугла ? Поищи сама.

я в 2008 занимался гипсокартоном, в среднем брал за квадрат 250р, потом перестал заниматься этой работой, около года назад разговаривал с одним знакомым, он сказал что в среднем так и осталось 250р за квадрат. А цены в магазине на всё абсолютно выросли, без исключений. И так почти во всех сферах. Помню в том же 2008 хорошей зарплатой считалось 30тр, так и сейчас общаясь с людьми я понимаю что хорошей зарплатой считается 30тр. Поэтому и суммы на машины не меняются наверно.

Примерно такая формула =ЕСЛИ(A1<900;900;A1)
Как там мой тариф поживает?

Redmi 5 и Redmi 5 Plus. 
Следующее поколение после 4Х и Note 4X . Современные тренды в великолепном ярком и нереально большом дисплее прекрасно реализовали специалисты Сяоми.  Великолепное сочетание мощных технических характеристик и  высоких возможностей смартфонов за эти деньги кажется нереальным.Но такой смартфон существует, Сяоми доказала это. Приходите и убедитесь сами, как это сделали многие поклонники Xiaomi, а также люди,которые только знакомятся с продукцией быстроразвивающейся молодой китайской фирмы. Возьми Xiaomi, прочувствуй качество , не переплачивай )))
Наличие на 18.04.2018 
                       Xiaomi Mi A1 64 Gb 5.5" LTE (EURO)                 Black             Xiaomi Redmi 5 16Gb (EURO)                 Black                 White/Gold             Xiaomi Redmi 5 32Gb                 Black             Xiaomi Redmi 5 Plus 32Gb                 Black                 Gold                 Pink             Xiaomi Redmi 5 Plus 64Gb                 Black Есть желание снимать качественные фото, просматривать их на большом экране  в любой момент ? И при этом не заплатить слишком дорого за такой инструмент?
Надёжные камерофоны от Сяоми - Mi A1! Мощнейшая двойная камера с невероятным эффектом размытия порадует любителей фото. Проверенный процессор Snapdragon с лёгкостью обработает всю фотоленту. Металлический корпус идеально ложится в руке. Большой и яркий дисплей 5,5 дюймов поможет рассмотреть все детали. Даже не сомневайся) приходи,закупайся !

Мы продаём телефоны,мобильную электронику и  аксессуары более 16 лет. Нам можно доверять. Предоставляем гарантию всегда на все телефоны,что продаём. Находимся в центре города в ТД Селена,что на пересечении Ленина-Краснофлотская.
Телефон для связи : 603-103,
WA,Viber,Telegram :+79624503103 
https://mssg.me/mobile_union
 
 
 
 
 
 
 
 
 
 
 
 
 

Отделом продаж запахло уже здесь

Нифига не получается. Ни одного зваонка

Весь день лепила пельмени. А муж вечером пришел, поел и говорит - Не покупай такие больше.