DETECTING NETWORK logon ID 3

[petes123]

during logon to my application, I want VFP to tell me what the user's network logon id is and then check against a table of authorized users. Is there a way to do that on and NT4.0 network? I could have them enter a user ID and password but prefer to check it sytematically.

 

[jcanon]

Try using sys(0)


xCad2 = Sys(0)
? ""
? "Log Info"
? ""
? "Machine : "
?? left(xcad2,at("#",xcad2,1)-1)
? "User : "
?? substr(xcad2,at("#",xcad2,1)+1,len(xcad2))

 

[psalyer]

That work so nice. I really appreciate the help!
Thanks
Pete

 

[DanNorris2000]

With a Win xp operating system sys(0) show the machine user name not the Nwuser name.
Dan#User

should be Dan#dbn (dbn being my novell login id) I'd rather have a bottle in front of me than a frontal lobotomy

 

[CJWARNER]

I just use the ID() function on my Windows network.

At the Command Window, try ? ID() .

==Carl
Carl Warner
VFUG Officer,

http://vfug.org:8080/

MS MVP, VFP

 

[DanNorris2000]

That seems to work the same as sys(0) in this situation.
It returns the windows id , not the network id
I'd rather have a bottle in front of me than a frontal lobotomy

 

[DSummZZZ]

Here's another variation:

oNet = CREATEOBJECT('WScript.Network')
STORE oNet.UserName TO m.UserName
RELEASE oNet
Dave S.

 

[LenaS]

I found in another old thread that you can use
GETENV("nwusername&quotand assign it to a variable. This works for me. Is this a good solution?

 

[DSummZZZ]

LenaS,

The only problem with that method is that it may not be set for every OS, or it may be a called something different.
WinNT sets that value but the rest may not.
Dave S.

 

[jaa69]

Hey Dave, can you give us the secret code for the passwords on there also?

 

[DSummZZZ]

If I could do that, I would be rich. And probably in jail.
Dave S.