СМС информирование о подключении по RDP к серваку #592770

по сабжу, возможно ли такое замутить в рамках скрипта или батника, на крайняк прога..?

Как нефиг делать.

подскажи как )

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

проверенных прог нету?

Если хочешь бесплатно посылай себе письмо при входе на мыло, это все опять таки через батник можно настроить, а в ящике настрой смс оповещение, мейл ру такое умеет и не только. А по поводу софтин проверенных не подскажу, давно я эту тему не трогал.

понятно, спасиб, буду колупать в этом направлении

мб кто знает как этот скрипт перепелить под сабж Set objArgs = WScript.Arguments ' Имя сервера, на котором находится процесс ServerName = "." ProcessName = objArgs ' Телефонный номер для отправки SMS AdminPhone = "79111992948" count=0 Set objWMIService = GetObject("winmgmts:\" & ServerName & " ootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48) For Each objItem in colItems '    Wscript.Echo "Name: " & objItem.Name    if LCase(objItem.Name) = LCase(ProcessName) then        count=count+1    end if Next if count < 1 then ' Отправка оповещения!    Set objSMSDriver = CreateObject("HeadwindGSM.SMSDriver")    Set objMsg = CreateObject("HeadwindGSM.SMSMessage")    objMsg.To = AdminPhone    objMsg.Body = "ОШИБКА! Нет процесса '" + ProcessName + "'"    objSMSDriver.Connect    objMsg.Send end if

лажа, не заметил, там еще софтину нужно ставить.. вот более менее Dim objIE Dim objDoc Dim objForm Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False objIE.Silent = False objIE.Navigate("http://www.spb.mts.ru/sendform_sms.htm") While objIE.ReadyState < 4 Wend Set objDoc = objIE.Document Set objForm= objDoc.Forms objForm.elements("To").value = "7910..........." objForm.elements("Msg").value = "Сообщение" objForm.submit Set objForm = Nothing Set objDoc = Nothing Set objIE = Nothing тока куда еще эту строчку вписать? Set objForm = objDoc.Forms("send")

Dim objIE Dim objDoc Dim objForm Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False objIE.Silent = False objIE.Navigate("http://www.spb.mts.ru/sendform_sms.htm") While objIE.ReadyState < 4 Wend Set objDoc = objIE.Document Set objForm = objDoc.Forms("send") Set objForm= objDoc.Forms objForm.elements("To").value = "7910..........." objForm.elements("Msg").value = "Сообщение" objForm.submit Set objForm = Nothing Set objDoc = Nothing Set objIE = Nothing типа так, ща проверим)

ругается, помогите поправить)

ночь короче, скрипт 08 года, да и капча ща везде

вот робит, кому пригодится, отправка на почту письма, а там смс оповещение (спасибо ) On Error Resume Next Call SendPost("smtp.mail.ru", "sq_1c@mail.ru", "sq_1c@mail.ru", "Subj", "Body") Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)    Set iMsg = CreateObject("CDO.Message")    Set iConf = CreateObject("CDO.Configuration")    Set Flds = iConf.Fields      Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sq_1c@mail.ru" '- логин на smtp сервер    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "9hw00w7" 'пароль на smtp    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'собстно сам сервер    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'порт на smtp сервере        Flds.Update    iMsg.Configuration = iConf    iMsg.To = strTo    iMsg.From = strFrom    iMsg.Subject = strSubject    iMsg.TextBody = strBody    iMsg.AddAttachment "C: eadme.txt"    iMsg.Send End Function    Set iMsg = Nothing    Set iConf = Nothing    Set Flds = Nothing еще можно ip приваять, но эт потом)

Я ж говорил как нефиг делать)

да, устал наверн за сеня) раз уж пароль и почту свою на форум выкладываю)

это я про бред, который выше)

,,,

Зачем?

Хех)

а зачем создали "логин и пароль"?) было бы у всех все открыто) серв стоит дома, периодически подрубаюсь к нему с разных компов, всякое бывает.. кейлогеры разные, вредные сисадмины и т.д... вообщем что бы оперативно вырубить доступ к серваку, если к нему кто то поимеет доступ

пароль уже сменил? или кто-то раньше успел?

на почту то) конечно сменил успел сразу заметить))

да и почта то это так, если чего не страшно, там ничего такого нету

Но вообще это паранойя ... и к тому же мейл ру не всегда далеко оперативно и вообще шлет смс

да ладно паранойя) когда лог по событиям 4625 периодически вылезает, это то ж паранойя?)

IP    173.203.66.13 IP Location:    United States Resolve Host:    173-203-66-13.static.cloud-ips.com вон нормально?) ProcessName C:WindowsSystem32winlogon.exe  IpAddress 173.203.66.13  IpPort 57123 аудит отказа) я вроде как в америке не живу)

а ведь таких не мало, кто то тупо за последние пару месяцев брутит, затыкается на час, т.к. ограничение стоит, и дальше продолжает)

cmd2phone прога для отправки сообщеник. Но через твой телефон

Если на свой телефон отправлять так это можно и без майл.ру У всех операторов есть smtp - sms шлюз, т.е  отправляешь мыло на адрес типа -  9029642020@beeline.ru  и оно приходит смс-кой на этот номер. Есть такая штука у всех операторов, только вот во избежание злоупотреблений она у большинства отключена по умолчанию. Позвони опсосу, включи на свой номер и все ок. Я так вообще не парюсь, на андроиде gmail даже удобнее смсок будет.

спасиб, гляну

прикол) сформировал отчет по событию 4625, за последние 5 дней, итого попыток входа в систему ~7000, из них штук 40 моих)

Еще поди и рдп на стандартном порту, а вообще низя наружу открывать рдп, впн рулит

+ А то как-то у тебя странно получается, вместо того чтобы устранить возможность проникновения, ты хочешь знать когда это уже произойдет ... за то время пока да тебя смс дойдет, и ты до компа доберешься, как минимум положить твой сервер - как два пальца об асфальт

да, когда ставил не подумал, вчера сменил 3389, ща гуглю на тему как добавить атакующий ip в бан после 5 попыток, стоит антивирь KIS Crystal, там галченка есть такая, но кореша попросил руками поломиться на rdp, че т нифига не банит