Листинг 4

? Sync ——————————————————————————————————
If boolSyncNC Then
   Set objWMIInstances = objWMIServices.ExecQuery («Select * From MSAD_ReplNeighbor « & _
                                                   «Where NamingContextDN=?» & _
                                                   strSyncNC & «?«)
 ...:
   If objWMIInstances.Count = 1 Then
      For Each objWMIInstance In objWMIInstances
          objWMIInstance.SyncNamingContext cSyncNCOptions
      Next
      WScript.Echo «Naming Context ?« & strSyncNC & «? synchronization requested.» & vbCRLF
   Else
      WScript.Echo «No corresponding context to synchronize.» & vbCRLF
   End If
End If
WScript.Echo «Completed.»