On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("WScript.Network")
Set objUser = GetObject("LDAP://" & objNetwork.ComputerName)
objUser.Put "someComputerAttribute", objSysInfo.UserName
objUser.SetInfo
add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010 -ErrorAction SilentlyContinue
$email=Read-Host 'What is eMail?'
get-recipient -results unlimited | where {$_.emailaddresses -match $email} | select name,emailaddresses,recipienttype|Out-GridView