how to write vbs script to display email name from Active Directory for bginfo?

Question

how to write vbs script to display email name from Active Directory for bginfo?

Dmitry Ivanov 0

Hello everyone, I need help writing a vbs script to display the email name from Active Directory for bginfo

Dmitry Ivanov 0

I collected pieces of code, displays mail on the desktop, I add the script to bginfo, it is not displayed on the screen

On Error Resume Next
Set objUser = GetObject("LDAP://CN=username,DC=test,DC=com")
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
objUser.GetInfo
strMail = objUser.Get("mail")
WScript.echo "mail:" & strMail
DisplayResults osInfoRes.ItemIndex(0), releaseId
Sub DisplayResults(osInfo, releaseId)

    caption = Replace(osInfo.Caption, "Microsoft ", "")
    SafeEcho caption & " v" & releaseId & " (" & osInfo.Version & " " & osInfo.OSArchitecture & ")"

End Sub
' Support both wscript/cscript and BGInfo
Sub SafeEcho(message)
	ON ERROR RESUME NEXT
	WScript.Echo message
	Echo message
	Err.Clear
End Sub