Below is a short peice of Lotusscript to return the clients ip address.
Dim objWMIService As Variant
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Dim colItems,i As Variant
Set colItems = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")
Forall objItem In colItems
If Not Isnull(objItem.IPAddress) Then
For i = Lbound(objItem.IPAddress) To Ubound(objItem.IPAddress)
If Not Instr(objItem.IPAddress(i), ":") > 0 Then
Msgbox "IP Address: " & objItem.IPAddress(i)
End If
Next
End If
End Forall