Cetin,
I have tried this in my program but it only gives me my IP adress all the time. The program is run from my machine:
Neil.prg
Lparameters lcFileName
Local llReturn, lnFID
llReturn = .F.
If File("U:\Profile\User149\InSystem.dbf")
lnFID = Fopen("U:\Profile\User149\InSystem.dbf", 11)
If lnFID = -1
llReturn = .T.
MESSAGEBOX("User is in System")
oWinSock = CreateObject("MSWinsock.Winsock")
? oWinSock.LocalIP
Else
=Fclose(lnFID)
MESSAGEBOX("User is not in System")
EndIf
EndIf
Return llReturn
Now user 149 is on another machine so when I run this program it tells me that the user is in the system but returns my IP address and not the machine that has used this file. Any ideas?
Many Thanks
Neil Lewis
IT R&D Manager
Velmore Ltd