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

End Function