(←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...') |
|||
(4 revisi antara oleh satu pengguna tak ditampilkan) | |||
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 20: | Baris 20: | ||
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. | ||
− | [[Kategori:Dynamic DNS | + | Setelah ini anda perlu menambahkan script tersebut pada Task Scheduler untuk dieksekusi secara berkala, misalnya setiap 10 menit. |
+ | |||
+ | [[Kategori:Setting Aplikasi Dynamic DNS]] |
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+