indoglobal.com
Langsung ke: navigasi, cari

Windows Script

(Perbedaan revisi)
(←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="vbs">
+
<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]]

Revisi per 20 September 2014 17.09

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.