Image	GUI Field	ADSI Property
	[Computer] (Read Only)	name
	Description	description

Read Script Example

Option Explicit 'Change as required Const strLDAP = "CN=Computers" 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 """Computer"":...." & objItem.Get("cn") WScript.Echo "Description:..." & objItem.Get("description") 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 = "CN=Computers" 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 Set objRootDSE = Nothing Set objItem = Nothing

More Info URLs

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