Reconnect Disconnected Mailbox Server for Exchange 2010- VBScript

Question

Hello everyone. I am trying to run a program where a user can reconnect a disconnected mailbox through 2010 Exchange Servers. 
This is an example of the method that I need except this is for 2003 servers but I am looking for 2010. If you can, please help me out. 
VBScript Example
'===============================================================
' Purpose:   Reconnect a Diconnected Exchange_Mailbox
'            to another user object
' Change: cComputerName [string] the computer to access
' Change: cDisconnectedMbox [string] the disconnected mailbox name
' Change: cConnectTo [string] the user account to connect the mailbox to
'===============================================================
On Error Resume Next
Dim cComputerName
Dim cDisconnectedMbox
Dim cConnectTo
Dim objWMIService
Dim oDisMbox
Dim mBox
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_Mailbox"
cComputerName = "MyComputerNETBIOSName"
cDisconnectedMbox = "TestUserA"
cConnectTo = "TestUserB"
strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
cComputerName&"/"&cWMINameSpace
Set objWMIService = GetObject(strWinMgmts)
Set oDisMbox = objWMIService.ExecQuery("Select * from Exchange_Mailbox WHERE MailboxDisplayName = '" & cDisconnectedMbox & "'",,48)
For each mBox in oDisMbox
    mBox.Reconnect cConnectTo
    Wscript.Echo "Mailbox Reconnected"
Next

Answer 1

On Exchange 2010 you need to use the Exchange Management Shell so you need to use the connect-mailbox cmdlet see
http://technet.microsoft.com/en-us/library/bb123490(v=exchg.141).aspx
If your trying to do this from managed code then you can run that cmdlet from managed code see
http://msdn.microsoft.com/en-us/library/bb332449(v=exchg.80).aspx and
http://blogs.technet.com/b/exchange/archive/2009/11/02/3408653.aspx
Cheers
Glen