(←Membuat halaman berisi 'Berikut adalah script VBS untuk melakukan update layanan Dynamic DNS dari {{indoglobal}}. <source lang="vbs"> Call LogEntry() Sub LogEntry() On Error Resume Next D...') |
|||
Baris 1: | Baris 1: | ||
Berikut adalah script VBS untuk melakukan update layanan Dynamic DNS dari {{indoglobal}}. | Berikut adalah script VBS untuk melakukan update layanan Dynamic DNS dari {{indoglobal}}. | ||
− | <source lang=" | + | <source lang="vb"> |
Call LogEntry() | Call LogEntry() | ||
Baris 19: | Baris 19: | ||
Gantilah URL dengan Full Update URL yang bisa anda dapatkan dari halaman Usage pada hostname Dynamic DNS anda. | Gantilah URL dengan Full Update URL yang bisa anda dapatkan dari halaman Usage pada hostname Dynamic DNS anda. | ||
+ | |||
+ | Setelah ini anda perlu menambahkan script tersebut pada Task Scheduler untuk dieksekusi secara berkala, misalnya setiap 10 menit. | ||
[[Kategori:Dynamic DNS|Windows Script]] | [[Kategori:Dynamic DNS|Windows Script]] |
Berikut adalah script VBS untuk melakukan update layanan Dynamic DNS dari indoglobal.com.
Call LogEntry() Sub LogEntry() On Error Resume Next Dim objRequest Dim URL URL = "http://myhostname.example.net:mypass@mail.example.net/nic/update?hostname=myhostname.example.net&myip=auto" Set objRequest = CreateObject("Microsoft.XMLHTTP") objRequest.open "GET", URL , false objRequest.Send Set objRequest = Nothing End Sub
Gantilah URL dengan Full Update URL yang bisa anda dapatkan dari halaman Usage pada hostname Dynamic DNS anda.
Setelah ini anda perlu menambahkan script tersebut pada Task Scheduler untuk dieksekusi secara berkala, misalnya setiap 10 menit.
Sosial
Facebook
Twitter
Google Plus
Temukan kami di Google+