Export then Import to a different Hyper-V server

Question

In http://social.technet.microsoft.com/Forums/en-US/winserverhyperv/thread/85dc7d36-491f-4b02-88ac-63c1ed0d94db I described a problem when exporting from a Hyper-V server and trying to import into a different Hyper-V server in a different domain. The import failed and the event log contained:
Failed to import the virtual machine from import directory 'D:\HV\Test\Test4GB-3\'. Error: One or more arguments are invalid(0x80070057)Well I've now identified the source of the problem. In the .exp file is:
<INSTANCE
  CLASSNAME="Msvm_VirtualSystemGlobalSettingData">
  <PROPERTY NAME="ScopeOfResidence" TYPE="string">
    <VALUE>
      e7668fbc-216e-4ed1-8ce3-3b932b42e22b
    </VALUE>
  </PROPERTY>
If I edit the .exp file and delete the <value>..</value> then the virtual machine imports with no errors.
Looks like a Hyper-V bug to me!
JR

Answer 1

We are not planning to fix this for Windows 2008 at the moment - as SCVMM work around the problem when they move virtual machines (they remove the scope section just like you have done here).  But here is a handy VBScript that you can run on a Hyper-V server that will go through and nuke all the scopes (do not use this if you are still using SCVMM) so you can export and import happily (note that you need to run this before exporting):
Option Explicit  
Dim WMIService  
Dim VMList  
Dim VM  
Dim VMSystemGlobalSettingData  
Dim VMManagementService  
Dim Result  
'Get instance of 'virtualization' WMI service on the local computer  
Set WMIService = GetObject("winmgmts:\\.\root\virtualization")  
'Get a VMManagementService object  
Set VMManagementService = WMIService.ExecQuery("SELECT * FROM Msvm_VirtualSystemManagementService").ItemIndex(0)  
'Get all the MSVM_ComputerSystem object  
Set VMList = WMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem")  
For Each VM In VMList  
   if VM.Caption = "Virtual Machine" then  
       Set VMSystemGlobalSettingData = (VM.Associators_("MSVM_ElementSettingData", "Msvm_VirtualSystemGlobalSettingData")).ItemIndex(0)   
       VMSystemGlobalSettingData.ScopeOfResidence = "" 
       Result = VMManagementService.ModifyVirtualSystem(VM.Path_.Path, VMSystemGlobalSettingData.GetText_(1))  
    end if  
Next 
Cheers,
Benjamin Armstrong
============================
Windows Virtualization
Senior Lead Program Manager
This posting is provided AS IS with no warranties, and confers no rights. You assume all risk for your use.