Bat-fil som finner ekstern ip?

[Håvard]

Er det mulig å skrive en batchskript som finner den eksterne ipn, eller må jeg bruke vbs til dette?

[j000rn]

IP.VBS:

set http = CreateObject("Microsoft.XmlHttp")
http.open "GET", "http://jorn.aakre.no/ip.asp", false
http.send ""
wscript.Echo http.responseText

 

 

cscript ip.vbs //nologo

[Håvard]

IP.VBS:

set http = CreateObject("Microsoft.XmlHttp")
http.open "GET", "http://jorn.aakre.no/ip.asp", false
http.send ""
wscript.Echo http.responseText

 

 

cscript ip.vbs //nologo

8568525[/snapback]

Går det ann å få denne til å lagre til en .txt fil i stede for å lage en popup?

[j000rn]

Kjør den sånn:

 

cscript ip.vbs //nologo

(for å vise på skjerm)

 

 

cscript ip.vbs //nologo > c:\MinIp.txt

(for å lagre som fil)

[backup]

Hvis du ikke vil være avhengig av at fila: http://jorn.aakre.no/ip.asp til en hver tid eksisterer, kan du eventuelt bruke dette vbs-scriptet:

 

Set objHTTP =  CreateObject("Microsoft.XMLHTTP")

  Call objHTTP.Open("GET", "http://checkip.dyndns.org", False)

  objHTTP.Send()

  x = objHTTP.ResponseText

  i = InStr(1,x,":")

  j =InStr(1,x,"</body")

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.OpenTextFile("c:\eksternIP.txt", 2, True)

  f.WriteLine Mid(x,i+2,j-i-1)

Lagre scriptet, dobbelklikk ikonet og du får den eksterne IP i c:\eksternIP.txt.

[Håvard]

Hvis du ikke vil være avhengig av at fila: http://jorn.aakre.no/ip.asp til en hver tid eksisterer, kan du eventuelt bruke dette vbs-scriptet:

 

 

Set objHTTP =  CreateObject("Microsoft.XMLHTTP")

  Call objHTTP.Open("GET", "http://checkip.dyndns.org", False)

  objHTTP.Send()

  x = objHTTP.ResponseText

  i = InStr(1,x,":")

  j =InStr(1,x,"</body")

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.OpenTextFile("c:\eksternIP.txt", 2, True)

  f.WriteLine Mid(x,i+2,j-i-1)

Lagre scriptet, dobbelklikk ikonet og du får den eksterne IP i c:\eksternIP.txt.

8571579[/snapback]

Takk takk

[backup]

tatt bort pga en feil

Endret 26. juni 2007 av backup