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.
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")
.Provider = "ADsDSOObject"
.Open "Active Directory Provider"
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
msgbox "Export Complete to c:\legdn.txt"