'==========================================================================
'
'
' NAME: <ExchangeFolderTree.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 10/28/2003
'
' COMMENT: <Use of Exchange_FolderTree>
'
'==========================================================================

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_FolderTree"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
     WScript.Echo "AdministrativeGroup: " & objItem.AdministrativeGroup
    WScript.Echo "AdministrativeNote: " & objItem.AdministrativeNote
    WScript.Echo "AssociatedPublicStores: " & objItem.AssociatedPublicStores
    WScript.Echo "Caption: " & objItem.Caption
    WScript.Echo "CreationTime: " & objItem.CreationTime
    WScript.Echo "Description: " & objItem.Description
    WScript.Echo "GUID: " & objItem.GUID
    WScript.Echo "HasLocalPublicStore: " & objItem.HasLocalPublicStore
    WScript.Echo "InstallDate: " & objItem.InstallDate
    WScript.Echo "LastModificationTime: " & objItem.LastModificationTime
    WScript.Echo "MapiFolderTree: " & objItem.MapiFolderTree
    WScript.Echo "Name: " & objItem.Name
    WScript.Echo "RootFolderURL: " & objItem.RootFolderURL
    WScript.Echo "Status: " & objItem.Status
WScript.Echo "-=-"

Next