委任設定が必要なLive Migration

Imports System.Management
   
Module GMOReport
  Sub Main()
      Dim strUser As String = ""
      Dim strPass As String = ""
      Dim objManagementScope As ManagementScope = ConnectManagementScope("win2012.local", strUser, strPass)
      objManagementScope.Connect()

      Dim strVMName As String = "VM001"
      Call MigratVM(objManagementScope, strVMName,  "Dist_WinSvr2012R2", "D:\Hyper-V\VM01")
  End Sub

  Function ConnectManagementScope(ByVal strServer As String, ByVal strAccount As String, ByVal strPassword As String) As ManagementScope
      Dim objConnectionOptions As New ConnectionOptions()
      objConnectionOptions.Impersonation = ImpersonationLevel.Impersonate 'WMI への接続に使用される偽装レベルを設定
      objConnectionOptions.EnablePrivileges = True 'WNI経由の操作のためにユーザー特権を有効にする
      objConnectionOptions.Username = strAccount
      objConnectionOptions.Password = strPassword
      Dim objManagementScope As New ManagementScope("\\" + strServer + "\root\virtualization\v2", objConnectionOptions)
      objManagementScope.Connect()
      Return (objManagementScope)
  End Function

  Function MigratVM(ByVal objManagementScope As ManagementScope, strVMName As String, strDestinationHost As String, ByVal strRootPath As String) As Boolean

      Dim objComputerSystem As ManagementObject = Nothing
      For Each objManagementObject As ManagementObject In New ManagementObjectSearcher(objManagementScope, New ObjectQuery( "SELECT * FROM Msvm_ComputerSystem WHERE ElementName = '" & strVMName & "'" )).Get
        objComputerSystem = objManagementObject 
      Next
  
      Dim objVirtualSystemsettingData As ManagementObject = Nothing
      For Each objManagementObject As ManagementObject In objComputerSystem.GetRelated("Msvm_VirtualSystemSettingData")
          If String .Compare(objManagementObject( "ElementName").ToString, strVMName, True  ) = 0 Then
              objVirtualSystemsettingData = objManagementObject 
            If Not strRootPath = ""  Then
                objVirtualSystemsettingData("ConfigurationDataRoot") = strRootPath 
                objVirtualSystemsettingData("SnapshotDataRoot") = strRootPath 
                objVirtualSystemsettingData("SwapFileDataRoot") = strRootPath 
            End If 
          End If
      Next
   
      Dim objVirtualSystemMigrationSettingData As New ManagementClass(objManagementScope, New ManagementPath("Msvm_VirtualSystemMigrationSettingData"), Nothing)
      Dim objVirtualSystemMigrationSettingDataInstance As ManagementObject = objEthernetPortAllocationSettingData.CreateInstance
      objVirtualSystemMigrationSettingDataInstance("MigrationType") = 32771 'VirtualSystem:32768 Storage:32769 Staged:32770 VirtualSystemAndStorage:32771
      objVirtualSystemMigrationSettingDataInstance("TransportType") = 5 'TransportType.Tcp
      objVirtualSystemMigrationSettingDataInstance("EnableCompression") = True
  
      Dim i As Integer = 0 
      Dim objHardDisk As ManagementObject = Nothing
      Dim strStorageAllocationSettingData() As String
      For Each objManagementObject As ManagementObject = In objVirtualSystemsettingData.GetRelated("Msvm_StorageAllocationSettingData")
          If objManagementObject("ResourceSubType") = "Microsoft:Hyper-V:Virtual Hard Disk" Then
              objHardDisk = objManagementObject
              If Not strRootPath = "" Then
                  Dim strVhdPath As String = objHardDisk("HostResource")(0)
                  objHardDisk("HostResource") = New String() {strRootPath & "\" & System.IO.Path.GetFileName(strVhdPath)}
              End If
              ReDim Preserve strStorageAllocationSettingData(i)
              strStorageAllocationSettingData(i) = objHardDisk.GetText(TextFormat.CimDtd20)
              i += 1
          End If
      Next

      For Each objVirtualSystemManagementService As ManagementObject In New ManagementObjectSearcher(objManagementScope, New ObjectQuery("SELECT * FROM Msvm_VirtualSystemMigrationService")).Get
          Dim objParams As ManagementBaseObject = objVirtualSystemManagementService.GetMethodParameters("MigrateVirtualSystemToHost")
          objParams("ComputerSystem") = objComputerSystem.Path.Path
          objParams("DestinationHost") = strDestinationHost
          objParams("MigrationSettingData") = objVirtualSystemMigrationSettingDataInstance.GetText(TextFormat.CimDtd20)
          objParams("NewSystemSettingData") = objVirtualSystemsettingData.GetText(TextFormat.CimDtd20)
          objParams("NewResourceSettingData") = strStorageAllocationSettingData
          Dim objManagementBaseObject As ManagementBaseObject = objVirtualSystemManagementService.InvokeMethod("MigrateVirtualSystemToHost", objParams, Nothing)
          Return JobComplete(objManagementBaseObject, objManagementScope)
      Next
  End Function

  Function JobComplete(ByVal objManagementBaseObject As ManagementBaseObject, ByVal objManagementScope As ManagementScope) As Boolean
      'JobState New = 2  Starting = 3  Running = 4  Suspended = 5  ShuttingDown = 6  Completed = 7  Terminated = 8  Killed = 9  Exception = 10  Service = 11
      If objManagementBaseObject("ReturnValue") <> 0 Then
          Dim strJobPath As String= objManagementBaseObject("Job")
          Dim objJob As New ManagementObject(objManagementScope, New ManagementPath(strJobPath), Nothing)
          objJob.Get())
          Do While objJob("JobState") = 3 Or objJob("JobState") = 4
              System.Threading.Thread.Sleep(1000)
              objJob.Get()
          Loop
          If objJob("JobState") <> 7 Then
              Console.WriteLine("ErrorCode="& objJob("ErrorCode") & " JobState=" & objJob("JobState"))
              Return False
          Else
              Return True
          End If
      Else
          Return True
      End If
   End Function
End Module

Move-VM -Name "VM001" -DestinationHost "Dist_WinSvr2012R2" -IncludeStorage -DestinationStoragePath "D:\Hyper-V\VM001"