请问如何得到当前office以及windows用户的中文姓名
安装windows和office都要求输入姓名,单位等信息,一般大家都输入了中文,用domain/ming.li登陆后也有其中文名字 "李明 ",单位为某某公司,怎么能够得到这个名字呢?谢谢!!!
envio函数,currentuser,word中application.username都不能获得这个用户帐号背后的中文名称和公司,郁闷
我在注册表里面发现有,可是需要再读取注册表,有函数能直接读出来这些信息么?

------解决方案--------------------
--Office用户名

user()


--Windows用户名，需要调用API


'公共API声明
Public Declare Function wu_GetUserName Lib "advapi32.dll " Alias "GetUserNameA " (ByVal lpBuffer As String, nSize As Long) As Long


Public Function OsUserName() As Variant '操作系统登录用户名
Dim strUserName As String
Dim lngLength As Long
Dim lngResult As Long

strUserName = String$(255, 0)
lngLength = 255

lngResult = wu_GetUserName(strUserName, lngLength)
OsUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)

End Function