how to get the full user name?

Question

I have the following code in VBS that works perfectly. it queries AD to get the user full name :

Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strFullName = objUser.Get("displayName")
MsgBox strFullName

i would like to do the same thin but in Foxpro 7. anybody has experience with VFP 7 or 9 ?

score 3 · Answer 1 · answered Jan 30 '13 at 16:18

3

sys(0) returns both machine name and user something like

lcMachineUser = sys(0)
lcMachine = LEFT( lcMachineUser, AT( "#", lcMachineUser) -1 )
lcUserName = substr( lcMachineUser, AT( "#", lcMachineUser) +1 )

answered Jan 30 '13 at 16:18

DRapp

47,638
12
72
142

score 2 · Answer 2 · answered Jan 29 '13 at 17:23

Alright, it seems like ths stuff is pretty old...and it's true ! ;) i've found a solution however, this can help someone, somewhere, someday :)

loScript = Createobject("MSScriptcontrol.scriptcontrol.1")
loScript.Language = "VBScript"

TESTVBS = [Set objSysInfo = CreateObject("ADSystemInfo")] + chr(13)+chr(10)+;
          [strUser = objSysInfo.UserName] + chr(13)+chr(10)+;
          [Set objUser = GetObject("LDAP://" & strUser)] + chr(13)+chr(10)+;
          [strFullName = objUser.Get("displayName")] + chr(13)+chr(10)
          *[MsgBox strFullName]

loScript.executestatement(TESTVBS)

this is how you execute VBS from Foxpro code...two technologies that are not technologies anymore :)

score 2 · Answer 3 · answered Jan 31 '13 at 14:45

2

This will get the user's name from the environmental variables.

username = GETENV("UserName")

answered Jan 31 '13 at 14:45

Jerry

6,357
8
35
50

score 0 · Answer 4 · answered Mar 01 '13 at 07:09

I 'm using this function:

FUNCTION Get_User()
  LOCAL cUsrBuf, nUsrLen, cUserName
  cUsrBuf = SPACE(20)
  nUsrLen = 20
  DECLARE GetUserName IN advapi32 AS GetUserName STRING @cusrbuf, LONG @nusrlen
  =GetUserName(@cusrbuf, @nusrlen)
  cUserName = LEFT(ALLTRIM(cusrbuf), LEN(ALLTRIM(cusrbuf)) - 1)
 RETURN cUserName
ENDFUNC

I would avoid using SYS(0) because: SYS(0) returns 1 when using Visual FoxPro in a stand-alone environment

Only when the machine is connected to a network, SYS(0) returns the machine name, a space, a number sign (#) followed by another space, and then the id of the current user (or the security context in which Visual FoxPro is running).

how to get the full user name?

4 Answers4