You can use script below to modify extraColumns attribute.
' VBScript source code
' Written by Christoffer Andersson [MVP]
' This adds the default values for possible columns that was over written by Live Communication Server 2003
' You have to change the domain component name in the StrOU string to match your environment.
Dim PathLen
Dim DisplaySpecifiersCN
Const ADS_PROPERTY_APPEND = 3
StrOU = "CN=DisplaySpecifiers,CN=Configuration,DC=,DC="
Set objOU = GetObject("LDAP://" & strOU)
ForEach objChild in objOU
PathLen = Len(ObjChild.ADSPath)
DisplaySpecifiersCN = Mid(ObjChild.ADSPath,8,PathLen)
MsgBox ("Apply defaults to:" & DisplaySpecifiersCN )
Set objToModify = GetObject ("LDAP://CN=organizationalUnit-Display," & DisplaySpecifiersCN)
objToModify.PutEx ADS_PROPERTY_APPEND, _
"extraColumns", Array("postalCode,Zip Code,0,100,0;", "textEncodedORAddress,X.400 E-Mail Address,0,130,0;", "userPrincipalName,User Logon Name,0,200,0;", "title,Job Title,0,100,0;", "targetAddress,Target Address,0,100,0;", "st,State,0,100,0;", "physicalDeliveryOfficeName,Office,0,100,0;v", "whenChanged,Modified,0,130,0;", "sn,Last Name,0,100,0;", "msExchIMMetaPhysicalURL,Instant Messaging URL,0,140,0;", "msExchIMPhysicalURL,Instant Messaging Home Server,0,170,0;", "givenName,First Name,0,100,0;", "homeMDB,Exchange Mailbox Store,0,100,0;", "mailNickname,Exchange Alias,0,175,0;", "mail,E-Mail Address,0,100,0;", "sAMAccountName,Pre-Windows 2000 Logon Name,0,120,0;", "displayName,Display Name,0,100,0;", "department,Department,0,150,0;", "c,Country,0,-1,0;", "l,City,0,150,0;", "telephoneNumber,Business Phone,0,100,0;")
objToModify.SetInfo
Next
MsgBox ("Operation Complated! DisplaySpecifiers extraColumns is restored to defaults with support for Exchange and Live Communication Server")