Modify an OU object - vbscript sample
Active Directory Services Interface (ADSI) is a set of COM (Common Object Model) programming Interfaces. Like ODBC, ADSI provides common access to directories by adding a provider for each directory protocol type.
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
On this site, you can find many ADSI samples.
The Organizational Unit ADSI class can be used in ActiveXperts Network Monitor to monitor your servers.
Organizational Unit
Example(s)
strContainer = "" strName = "EzAdOrganizationalUnit" Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4 '*********************************************** '* Connect to an object * '*********************************************** Set objRootDSE = GetObject("LDAP://rootDSE") If strContainer = "" Then arrNameExceptions = Array("Users","Computers","Builtin","System", _ "ForeignSecurityPrincipals","LostAndFound") For Each name in arrNameExceptions If lcase(strName) = lcase(name) Then strNameAttrib = "cn=" Exit For Else strNameAttrib = "ou=" End If Next Set objItem = GetObject("LDAP://" & strNameAttrib & strName & "," & _ objRootDSE.Get("defaultNamingContext")) Else Set objItem = GetObject("LDAP://ou=" & strName & "," & strContainer & "," & _ objRootDSE.Get("defaultNamingContext")) End If '*********************************************** '* End connect to an object * '*********************************************** WScript.Echo VbCrLf & "** General Properties Page**" WScript.Echo "** (Writing Single-Valued Attributes) **" objItem.Put "description", "VALUE" objItem.SetInfo objItem.Put "street", "VALUE" objItem.SetInfo objItem.Put "postOfficeBox", "VALUE" objItem.SetInfo objItem.Put "l", "VALUE" objItem.SetInfo objItem.Put "st", "VALUE" objItem.SetInfo objItem.Put "postalCode", "VALUE" objItem.SetInfo WScript.Echo VbCrLf & "**Non-standard value on Address Properties Page**" 'See Script Notes for information on setting this value. objItem.Put "c", "COUNTRY CODE VALUE" objItem.SetInfo WScript.Echo VbCrLf & "**Non-standard value on Managed By Properties Page**" 'See Script Notes for information on setting this value. objItem.Put "managedBy", "DISTINGUISHED NAME VALUE" objItem.SetInfo objItem.SetInfo