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

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

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

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

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

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

А по поводу софтин проверенных не подскажу, давно я эту тему не трогал.

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

мб кто знает как этот скрипт перепелить под сабж

Set objArgs = WScript.Arguments

' Имя сервера, на котором находится процесс
ServerName = "."
ProcessName = objArgs(0)
' Телефонный номер для отправки SMS
AdminPhone = "79111992948"

count=0
Set objWMIService = GetObject("winmgmts:\\" & ServerName & "\root\cimv2")
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(0)
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(0)
objForm.elements("To").value = "7910..........."
objForm.elements("Msg").value = "Сообщение"
objForm.submit()
Set objForm = Nothing
Set objDoc = Nothing
Set objIE = Nothing

типа так, ща проверим)

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

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

вот робит, кому пригодится, отправка на почту письма, а там смс оповещение (спасибо (5) )

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:\readme.txt"
   iMsg.Send
End Function

   Set iMsg = Nothing
   Set iConf = Nothing
   Set Flds = Nothing

еще можно ip приваять, но эт потом)

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

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

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

(7),(8),(9),(10)

(0) Зачем?

(14) Хех)

(17) а зачем создали "логин и пароль"?) было бы у всех все открыто)

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

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

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

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

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

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

IP    173.203.66.13
IP Location:    United States
Resolve Host:    173-203-66-13.static.cloud-ips.com

вон нормально?)

ProcessName C:\Windows\System32\winlogon.exe
 IpAddress 173.203.66.13
 IpPort 57123

аудит отказа)

я вроде как в америке не живу)

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

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

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

Я так вообще не парюсь, на андроиде gmail даже удобнее смсок будет.

(28) спасиб, гляну

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

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

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

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