Modify a Contact 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 Contact ADSI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

Contact

Example(s)

strContainer = ""
strName = "EzAdContact"

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
  Set objItem = GetObject("LDAP://" & _
    objRootDSE.Get("defaultNamingContext"))
Else
  Set objItem = GetObject("LDAP://cn=" & 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 "givenName", "VALUE"
objItem.SetInfo
objItem.Put "initials", "VALUE"
objItem.SetInfo
objItem.Put "sn", "VALUE"
objItem.SetInfo
objItem.Put "displayName", "VALUE"
objItem.SetInfo
objItem.Put "description", "VALUE"
objItem.SetInfo
objItem.Put "physicalDeliveryOfficeName", "VALUE"
objItem.SetInfo
objItem.Put "telephoneNumber", "VALUE"
objItem.SetInfo
objItem.Put "mail", "VALUE"
objItem.SetInfo
objItem.Put "wWWHomePage", "VALUE"
objItem.SetInfo

WScript.Echo VbCrLf & "** General Properties Page**"
WScript.Echo "** (Writing MultiValued Attributes) **"
objItem.PutEx ADS_PROPERTY_UPDATE, "otherTelephone", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo
objItem.PutEx ADS_PROPERTY_UPDATE, "url", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo

WScript.Echo VbCrLf & "** Address Properties Page**"
WScript.Echo "** (Writing Single-Valued Attributes) **"
objItem.Put "streetAddress", "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 & "** Address Properties Page**"
WScript.Echo "** (Writing MultiValued Attributes) **"
objItem.PutEx ADS_PROPERTY_UPDATE, "postOfficeBox", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo

WScript.Echo VbCrLf & "** Telephone Properties Page**"
WScript.Echo "** (Writing Single-Valued Attributes) **"
objItem.Put "homePhone", "VALUE"
objItem.SetInfo
objItem.Put "pager", "VALUE"
objItem.SetInfo
objItem.Put "mobile", "VALUE"
objItem.SetInfo
objItem.Put "facsimileTelephoneNumber", "VALUE"
objItem.SetInfo
objItem.Put "ipPhone", "VALUE"
objItem.SetInfo
objItem.Put "info", "VALUE"
objItem.SetInfo

WScript.Echo VbCrLf & "** Telephone Properties Page**"
WScript.Echo "** (Writing MultiValued Attributes) **"
objItem.PutEx ADS_PROPERTY_UPDATE, "otherHomePhone", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo
objItem.PutEx ADS_PROPERTY_UPDATE, "otherPager", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo
objItem.PutEx ADS_PROPERTY_UPDATE, "otherMobile", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo
objItem.PutEx ADS_PROPERTY_UPDATE, "otherFacsimileTelephoneNumber", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo
objItem.PutEx ADS_PROPERTY_UPDATE, "otherIpPhone", _
  Array("VALUE1", "VALUE2", "...VALUEn")
objItem.SetInfo

WScript.Echo VbCrLf & "** Organization Properties Page**"
WScript.Echo "** (Writing Single-Valued Attributes) **"
objItem.Put "title", "VALUE"
objItem.SetInfo
objItem.Put "department", "VALUE"
objItem.SetInfo
objItem.Put "company", "VALUE"
objItem.SetInfo

WScript.Echo VbCrLf & "**Non-standard value on Organization Properties Page**"
'See Script Notes for information on setting this value.
objItem.Put "manager", "DISTINGUISHED NAME VALUE"
objItem.SetInfo

objItem.SetInfo