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 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.


 


Script 


 


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”)


       rs.MoveNext


Wend


 


objLog.Close


msgbox “Export Complete to c:\legdn.txt”


 

Comments (0)