Уведомление об изменении ip-адреса по DNS-имени

$dns_name='name.ru' # указать проверяемую DNS-запись
$dns_server='77.88.8.8' # указать IP-адрес DNS-сервера (в текущем примере реальный IP-адрес DNS-сервера Яндекса)
function check-IP ($name, $server)
{
    $to='admin@mail.ru' # Указать почтовый адрес получателя
    $from='checker@mail.ru' # Указать почтовый адрес отправителя
    $smtpserver='mail.ru' # Указать сервер для отправки почты
    $port='587' # Указать используемый порт сервера для отправки почты
    $login='checker' # Указать логин используемой учётной записи для отправки почты
    $password_text='password' # Указать пароль используемой учётной записи для отправки почты
    $password = ConvertTo-SecureString $password_text -AsPlainText -Force
    $credential = New-Object System.Management.Automation.PSCredential ($login, $password)
    $IP_current=(Resolve-DnsName -Name $name -Server $server -DnsOnly -NoHostsFile -Type A).IPAddress
    $IP_modified=(Resolve-DnsName -Name $name -Server $server -DnsOnly -NoHostsFile -Type A).IPAddress
    while (1 -gt 0) {
        while ($IP_modified -eq $IP_current) {
            start-sleep -s 60
            ipconfig /flushdns > $null
            $IP_modified=(Resolve-DnsName -Name $name -Server $server -DnsOnly -NoHostsFile -Type A).IPAddress
        }
        $IP_current=$IP_modified
        Send-MailMessage -To $to -From $from -Subject "Изменение IP-адреса" -Body "IP-адрес изменился на $($IP_current)" -SmtpServer $smtpserver -Port $port -UseSsl -Encoding utf8 -Credential $credential
    }
 
}
 
check-IP $dns_name $dns_server

Send-MailMessage -To $to -From $from -Subject "Изменение IP-адреса" -Body "IP-адрес изменился на $($IP_current)" -SmtpServer $smtpserver -Port $port -UseSsl -Credential $credential