Most of our clients connect to our UniData system from the internet.  Since 
UniData isn't able to quickly tell me who's logged on
where, I've had to create a LOGINS file to track where everyone is logged into. 
 This tracking was inserted into our login process
so we've worked-around the missing functionality.
 
Our code looks like:
 
IF ISNT THEN
   IPAddress = SYSTEM(512)                           ; ** UD version
END ELSE
   UArray = LISTUSER()                               ; ** UD version
   xHigh  = DCOUNT(UArray, @AM)                      ; ** UD version
   FOR X = 1 TO xHigh                                ; ** UD version
      ULine = UArray<X>                              ; ** UD version
      UPort = ULine<1,1>                             ; ** UD version
      IF UPort = PORT.NO THEN                        ; ** UD version
         IPAddress = ULine<1,7>                      ; ** UD version
         EXIT                                        ; ** UD version
      END                                            ; ** UD version
   NEXT X                                            ; ** UD version
END

When I list the users I get:

5 Ham (0)-> SORT LOGINS
SORT LOGINS ID-SUPP @ID LUSERNO LUSER LACCT LIPADDRESS LTIME LDATE 09:44:28 Jun 
06 2007 1
Port UsrNo.. User........ Acct/Path...... IP Address..... In Time. In Date...

   3    3428 PATTITOMS    IM              192.168.1.103   08:25:57 06/06/2007
   4    3864 JOHNSMITH    HAT             71.69.90.134    08:44:47 06/06/2007
   5    3768 WPHASKETT    HAT             192.168.1.101   09:44:03 06/06/2007
   6    4084 JOHNSMITH    HAT             71.69.90.134    09:37:48 06/06/2007
5 records listed

All users are logged in from the internet.  The IP address for me (port 5) is 
my internal IP address.  Two different machines at the
71... IP address are logged in as john smith.  Patti Toms is logged in from 
another client and the IP address for her is her
internal IP address.

Can anyone tell me: 1) am I doing anything wrong in getting their IP addresses 
at login, and 2) why are some addresses internal to
the local network while others are the IP address of the client's router?

Device licensing works fine on AccuTerm 2K2 IE edition.  This is UniData on 
Windows v7.1.9.

Thanks,

Bill Haskett
Advantos Systems, Inc.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to