[求助]怎么取得计算机用户名字...不是那个完整的计算机名字

dabian001

[求助]怎么取得计算机 [用户] 名字.......不是那个完整的计算机名字

马大哈

<p>是"当前登录的用户名"吗?</p><p>如果是,就用下面这个代码,保存到一个标准模块里去:</p><p>Option Explicit</p><p>Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long<br/>&nbsp; <br/>Public Function NTDomainUserName() As String<br/>&nbsp;&nbsp;&nbsp; Dim strBuffer&nbsp;&nbsp;&nbsp;&nbsp; As String * 255<br/>&nbsp;&nbsp;&nbsp; Dim lngBufferLength&nbsp;&nbsp;&nbsp;&nbsp; As Long<br/>&nbsp;&nbsp;&nbsp; Dim lngRet&nbsp;&nbsp;&nbsp;&nbsp; As Long<br/>&nbsp;&nbsp;&nbsp; Dim strTemp&nbsp;&nbsp;&nbsp;&nbsp; As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; lngBufferLength = 255<br/>&nbsp;&nbsp;&nbsp; lngRet = GetUserName(strBuffer, lngBufferLength)<br/>&nbsp;&nbsp;&nbsp; strTemp = UCase(Trim$(strBuffer))<br/>&nbsp;&nbsp;&nbsp; NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)<br/>End Function</p><p>然后调用NTDomainUserName就可以得到用户名.</p>