Добрый день!
Не определяется IP на клиенте Linux. Возвращается 127.0.0.1
На Windows клиенте все нормально. Что не так?
Не определяется IP на клиенте Linux. Возвращается 127.0.0.1
На Windows клиенте все нормально. Что не так?
Код:
Option Public
Option Declare
UseLSX "*javacon"
Sub Initialize
Dim jSession As JavaSession
Dim jClass As JavaClass
Dim jObject As JavaObject
Dim jObjHost As JavaObject
Dim host As String
Dim Workspace As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Set jSession = New JavaSession()
Set jClass = jSession.GetClass("java/net/InetAddress")
Set jObject = jClass.CreateObject
Set UIDoc = Workspace.Currentdocument
host = jObject.getLocalHost().getHostName()
'Получение списка сетевых интерфейсов
Dim interfaces As Variant
interfaces = jObject.getAllByName (host)
'Устанавливаем значение
Call uidoc.fieldsettext("IP", "Из другой сети")
'Перебор сетевых интерфейсов
ForAll interface In interfaces
Dim IP As String
'Получение IP-адреса на очередном интерфейсе
IP = interface.getHostAddress()
'Сравнивнение первых 3-х символов из IP-адреса
If Left(IP,3)="10." Then
Call uidoc.fieldsettext("IP", IP)
End If
End ForAll
End Sub