vbscript - 如何获取完整的用户名？

Question

我在 VBS 中有以下代码，可以完美运行。它查询 AD 以获取用户全名:

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

我想做同样的事情，但是在 Foxpro 7 中。有人有 VFP 7 或 9 的经验吗？

Answer 1

sys(0) 返回计算机名称和用户，类似于

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