What is an Exchange resource mailbox? How do I find them?

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 technet.microsoft.com/en-us/library/aa996338.aspx

      For a video demonstration of the exchange rebasing tool please visit <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"