Image	GUI Field	ADSI Property
	[OU Name] (Read Only)	name
	Description	description
	Street	street
	City	l
	State/province	st
	ZIP/Postal Code	postalCode
	Country/region	c co*

*co will return the human readable country name.  Set the country using the two character country code using the c property.

Read Script Example

Option Explicit 'Change as required Const strLDAP = "OU=Domain Controllers" Dim objRootDSE, objItem On Error Resume Next '* Set objRootDSE = GetObject("LDAP://rootDSE") 'Setup Data Set objItem = GetObject("LDAP://" & strLDAP & "," & objRootDSE.Get("defaultNamingContext")) WScript.Echo "GENERAL PROPERTIES PAGE" WScript.Echo String(45, "/") WScript.Echo "(Single Valued Attributes)" WScript.Echo String(45, "-") WScript.Echo WScript.Echo "[OU Name]:....." & objItem.Get("name") WScript.Echo "Description:..." & objItem.Get("description") WScript.Echo "Street:........" & objItem.Get("street") WScript.Echo "City:.........." & objItem.Get("l") WScript.Echo "State:........." & objItem.Get("st") WScript.Echo "ZIP:..........." & objItem.Get("postalCode") WScript.Echo "Country:.......(" & _ objItem.Get("c") & ") " & objItem.Get("co") WScript.Echo Set objRootDSE = Nothing Set objItem = 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 'Change as required Const strLDAP = "OU=Domain Controllers" Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4 Dim objRootDSE, objItem 'On Error Resume Next Set objRootDSE = GetObject("LDAP://rootDSE") 'Setup Data Set objItem = GetObject("LDAP://" & strLDAP & "," & objRootDSE.Get("defaultNamingContext")) WScript.Echo "GENERAL PROPERTIES PAGE" WScript.Echo String(45, "/") WScript.Echo "(Single Valued Attributes)" WScript.Echo String(45, "-") WScript.Echo WScript.Echo "Description:.......Generic Description" objItem.Put "description", "Generic Description" objItem.SetInfo WScript.Echo "Street:............Main Street" objItem.Put "street", "Main Street" objItem.SetInfo WScript.Echo "City:..............Anytown: " & Now objItem.Put "l", "Anytown" objItem.SetInfo WScript.Echo "State:.............XX: " & Now objItem.Put "st", "XX" objItem.SetInfo WScript.Echo "ZIP:...............00000: " & Now objItem.Put "postalCode", "00000" objItem.SetInfo WScript.Echo "Country:...........United Kingdom: " & Now objItem.Put "c", "GB" objItem.SetInfo 'Delete a Single Valued Attribute WScript.Echo "** Clearing the Description." objItem.PutEx ADS_PROPERTY_CLEAR, "description", vbNullString objItem.SetInfo Set objRootDSE = Nothing Set objItem = Nothing

More Info URLs

• MSDN: Platform SDK: Active Directory Service Interfaces: ADS_GROUP_TYPE_ENUM