求问如何用 VB 实现获取本地计算机所有的用户 - 编程论坛

#2

yuantianji2014-06-25 10:33

大神在哪里

#3

yuk_yu2014-07-09 01:09

回复 2 楼 yuantianji

程序代码：

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function UserName() As String
    Dim buffer As String * 512, Length As Long
    If GetUserName(buffer, Len(buffer)) Then
        Length = InStr(buffer, vbNullChar) - 1
        ComputerUserName = Left$(buffer, Length)
    End If
End Function

#4

bczgvip2014-07-09 11:40

WMI Win32_UserAccount
自己查吧。