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