Листинг 1

? ReplPendingOp —————————————————————————————
If boolReplPendingOp Then
   Set objWMIInstances = objWMIServices.InstancesOf _
     («MSAD_ReplPendingOp»)
   If Err.Number Then ErrorHandler (Err)
   If objWMIInstances.Count Then
      WScript.Echo «- « & objWMIInstance.NamingContextDN & _
        « « & String (60, «-»)
      For Each objWMIInstance In objWMIInstances
          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
End If