BindCount Property

Provides access to a running count of bind operations performed.

Syntax

ActiveDirectory.BindCount

Access

Read only.

Return Type

Long.

Example

To determine the number of bind operations performed, enter:

Dim objActiveDirectory
Dim lngBindTotal, lngBindCount, lngAverageBindTime

Set objActiveDirectory = CreateObject("McActiveDir.ActiveDirectory")

objActiveDirectory.Domain = "missioncritical.com"

If objActiveDirectory.BindPDCMaster Then
lngBindTotal = objActiveDirectory.BindTotal
lngBindCount = objActiveDirectory.BindCount
If lngBindCount > 0 Then
lngAverageBindTime = lngBindTotal / lngBindCount
End If
End If

Set objActiveDirectory = Nothing

This example performs a bind operation and determines the average bind time to Active Directory.