One of the new WMI classes that comes with Exchange 2003 is the Exchange_PublicFolder Class. This is actually pretty useful when it comes to managing public folders via Code. For instance being able to propagate the folder settings to all of child subjfolers http://msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_wmiref_me_exchange_publicfolderpropagatesettings.asp . The other cool thing with this particular class is that a lot of the WMI properties are Read-Write. This means you can actually change setting and manipulate different aspect of public folders which you would usually need to use CDOEXM for. One of these is being able to mail-enable/disable a public folder. An example of mail-enabling a public folder via WMI would look like this. First you need to query the instances of public folders to find the folder you want to modify. I’ve used the Path property to search for the folder which is the normal path to the public folder but without the root suffix so if my public folder was http://server/public/myfolder my search string would need to be /myfolder/ (the end / is import). After that once you have made your modifications you need to call the Put_() method to commit the changes
The code looks like
On Error Resume Next
Dim cComputerName
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_PublicFolder"
cComputerName = "servername"
cPublicFolderPath = "/foldertomailenable/"
strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
cComputerName&"/"&cWMINameSpace
Set objWMIServices = GetObject(strWinMgmts)
Set objPubInstances = objWMIServices.ExecQuery ("Select * From
Exchange_PublicFolder Where Path='" & cPublicFolderPath & "'")
For Each objExchange_PublicFolder in objPubInstances
WScript.echo objExchange_PublicFolder.Path
WScript.echo objExchange_PublicFolder.IsMailEnabled
objExchange_PublicFolder.IsMailEnabled = true
objExchange_PublicFolder.Put_()
Next
The code looks like
On Error Resume Next
Dim cComputerName
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_PublicFolder"
cComputerName = "servername"
cPublicFolderPath = "/foldertomailenable/"
strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
cComputerName&"/"&cWMINameSpace
Set objWMIServices = GetObject(strWinMgmts)
Set objPubInstances = objWMIServices.ExecQuery ("Select * From
Exchange_PublicFolder Where Path='" & cPublicFolderPath & "'")
For Each objExchange_PublicFolder in objPubInstances
WScript.echo objExchange_PublicFolder.Path
WScript.echo objExchange_PublicFolder.IsMailEnabled
objExchange_PublicFolder.IsMailEnabled = true
objExchange_PublicFolder.Put_()
Next