Get ip from external txt file and use in vbscript

thanks for your help but i dont get it working.

look at this example:

Const sInFile = "http://192.168.2.101/ip.txt"
sText = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(sInFile, 1).ReadAll, "=")
sIP = sText(1)
MsgBox sIP


Dim iURL
Dim objShell
iURL =
set objShell = CreateObject("WScript.Shell")
objShell.run(iURL)


'the ip.txt is on a virtual server.


How can i make it opening the ip from the txt. iam not an expert

this is what i found:


url = "https://api.twitter.com/1/statuses/user_timeline.rss?screen_name=nrcGOV"
'xmlHttp.setProxy 2, "www.proxy.nrc.gov:80"

Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", url, False
objHTTP.Send
rss = BinaryToString(objHTTP.ResponseBody)
Response.Write(rss)

Function BinaryToString(byVal Binary)
'--- Converts the binary content to text using ADODB Stream

'--- Set the return value in case of error
BinaryToString = ""

'--- Creates ADODB Stream
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")

'--- Specify stream type
BinaryStream.Type = 1 '--- adTypeBinary

'--- Open the stream And write text/string data to the object
BinaryStream.Open
BinaryStream.Write Binary

'--- Change stream type to text
BinaryStream.Position = 0
BinaryStream.Type = 2 '--- adTypeText

'--- Specify charset for the source text (unicode) data
BinaryStream.CharSet = "UTF-8"

'--- Return converted text from the object
BinaryToString = BinaryStream.ReadText
End Function


but i dont know how to use it.

thank u so much guys. looks pretty close to what i need.
but how can i make it opening in the browser instead of a message box?

many thanks