Getting IP Address in PowerBuilder 5

Question

Hi,
How to get machines IP address using PB5, when google we found the below link
http://eric.aling.tripod.com/PB/tips/pbtip14.htm
As per the above link, we need to use WSOCK32.DLL and PBWS32.DLL(third party DLL ).
Is there any other way to get IP address with out using PBWS32.DLL(third party DLL ) in PB5?
Thanks,
Sundar

Answer 1

Sundar,
If you are tryting to get local IP address, this may be helpful for you...
Here is the script for your reference..
1) Save ipconfig result into .txt file.
of_save_client_ip()
Long   ll_file_open , ll_count
FileDelete('C:\done.yes')
FileDelete('C:\client_ip.txt')
ll_file_open = FileOpen( "C:\client_ip.bat" , LineMode!, Write!, LockWrite!,Replace! )
FileWrite(ll_file_open, 'ipconfig')
FileWrite(ll_file_open,'echo done >> C:\done.yes')
FileClose(ll_file_open)
Run( 'C:\client_ip.bat >> C:\client_ip.txt'  , Minimized!) 
DO
// Pause
FOR ll_count = 1 TO 1000
  Yield()
NEXT
LOOP UNTIL FileExists('C:\done.yes')
2) To get Local IP address
of_get_client_ip() return string
String  ls_ipaddr = 'NO' , ls_dataline  
Long  ll_file , ll_read
ll_file = FileOpen('C:\client_ip.txt', LineMode!, Read!, Shared! )
DO
// Read the file
ll_read = FileRead( ll_file , ls_dataline)
// Look for IP Address. . . . . . . . . . . . : 000.00.000.111
IF Pos( ls_dataline, 'IP Address' )  > 0  AND Pos( ls_dataline, ':' ) > 0 THEN
  ls_ipaddr = Trim( Mid ( ls_dateline , Pos( ls_dataline, ':' ) + 2 , Len(ls_dateline) ) )
  EXIT
END IF
LOOP WHILE ll_read >= 0
FileClose(ll_file)
RETURN ls_ipaddr
Regards,
Jahir