forum.lissyara.su

Код: Выделить всё

#!/bin/sh
MYIP=`curl -s http://212.117.175.194/simple/`
NSIP=`host 1cru.ru | grep address | awk '{print $4}'`
if [ $MYIP != $NSIP ];
    then
       curl -s https://pddimp.yandex.ru/nsapi/edit_a_record.xml?token=1a2b3c4d5e6f7a8b9c10d11l12f13a14b15c&domain=1cru.ru&record_id=5099342&content=$MYIP
       curl -s "https://pddimp.yandex.ru/nsapi/edit_a_record.xml?token=2a2b3c4d5e6f7a8b9c10d11l12f13a14b15c&domain=1sru.ru&record_id=7099342&content=$MYIP"
    else
       echo IP not change
fi

Код: Выделить всё

@echo off
rem Основано на статье: http://www.lissyara.su/?id=2242
Setlocal enabledelayedexpansion
rem DNS токен
set DNS_TOKEN=
rem Имя домена
set DOMAIN=
rem ID домена
set DOMAIN_ID=
rem Имя поддомена
set SUB_DOMAIN=
rem ID поддомена
set SUB_DOMAIN_ID=
rem Файл логов
set LOG=yandex_ddns.log

rem Генерируем дату и время
set DT=%DATE:~-4%.%DATE:~3,2%.%DATE:~0,2%%TIME:~0,-3%

rem Ищем публичный адрес
for /F "Delims=" %%P In ('curl -s http://pilo.tk/ip/') Do Set PUBIP=%%~P
echo Публичный адрес: %PUBIP%

rem Отправка запроса на изменение адреса для DOMAIN_ID
if "%DOMAIN_ID%" NEQ "" (curl -s -k "https://pddimp.yandex.ru/nsapi/edit_a_record.xml?token=%DNS_TOKEN%&domain=%DOMAIN%&record_id=%DOMAIN_ID%&content=%PUBIP%" | grep "<error>" | sed "s/   / %DT% %PUBIP% %DOMAIN%/g" | sed -e :a -e "s/<[^>]*>/ /g;/</N;//ba" >>%LOG% )

rem Отправка запроса на изменение адреса для SUB_DOMAIN_ID
if "%SUB_DOMAIN_ID%" NEQ "" (curl -s -k "https://pddimp.yandex.ru/nsapi/edit_a_record.xml?token=%DNS_TOKEN%&domain=%DOMAIN%&subdomain=%SUB_DOMAIN%&record_id=%SUB_DOMAIN_ID%&content=%PUBIP%" | grep "<error>" | sed "s/   / %DT% %PUBIP% %SUB_DOMAIN%.%DOMAIN%/g" | sed -e :a -e "s/<[^>]*>/ /g;/</N;//ba" >>%LOG% )

rem Очищаем переменные
set DNS_TOKEN=
set DOMAIN=
set DOMAIN_ID=
set SUB_DOMAIN_ID=
set LOG=
set DT=
set PUBIP=
:eof

Код: Выделить всё

ServerName sitename.com
ServerAlias site-name.com www.sitename.com  www.site-name.com

Код: Выделить всё

Option Explicit 
Const strAddr = "c:\Temp\ipaddr.txt"
Const strLog=  "c:\Temp\log.log"
Dim objHTTP, FSO, strHTML, IPnew, colsym, File, IPsave, FLog
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
On Error Resume Next
'отправляем запрос узнать свой ip адрес
    objHTTP.Open "GET", "http://ipv4.internet.yandex.net/internet/api/v0/ip", False
    objHTTP.Send
if Err.Number<>0 then
  MsgBox Err.Number &chr(13)+Err.Description
   Set FLog = FSO.OpenTextFile(strLog, 8, True)
    Flog.WriteLine  "Не удалось узнать IP адрес с ipv4.internet.yandex.net." & " Error: "&chr(32)&Err.Number&chr(32)&Err.Description
  FLog.Close
Wscript.Quit
end if
'WScript.Echo objHTTP.Status
'Обрабатываем ответ - Убираем кавычки перед и после полученного ip адреса
colsym = Len(objHTTP.ResponseText)
IPnew = Mid(objHTTP.ResponseText, 1,colsym-1)
colsym=Len(IPnew)
IPnew = Mid(IPnew, colsym-(colsym-2), colsym)
'WScript.Echo IPnew
'Файл c:\Temp\ipaddr.txt должен существовать и быть не пустым, считываем значения IP адреса из файла
Set File = FSO.OpenTextFile(strAddr,1)
IPsave = File.ReadLine
File.Close
'Если значение IP адреса в файле отличается от полученного в результате запроса на http://ipv4.internet.yandex.net/internet/api/v0/ip то записываем новый ip в DNS и в файл
If  IPsave<>IPnew then
objHTTP.Open "PUT", "https://pddimp.yandex.ru/nsapi/edit_a_record.xml?", False
objHTTP.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHTTP.Send "token=de166d3dc4ec3f9d8619e1fcf75ad9d7e8a437a77b&domain=sqladmin.ru&record_id=408141&content="&IPnew
if Err.Number<>0 then
  MsgBox Err.Number &chr(13)+Err.Description
  Set FLog = FSO.OpenTextFile(strLog, 8, True)
  Flog.WriteLine  "Не удалось записать новый IP адрес в DNS" & " Error: "&chr(32)&Err.Number&chr(32)&Err.Description
  FLog.Close
Wscript.Quit
end if
Set File = FSO.OpenTextFile(strAddr, 2)
File.Write IPnew
File.Close
'WScript.Echo (objHTTP.responseText)
'else WScript.Echo "IP не изменен"
end if