Image	GUI Field	ADSI Property
	[UserID] (Read Only)	name
	First name	givenName
	Initials	initials
	Last name	sn
	Display name	displayName
	Description	description
	Office	physicalDeliveryOfficeName
	Telephone number	telephoneNumber
	E-mail	mail
	Web page	wWWHomePage
	1 = Phone Number (Others)
	See Below
	2 = Web Page Address (Others)
	See Below

Image	GUI Field	ADSI Collection
	Current Values	otherTelephone

Image	GUI Field	ADSI Collection
	Current Values	url

Read Script Example

Option Explicit Dim objUser, objRDSE Dim colItems, objItem 'Change LDAP path as needed Set objRDSE = GetObject("LDAP://rootDSE") Set objUser = GetObject("LDAP://cn=[UserID],cn=Users," & _ objRDSE.Get("defaultNamingContext")) On Error Resume Next '* WScript.Echo "GENERAL PROPERTIES PAGE" WScript.Echo String(45, "/") WScript.Echo "(Single Valued Attributes)" WScript.Echo String(45, "-") WScript.Echo WScript.Echo "UserID:............" & objUser.Get("name") WScript.Echo "First name:........" & objUser.Get("givenName") WScript.Echo "Initials:.........." & objUser.Get("initials") WScript.Echo "Last name:........." & objUser.Get("sn") WScript.Echo "Display name:......" & objUser.Get("displayName") WScript.Echo "Description:......." & objUser.Get("description") WScript.Echo "Office:............" & objUser.Get("physicalDeliveryOfficeName") WScript.Echo "Telephone number:.." & objUser.Get("telephoneNumber") WScript.Echo "E-Mail:............" & objUser.Get("mail") WScript.Echo "Web page:.........." & objUser.Get("wWWHomePage") WScript.Echo WScript.Echo "(MultiValued Attributes)" WScript.Echo String(45, "-") WScript.Echo WScript.Echo "Phone Numbers (Others):" colItems = objUser.GetEx("otherTelephone") For Each objItem In colItems WScript.Echo vbTab & "*" & vbTab & objItem Next WScript.Echo Erase colItems WScript.Echo "Web Page Address (Others):" colItems = objUser.GetEx("url") For Each objItem In colItems WScript.Echo vbTab & "*" & vbTab & objItem Next WScript.Echo Set objUser = Nothing Set objRDSE = Nothing '* Values not present in AD are not stored as 'empty strings, but null properties and not returned 'in a query. Accessing a non-present property will 'throw an error.

Write Script Example

Option Explicit Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4 Dim objUser, objRDSE Dim colItems, objItem 'Change LDAP path as needed Set objRDSE = GetObject("LDAP://rootDSE") Set objUser = GetObject("LDAP://cn=[UserID]," & _ "cn=Users," & objRDSE.Get("defaultNamingContext")) WScript.Echo "GENERAL PROPERTIES PAGE" WScript.Echo String(45, "/") WScript.Echo "(Single Valued Attributes)" WScript.Echo String(45, "-") WScript.Echo 'Change Values as needed WScript.Echo "First name:........FirstName" objUser.Put "givenName", "FirstName" objUser.SetInfo WScript.Echo "Initials:..........XXX" objUser.Put "initials", "XXX" objUser.SetInfo WScript.Echo "Last name:.........LastName" objUser.Put "sn", "LastName" objUser.SetInfo WScript.Echo "Display name:......LastName, FirstName MI" objUser.Put "displayName", "LastName, FirstName MI" objUser.SetInfo WScript.Echo "Description:.......Generic Description" objUser.Put "description", "Generic Description" objUser.SetInfo WScript.Echo "Office:............City" objUser.Put "physicalDeliveryOfficeName", "SCity" objUser.SetInfo WScript.Echo "Telephone number:..800-555-1212" objUser.Put "telephoneNumber", "800-555-1212" objUser.SetInfo WScript.Echo "E-Mail:............[UserID]@[Host].com" objUser.Put "mail", "[UserID]@[Host].com" objUser.SetInfo WScript.Echo "Web page:..........http://www.[Host].com/[UserID]" objUser.Put "wWWHomePage", "http://www.[Host].com/[UserID]" objUser.SetInfo WScript.Echo 'Delete a Single Valued Attribute WScript.Echo "** Clearing the Web page Data." objUser.PutEx ADS_PROPERTY_CLEAR, "wWWHomePage", vbNullString objUser.SetInfo WScript.Echo WScript.Echo "(MultiValued Attributes)" WScript.Echo String(45, "-") WScript.Echo WScript.Echo "Phone Numbers (Others):" WScript.Echo "Clearing all existing numbers." objUser.PutEx ADS_PROPERTY_CLEAR, "otherTelephone", vbNullString objUser.SetInfo WScript.Echo "Adding: 000-000-0000, 111-111-1111, 222-222-2222" objUser.PutEx ADS_PROPERTY_UPDATE, "otherTelephone", _ Array("000-000-0000", "111-111-1111", "222-222-2222") objUser.SetInfo WScript.Echo "Removing specific number: 111-111-1111" objUser.PutEx ADS_PROPERTY_DELETE, "otherTelephone", _ Array("111-111-1111") objUser.SetInfo WScript.Echo "Appending new number: 333-333-3333" objUser.PutEx ADS_PROPERTY_APPEND, "otherTelephone", _ Array("333-333-3333") objUser.SetInfo WScript.Echo WScript.Echo "Web Page Address (Others):" WScript.Echo "{Skipped}" 'This works exactly the same as the Phone Numbers above, 'but substitute the 'otherTelephone' with 'url'. WScript.Echo Set objUser = Nothing Set objRDSE = Nothing

More Info URLs

• MSDN: Platform SDK: Active Directory Service Interfaces: IADs::Put
• MSDN: Platform SDK: Active Directory Service Interfaces: ADS_PROPERTY_OPERATION_ENUM