Листинг 2

? ReplNeighbor ——————————————————————————————
If boolReplNeighbor Then
   If Len (strReplNeighbor) Then
      Set objWMIInstances = objWMIServices.ExecQuery(«Select *» & _
                                                    «From MSAD_ReplNeighbor « & _
                                                    «Where NamingContextDN=?» & _
                                                    strReplNeighbor & «?«)
      If Err.Number Then ErrorHandler (Err)
      If objWMIInstances.Count = 1 Then
         For Each objWMIInstance In objWMIInstances
             WScript.Echo «- « & objWMIInstance.NamingContextDN & _
                  « « & String (60, «-»)
             Set objWMIPropertySet = objWMIInstance.Properties_
             For Each objWMIProperty In objWMIPropertySet
                 DisplayFormattedProperty objWMIInstance, _
                        objWMIProperty.Name, _
                        objWMIProperty.Name, _
                        Null
             Next
             Set objWMIPropertySet = Nothing
             WScript.Echo
         Next
      Else
         WScript.Echo «No information available.» & vbCRLF
      End If
   Else
      Set objWMIInstances = objWMIServices.InstancesOf
         («MSAD_ReplNeighbor»)
      If Err.Number Then ErrorHandler (Err)
      If objWMIInstances.Count Then
         WScript.Echo «INBOUND REPLICATION STATE»  &
             String (188, «=») & vbCRLF
         WScript.Echo «                                    Naming Context» & _
                      «           Source DSA            Site SyncProg»  & _
                      « SyncNext IsDeleted LastSync ModSyncFailures
                           SyncFailure» & _
                      «       TimeOfLastSync    TimeOfLastSuccess» & _
                      «  USNAttr USNObject»
         WScript.Echo String (213, «-»)
         For Each objWMIInstance In objWMIInstances
                ? Display the instances in column form.
         Next
         WScript.Echo
      Else
          WScript.Echo «No information available.» & vbCRLF
      End If
   End If
End If