vba 计算机当前用户,excel中获取计算机登陆的用户名

Sub NetworkInfo()

Dim wshnetwork, info As String

Set wshnetwork = CreateObject("WScript.Network") '获取当前电脑用户信息'

info = "Domain = " & wshnetwork.UserDomain '用户域信息'

info = info & Chr(10) & "Computer Name = " & wshnetwork.computername 'result is UpperCase '用户计算机名'

info = info & Chr(10) & "User Name = " & wshnetwork.UserName '用户名'

MsgBox info

End Sub

Public Function GetDisplayName()As String

Set objDomain = CreateObject("ADSystemInfo")

Set objUser = GetObject("LDAP://" & objDomain.UserName)

GetDisplayName = objUser.DisplayNameEnd Function

EndFunction