'==========================================================================
'
'
' NAME: <ExchangePublicFolders.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 10/28/2003
'
' COMMENT: <Use of the Exchange_PublicFolder class>
'
'==========================================================================

Option Explicit 
On Error Resume Next
dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem

strComputer = "."
wmiNS = "\root\MicrosoftExchangeV2"
wmiQuery = "Select * from Exchange_PublicFolder"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
    WScript.Echo "AddressBookName: " & objItem.AddressBookName
    WScript.Echo "AdministrativeNote: " & objItem.AdministrativeNote
    WScript.Echo "AdminSecurityDescriptor: " & objItem.AdminSecurityDescriptor
    WScript.Echo "ADProxyPath: " & objItem.ADProxyPath
    WScript.Echo "AssociatedMessageCount: " & objItem.AssociatedMessageCount
    WScript.Echo "AttachmentCount: " & objItem.AttachmentCount
    WScript.Echo "Caption: " & objItem.Caption
    WScript.Echo "CategorizationCount: " & objItem.CategorizationCount
    WScript.Echo "Comment: " & objItem.Comment
    WScript.Echo "ContactCount: " & objItem.ContactCount
    WScript.Echo "ContainsRules: " & objItem.ContainsRules
    WScript.Echo "CreationTime: " & objItem.CreationTime
    WScript.Echo "DeletedItemLifetime: " & objItem.DeletedItemLifetime
    WScript.Echo "Description: " & objItem.Description
    WScript.Echo "FolderTree: " & objItem.FolderTree
    WScript.Echo "FriendlyUrl: " & objItem.FriendlyUrl
    WScript.Echo "HasChildren: " & objItem.HasChildren
    WScript.Echo "HasLocalReplica: " & objItem.HasLocalReplica
    WScript.Echo "InstallDate: " & objItem.InstallDate
    WScript.Echo "IsMailEnabled: " & objItem.IsMailEnabled
    WScript.Echo "IsNormalFolder: " & objItem.IsNormalFolder
    WScript.Echo "IsPerUserReadDisabled: " & objItem.IsPerUserReadDisabled
    WScript.Echo "IsSearchFolder: " & objItem.IsSearchFolder
    WScript.Echo "IsSecureInSite: " & objItem.IsSecureInSite
    WScript.Echo "LastAccessTime: " & objItem.LastAccessTime
    WScript.Echo "LastModificationTime: " & objItem.LastModificationTime
    WScript.Echo "MaximumItemSize: " & objItem.MaximumItemSize
    WScript.Echo "MessageCount: " & objItem.MessageCount
    WScript.Echo "MessageWithAttachmentsCount: " & objItem.MessageWithAttachmentsCount
    WScript.Echo "Name: " & objItem.Name
    WScript.Echo "NormalMessageSize: " & objItem.NormalMessageSize
    WScript.Echo "OwnerCount: " & objItem.OwnerCount
    WScript.Echo "ParentFriendlyUrl: " & objItem.ParentFriendlyUrl
    WScript.Echo "Path: " & objItem.Path
    WScript.Echo "ProhibitPostLimit: " & objItem.ProhibitPostLimit
    WScript.Echo "PublishInAddressBook: " & objItem.PublishInAddressBook
    WScript.Echo "RecipientCountOnAssociatedMessages: " & objItem.RecipientCountOnAssociatedMessages
    WScript.Echo "RecipientCountOnNormalMessages: " & objItem.RecipientCountOnNormalMessages
    WScript.Echo "ReplicaAgeLimit: " & objItem.ReplicaAgeLimit
    WScript.Echo "ReplicaList: " & objItem.ReplicaList
    WScript.Echo "ReplicationMessagePriority: " & objItem.ReplicationMessagePriority
    WScript.Echo "ReplicationSchedule: " & objItem.ReplicationSchedule
    WScript.Echo "ReplicationStyle: " & objItem.ReplicationStyle
    WScript.Echo "RestrictionCount: " & objItem.RestrictionCount
    WScript.Echo "SecurityDescriptor: " & objItem.SecurityDescriptor
    WScript.Echo "Status: " & objItem.Status
    WScript.Echo "StorageLimitStyle: " & objItem.StorageLimitStyle
    WScript.Echo "TargetAddress: " & objItem.TargetAddress
    WScript.Echo "TotalMessageSize: " & objItem.TotalMessageSize
    WScript.Echo "Url: " & objItem.Url
    WScript.Echo "UsePublicStoreAgeLimits: " & objItem.UsePublicStoreAgeLimits
    WScript.Echo "UsePublicStoreDeletedItemLifetime: " & objItem.UsePublicStoreDeletedItemLifetime
    WScript.Echo "WarningLimit: " & objItem.WarningLimit
WScript.Echo "-=-"
Next