' This script was originally published in the Exchange Cookbook,         
' (http://www.exchangebookcook.com). Written by Paul Robichaux,          
' Missy Koslosky, and Devin Ganger. Redistributed with permission        
' of the publisher, O'Reilly & Associates.

' This code finds all replicas on a server.               

' ------ SCRIPT CONFIGURATION ------                      
strComputerName = "<serverName>" ' e.g., "cyclone"        
' ------ END CONFIGURATION ---------                      

strE2K3WMIQuery = "winmgmts://" & strComputerName &_      
  "/root/MicrosoftExchangeV2"                               

' Get all the public folders in the MAPI TLH.             
' For each folder, check to see if it has a local replica.
Set folderList = GetObject(strE2K3WMIQuery).InstancesOf( _
  "Exchange_PublicFolder")                                  
WScript.Echo "Folders on server " & strComputerName       
folderCount = 0                                           
For each Exchange_PublicFolder in folderList              
  if (true = Exchange_PublicFolder.HasLocalReplica) then    
    WScript.Echo " + " & Exchange_PublicFolder.Name           
    folderCount = folderCount + 1                             
  end if                                                    
Next                                                      
WScript.Echo " " & folderCount & " folders total."