buat script seperti berikut
Option Explicit
Dim http : Set http = CreateObject( "MSXML2.ServerXmlHttp" )
http.Open "GET", "http://myip.dnsomatic.com/", False
http.Send
Wscript.Echo http.responseText 'or do whatever you want with it
Set http = Nothing
simpan file tersebut dengan anma ip.vbs
jalankan cscript ip.vbs
link yang bisa memberikan informasi ip public kita
http://myip.dnsomatic.com/
http://whatismyip.org/
http://icanhazip.com/
Tidak ada komentar:
Posting Komentar