This method is available in EFT Server 4.3.4 and later.
Use the ICIServer interface GetAdminIPs to retrieve a string list of IP addresses for the machine on which the EFT Server is running. The IP addresses can be used as LISTENING IP addresses for administration or protocol services.
Dim arIPS : arIPS = oServer.GetAdminIPs()
for i = LBound(arIPS) to UBound(arIPS)
WScript.Echo CStr(i) & " - " & arIPS(i)