strFileName = InputBox("Please provide the name of the List file","Enter Value","Please Provide the Full Path") 
strLDNVal = InputBox("Please Provide the New LEDN for your users (DO NOT CHANGE THE CN= AT THE END ONLY THE /O= Value)","Enter Value","/o=<OrgName>/ou=First Administrative Group/cn=Recipients/cn=")

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile(strFileName, 1) 
Do Until objFile.AtEndOfStream 
strLine = objFile.ReadLine 
set objUser = getobject("LDAP://" & strLine) 
strUsername = objUser.samAccountName 


objUser.legacyExchangeDN = strLDNVal & strUserName 
objUser.setinfo 
Loop 
objFile.Close 
WScript.Echo ("Script Completed")