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