lvlukola
Участники-
Публикации
1 567 -
Зарегистрирован
-
Посещение
Тип публикации
Профили
Новости
Форум
Календарь
Галерея
Все публикации пользователя lvlukola
-
xiaomi Новые оригинальные в заводских плёнках Xiaomi, Redmi, Poco, Realme, Tecno, Infinix и др.
lvlukola ответил в тему Татьяна Xiaomi в Средства связи
День добрый. Нужный чехол и пленка/стекло на Meizu m6 и Meizu m6s -
xiaomi Продукция Xiaomi, Apple, Hoco, Remax, Sjcam оригинал в наличии
lvlukola ответил в тему GroupDeal в Средства связи
День добрый. Нужный чехол и пленка/стекло на Meizu m6 и Meizu m6s. (в наличии/под заказ) -
Скупаем карты обратно? https://3dnews.ru/984360
-
xiaomi Новые оригинальные в заводских плёнках Xiaomi, Redmi, Poco, Realme, Tecno, Infinix и др.
lvlukola ответил в тему Татьяна Xiaomi в Средства связи
Таки уже продали. Но, тут вроде есть https://www.avito.ru/stavropol/telefony/xiaomi_redmi_6a_216gb_novyy_1285839357 -
xiaomi Новые оригинальные в заводских плёнках Xiaomi, Redmi, Poco, Realme, Tecno, Infinix и др.
lvlukola ответил в тему Татьяна Xiaomi в Средства связи
Добрый день. Хочу приобрести и подарок https://www.avito.ru/stavropol/telefony/xiaomi_redmi_6a_216gb_black_novyy_1619638305 -
xiaomi Продукция Xiaomi, Apple, Hoco, Remax, Sjcam оригинал в наличии
lvlukola ответил в тему GroupDeal в Средства связи
В наличии? Xiaomi Redmi 6A 2/16 gb Global Version - 6200р (черные) - EU официальная глобальная версия полностью русифицирован, раздельные лотки, евровилка, Российские бенды. Гарантия 1 год -
xiaomi Продукция Xiaomi, Apple, Hoco, Remax, Sjcam оригинал в наличии
lvlukola ответил в тему GroupDeal в Средства связи
Тоже несколько телефонов брал - все ровно. -
Какова зряплата?
-
Рожали на Тухачевского. Денег не давали. Отношение аполне нормальное.
-
Можно запретить вход в домен на нужное время и гнать всех из 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
-
Сейчас мэтры тебя проклянут. Наше дело предложить альтернативу, а решать ТС.
-
Я бы nissan march посмотрел. Пруль. Но для города не так важно
-
В Тинькофе недели две назад делал
-
Дом: ms security essentials Работа: KIS Знакомым ставлю avast или kav free
-
Не знаю поздно или нет, но легче всего, наверное, на phpbb все оформить. Останется оплатить только хостинг и доменное имя
-
ЛАМИНАТ; пакретная доска; массив; пробка; кожа
lvlukola ответил в тему laminat26 в Строительство и ремонт
А цены? (достаточно "от") -
ЛАМИНАТ; пакретная доска; массив; пробка; кожа
lvlukola ответил в тему laminat26 в Строительство и ремонт
День добрый. Существует в природе линолеум, который не боится теплых полов? Если да, то сколько стоит примерно? Тот же вопрос по ламинату. -
Нужна PN-CH-B3.6IRN или аналог. Что предложите?
- 1 ответ
-
- видеонаблюдение
- установка видеонаблюдения
- (и ещё 3)
-
автозапчасти Любые автозапчасти ВАЗ,ГАЗ (в наличии), на иномарки, по приемлемым ценам
lvlukola ответил в тему Эдуард126 в Авто - мото транспорт
День добрый. Интересуют на калину 1.6 16 кл.: Ремень ГРМ с роликами Помпа Ремень генератора Ролик натяжителя (генератора) Свечи Насос ножной Задний бампер (калина 1, универсал) Фара правая -
Кто обращался по покраске? Как отзывы?
-
Я за xiaomi. У меня 3s, у жены 4a - все довольны
-
Дабы не создавать новую тему. Есть ли актуальная информация по плащадкам где можно потренироваться?
-
Сколько может заработать Ваша супруга, если Вы станете политиком?
lvlukola ответил в тему wlwl в Трёп
Тут не спорю. Не сразу понял о чем речь. Потому и спросил... -
Сколько может заработать Ваша супруга, если Вы станете политиком?
lvlukola ответил в тему wlwl в Трёп
Сме́ртный грех в христианстве — тяжёлый грех, влекущий за собою потерю спасения души в случае отсутствия покаяния. ( с вики цитата) Вот упоминания в Новом Завете: https://ru.wikipedia.org/wiki/Непростительный_грех Ну, и это тоже: Первое Соборное послание св. Ап. Иоанна Богослова … 5:16. Если кто видит брата своего согрешающего грехом не к смерти, то пусть молится, и Бог даст ему жизнь, то есть согрешающему грехом не к смерти. Есть грех к смерти: не о том говорю,