[好用小程式] 在 router 後面抓 router 的 external IP.

janvier.hk

做 port-forward 的時候, 由於 adsl 的 ip 經常變動, 所以每次都要進入 router 找 ip 出來, 粉不方便.

所以就寫這個小程式, 希望也能幫到大家.

我的用法是: 抓到 ip 後配合 sitelutions 的免費 domain name, 再把 script 丟到 /usr/local/etc/rc.d 裡面, 在 rc.conf 裡面 script_name_enable="YES", 就能每次開機都能 自動把我的 domain name 指到我的 router 了.

抓 external IP:

1. 
   
2. #!/bin/sh
   
3. 
   
4. fetch -q -o - http://www.ipchicken.com/ | perl -pe 's/\n//' | perl -pe 's/.+<b>(.+)<br>.+.+Add to Favorites.+/$1/' | perl -pe 's/\s+([^\s]+)\s+/$1\n/'
   

复制代码

抓 IP, 改 dns A record :

1. 
   
2. #!/bin/sh
   
3. 
   
4. ## Set the username, password and the account ID.
   
5. USER=xxxxxx
   
6. PASSWORD=xxxxxx
   
7. ACCOUNT_ID=123456
   
8. DNS_RECORD=example.domain.name
   
9. 
   
10. ## Get external IP from www.ipchicken.com
    
11. INET_ADDR=`fetch -q -o - http://www.ipchicken.com/ | perl -pe 's/\n//' | perl -pe 's/.+<b>(.+)<br>.+.+Add to Favorites.+/\$1/' | perl -pe 's/\s+([^\s]+)\s+/\$1/'`
    
12. 
    
13. ## Get external IP from www.geobytes.com
    
14. #INET_ADDR=`fetch -q -o - http://www.geobytes.com/IpLocator.htm | grep -e "ipaddress" | perl -pe 's/.+<input.+name=\"ipaddress\".+value=\"([\d.]+)\".+/\$1/'`
    
15. 
    
16. ## Update DNS record by a request.
    
17. echo
    
18. logger -t sitelutions.com -s "Updating [$DNS_RECORD] point to $INET_ADDR... `fetch -q -o - https://www.sitelutions.com/dnsup?id=$ACCOUNT_ID\&user=$USER\&pass=$PASSWORD\&ip=$INET_ADDR`."
    

复制代码

記得 chmod 500, 不然密碼被人看光光.

p.s. 聽說好像有個叫『花生殼』 的也有類似功能, 暫時沒有時間去瞭解.

zhangweizj

恩，使用花生壳很方便，呵呵。只要从他网站上下载程序添加到自启动里就行了，然后开机他就会自动去读取事先配置好的文件，动态获取IP