General information
Category:
Coding, syntax & commands
Get each user to invoke the "WinSock" program when they logon and record their IP address in the "User table" (from "their" session).
>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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only