XADM: °ø¿ë Æú´õ¸¦ À̵¿ÇÒ ¼ö ¾ø´Ù

#######################################################################
#######################################################################

Option Explicit

'
' Loop through all public folders to check the PR_INTERNET_NEWSGROUP_NAME
'	property and to change the PR_IS_NEWSGROUP_ANCHOR property.
'

Dim tblFolderPath(20000) ' As String
Dim tblFolderID(20000) ' As String
Dim tblAnchorFolderPath(100) ' As String

Dim iNewsNameFolder ' As Integer
Dim iNewsAnchorFolder ' As Integer

Dim iNextFolder, iLastFolder ' As Integer     ' Next folder to process, last folder is filled in the array.
Dim iLastAnchorFolder 'As Integer
Dim oSession ' As MAPI.Session

GetAllFolder


Sub GetAllFolder()

    Dim oInfoStores ' As InfoStores
    Dim oInfoStore ' As InfoStore
    Dim oFolder ' As MAPI.Folder
    Dim bFound ' As Boolean
    Dim i,j ' As Integer
        
    '   Get first folder.
    
    wscript.echo "Before creating MAPI Session"
    Set oSession = wscript.CreateObject("MAPI.Session")  ' New MAPI.Session
    wscript.echo "Before Logging On"
    oSession.Logon 
    
    Set oInfoStores = oSession.InfoStores
    bFound = False
    wscript.echo " "
    wscript.echo "Looking for infostores..."
    For i = 1 To oInfoStores.Count
        wscript.echo "   infostore(" & i & ") " & oInfoStores.Item(i).ProviderName & ":" & oInfoStores.Item(i).Name
        If InStr(oInfoStores.Item(i).ProviderName, "Microsoft Exchange") > 0 Then
            If InStr(oInfoStores.Item(i).Name, "Public Folders") > 0 Then
                Set oInfoStore = oInfoStores.Item(i)
                bFound = True
            End If
        End If
    Next
    
    If Not bFound Then
        wscript.echo "ERROR: Did not find InfoStore Microsoft Exchange Server for a Public Folder Tree"
        exit sub
    Else
        wscript.echo "selected infostore " & oInfoStore.ProviderName & ":" & oInfoStore.Name
    End If
    wscript.echo " "
    
    tblFolderID(1) = oInfoStore.RootFolder.ID
    tblFolderPath(1) = ""
    
    iNextFolder = 1
    iLastFolder = 1
    iLastAnchorFolder = 0 
    iNewsNameFolder = 0
    iNewsAnchorFolder = 0

    
    While iNextFolder <= iLastFolder
        ProcessFolder (iNextFolder)
        iNextFolder = iNextFolder + 1
    Wend

    '   Summary
    
    wscript.echo " "
    wscript.echo "----------------------------------------------------------"
    wscript.echo "went through " & iLastFolder & " folders"
    wscript.echo "Number of folders with PR_INTERNET_NEWSGROUP_NAME set : " & iNewsNameFolder & " folders "
    wscript.echo "Number of folders with PR_IS_NEWSGROUP_ANCHOR set : " & iNewsAnchorFolder & " folders "
    wscript.echo "----------------------------------------------------------"
    wscript.echo " "
    wscript.echo "Folders with PR_IS_NEWSGROUP_ANCHOR set : " 
    wscript.echo " "
    
    For j=0 To iLastAnchorFolder 
	wscript.echo "  " & tblAnchorFolderPath(j)
    Next

    wscript.echo "----------------------------------------------------------"
    wscript.echo " "
    
End Sub

'
'   Fill in folder name.
'   Verify if there are subfolders, and then add them to the array.
'
Sub ProcessFolder(i)

    Dim oFolder ' As MAPI.Folder
    Dim SubFolders ' As MAPI.Folders
    Dim j ' As Integer
    Dim strParentPath ' As String
    Dim strNewsName ' As String
    Dim strNewsAnchor ' As String
    
    Set oFolder = oSession.GetFolder(tblFolderID(i))
    
    '   Adding Child folders.
    
    strParentPath = tblFolderPath(i)
        
    Set SubFolders = oFolder.Folders
    For j = 1 To SubFolders.Count
        iLastFolder = iLastFolder + 1
        tblFolderID(iLastFolder) = SubFolders.Item(j).ID
        tblFolderPath(iLastFolder) = strParentPath & "\" & SubFolders.Item(j).Name
        wscript.echo i & ": adding subfolder " & SubFolders.Item(j).Name & " as " & iLastFolder
    Next

    Set SubFolders = Nothing
    
    '   Dealing with PR_INTERNET_NEWSGROUP_NAME and PR_IS_NEWSGROUP_ANCHOR properties.
       
    On Error Resume Next
    strNewsName = ""
    strNewsAnchor = ""
    strNewsName = oFolder.Fields.Item(1722220574).Value
    strNewsAnchor = oFolder.Fields.Item(1721106443).Value
                                            
    On Error GoTo 0
    
    If Len(strNewsName) > 0 Then
        wscript.echo i & ": " & tblFolderPath(i) & " has PR_INTERNET_NEWSGROUP_NAME =" & strNewsName
	iNewsNameFolder = iNewsNameFolder + 1

    Else
        wscript.echo i & ": " & tblFolderPath(i) & " PR_INTERNET_NEWSGROUP_NAME is not set"
    End If

    If Len(strNewsAnchor) > 0 Then
	iLastAnchorFolder = iLastAnchorFolder + 1
	tblAnchorFolderPath(iLastAnchorFolder) = tblFolderPath(i)
        iNewsAnchorFolder = iNewsAnchorFolder + 1

    End If
    
    Set oFolder = Nothing
    
End Sub

#######################################################################
#######################################################################