What is a resource mailbox?

·     A resource mailbox is a mailbox that represents conference rooms and company equipment. Resource mailboxes can be included as resources in meeting requests, providing a simple and efficient way to manage the scheduling of resources for your organization.  There are two types of resource mailboxes in Microsoft Exchange Server 2007: room and equipment. Room mailboxes are assigned to a meeting location such as a conference room, auditorium, or training room. Equipment mailboxes are assigned to a resource that is not location specific, such as a portable computer projector, microphone, or company car.

·     Custom resource properties are features for room or equipment mailboxes. Administrators can indicate that a resource has a specific feature by assigning the corresponding custom resource property to that resource mailbox.

·     See http://technet.microsoft.com/en-us/library/aa996338.aspx  

      For a video demonstration of the exchange rebasing tool please visit  http://msexchangeteam.com/archive/2007/02/21/435543.aspx#435553


Script to determine the resource mailboxes in the enterprise: It is attached. please confirm any issues or anything we can assist with.   

What does the script (Legdndump) do?

The script interrogates the property named msexchuseraccountcontrol.  The value in case of resource mailboxes is 2; for normal mailboxes, the value is 0.  It provides the legdn of the resource mailboxes. Then use the legDn in the input file for rebasing.




Const Writable       = 2


Set objFSO           = CreateObject("Scripting.FileSystemObject")

Set objLog           = objFSO.OpenTextFile("c:\legdn.txt", Writable, True)

Set cn               = CreateObject("ADODB.Connection")

Set cm               = CreateObject("ADODB.Command")

Set rs               = CreateObject("ADODB.RecordSet")



With cn

       .Provider     = "ADsDSOObject"

       .Open "Active Directory Provider"

End With


Set cm.ActiveConnection = cn


strDomainDN          = InputBox("Please Enter the Servername and Domain DN. " & vbCrLf & " Example: Myserver/DC=test,DC=lab ")

cm.CommandText = "<LDAP://" & strDomainDN & ">;(&(mailNickName=*)(msExchUserAccountControl=2));legacyExchangeDN;subtree"

cm.Properties("Page Size") = 1000

Set rs               = cm.Execute


While Not rs.EOF

       On Error Resume Next

       objLog.Write rs.Fields("legacyExchangeDN")





msgbox "Export Complete to c:\legdn.txt"