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