Provides access to a running count of bind operations performed.
ActiveDirectory.BindCount
Read only.
Long.
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.