Many Thanks, but every time I run the program from my machine it tells me that the file is being used or not being used BUT the key to this is that it only records my IP address and hostname and the User who has the file opened:
Here is my code: please bare in mind the file that is being accessed is on a shared drive and I am running the program from MY machine.
Lparameters lcFileName
Local llReturn, lnFID, oIPSocket
llReturn = .F.
If File("U:\Profile\User94\InSystem.dbf")
lnFID = Fopen("U:\Profile\User94\InSystem.dbf", 11)
If lnFID = -1
llReturn = .T.
MESSAGEBOX("User is in System")
oIPSocket = CreateObject("MSWinsock.Winsock")
if type('oIPSocket')='O'
? oIPSocket.LocalIP
? oIPSocket.localhostname
endif
Else
=Fclose(lnFID)
MESSAGEBOX("User is not in System")
EndIf
EndIf
Return llReturn
Neil Lewis
IT R&D Manager
Velmore Ltd