First published on TECHNET on Mar 11, 2007
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"
