[dimich22]

Только ведь, насколько я понимаю, нужен внешний адрес, тогда поможет такой скрипт:

Код:

Option Explicit

On Error Resume Next

Const cstrShowMyIP = "http://www.showmyip.com/xml/"

Dim objRemXML
Dim objMyIP
Dim strIPAddress
Dim strHostname

Set objRemXML = CreateObject("Microsoft.XMLDOM")
objRemXML.async = False
objRemXML.load(cstrShowMyIP)
If Err.Number <> 0 Then
WScript.Echo "Error getting IP address from " & cstrShowMyIP
WScript.Quit
End If

' Get our IP address
Set objMyIP = objRemXML.selectSingleNode("/ip_address/ip")
If Err.Number <> 0 Then
WScript.Echo "Error getting IP address from XML data"
WScript.Quit
Else
strIPAddress = objMyIP.text
End If

' Get our hostname
Set objMyIP = objRemXML.selectSingleNode("/ip_address/host")
If Err.Number <> 0 Then
WScript.Echo "Error getting IP address from XML data"
WScript.Quit
Else
strHostname = objMyIP.text
End If

' Print info
WScript.Echo "IP address : " & strIPAddress
WScript.Echo "Hostname : " & strHostname

' Finish
Set objMyIP = Nothing
Set objRemXML = Nothing

И посмотрите еще вот эту тему