MoveMTAData Method
Exchange Server 2003
The MoveMTAData method moves the MTA message queue files to a new directory. This does not move other MTA support files, only the queues.
Applies To
The MoveMTAData method is a member of the Exchange_Server Class.
Instance Path
The MoveMTAData method appears on instances of the \\COMPUTERNAME\ROOT\MicrosoftExchangeV2:Exchange_Server class.
MOF Syntax
[implemented] void MoveMTAData( [IN] string MTADataPath, [IN, OPTIONAL] boolean StopOnError = TRUE);
Qualifiers
implemented
Parameters
| Parameter | Description |
|---|---|
| MTADataPath | MTADataPath is a string (CIMTYPE=8) input parameter. |
| StopOnError | StopOnError is a boolean value (boolean, CIMTYPE=11) optional input parameter. |
VBScript Example
'===============================================================
' Purpose: Change the MTADataPath for the Exchange server,
' and show the MTADataPath property on the Exchange_Server
' objects
' Change: cComputerName [string] the computer to access
' Output: Displays the name of each Exchange_Server's MTADataPath property
'===============================================================
On Error Resume Next
Dim cComputerName
Dim strMTADataPath
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_Server"
cComputerName = "MyComputerNETBIOSName"
Dim strWinMgmts ' Connection string for WMI
Dim objWMIExchange ' Exchange Namespace WMI object
Dim listExchange_Servers ' ExchangeLogons collection
Dim objExchange_Server ' A single ExchangeLogon WMI object
' Create the object string, indicating WMI (winmgmts), using the
' current user credentials (impersonationLevel=impersonate),
' on the computer specified in the constant cComputerName, and
' using the CIM namespace for the Exchange provider.
strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
cComputerName&"/"&cWMINameSpace
Set objWMIExchange = GetObject(strWinMgmts)
' Verify we were able to correctly set the object.
If Err.Number <> 0 Then
WScript.Echo "ERROR: Unable to connect to the WMI namespace."
Else
'
' The Resources that currently exist appear as a list of
' Exchange_Server instances in the Exchange namespace.
Set listExchange_Servers = objWMIExchange.InstancesOf(cWMIInstance)
'
' Were any Exchange_Server Instances returned?
If (listExchange_Servers.count > 0) Then
' If yes, do the following:
' Iterate through the list of Exchange_Server objects.
For Each objExchange_Server in listExchange_Servers
Wscript.Echo ""
'
' Display the value of the MTADataPath property.
WScript.echo "MTADataPath = "& _
" ["&TypeName(objExchange_Server.MTADataPath)&"] "& _
objExchange_Server.MTADataPath
strMTADataPath = objExchange_Server.MTADataPath
'
objExchange_Server.MoveMTAData "C:\Program Files\Exchsrvr\MTAData"
Wscript.Echo"MTADataPath moved."
objExchange_Server.MoveMTAData strMTADataPath
Wscript.Echo"MTADataPath returned."
'
Wscript.Echo "MTADataPath changed"
Next
Else
' If no Exchange_Server instances were returned,
' display that.
WScript.Echo "WARNING: No Exchange_Server instances were returned."
End If
End If
