VBS获取当前登录的用户全名和邮件地址

Function GetEmail(strAccountName, strDomainName)
Dim adoLDAPCon, _
adoLDAPRS, _
strLDAP

Set adoLDAPCon = CreateObject("ADODB.Connection")
adoLDAPCon.Provider = "ADsDSOObject"
adoLDAPCon.Open "ADSI"
strLDAP = "'LDAP://" & strDomainName & "'"
Set adoLDAPRS = adoLDAPCon.Execute("select mail from " & strLDAP & " WHERE objectClass = 'user'"& " And samAccountName = '" & strAccountName & "'")
With adoLDAPRS
If Not .EOF Then
GetEmail = .Fields("mail")
Else
GetEmail = ""
End If
End With
adoLDAPRS.Close
Set adoLDAPRS = Nothing
Set adoLDAPCon = Nothing
End Function

Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
strDomain = objNetwork.UserDomain
mailAdr = GetEmail(strUser, strDomain)
print  mailAdr

sADSPath= strDomain & "/" & strUser
Set oUser = GetObject("WinNT://" & sADSPath & ",user")
print oUser.FullName