Как проимпортировать неимпортируемое

Проблема, идея, и решение

Здравствуйте, дорогие мои детишечки. Спешу сообщить вам, что в мою голову пришла еще одна идея, которая вылилась вот в эту заметку. Идея, собственно говоря, пришла из проблемы, которую подкинула горячо мной любимая и уважаемая компания Microsoft и их новый продукт Windows Server 2012 R2. И тут я нисколько не иронизирую, мне они действительно нравятся. Но начнем по порядку.
Прежде всего отмечу, что я, кроме всего прочего еще и тренер по всякого рода продуктам Microsoft, и соответственно имею доступ к определенным плюшкам в виде готовых виртуальных машин для подготовки к курсам, в рамках учебного центра. И вот, собственно, решил я попробовать погонять новый сервер, ну и, как водится, развернуть на нем виртуалочки от одного курса. Выкачал эти машины, все подготовил, распаковал. И тут меня поджидало ужасное. Они категорически отказывались импортироваться.

В общем, оказалось, что машины экспортированы на Windows Server 2008 и в Windows 2012 R2 импортироваться не будут. Не поддерживается это по определенным техническим причинам.
Что же делать, как они могли, спросите вы, и будете правы. В моем случае у меня не было под рукой Windows Server 2008 и я стал искать альтернативный вариант. В общем и целом он прост. В одном из подкаталогов экспортированной машины нашелся файл с именем вида {GUID}.exp. Он представляет собой конфигурацию экспортированной виртуальной машины. Именно из-за него она не импортируется, и мы это собираемся изменить. Я решил просто взять нужные мне настройки из этого файла, привести их к подходящему виду и просто создать новые виртуальные машины с теми же настройками, что и исходные. Чтобы долго не заморачиваться, я решил выбрать из файла имя машины, пути к файлам VHD, конфигурацию памяти и имя виртуальной сети, к которой эти машинки должны подключаться. Но не делать же это руками, верно. Тем более если открыть этот файл и посмотреть на его содержимое, то волосы на голове встают дыбом и пропадает желание искать что-то в нем вручную. А если их больше одного. В общем решено, пишем скрипт

Скрипт

На чем пишем? Конечно, на старом добром powershell 4, который поставляется в комплекте с новым сервером и WIndows 8.1. С чего начнем? А начнем сразу в лоб, а как же иначе. Открываем файл, благо есть тип [xml] который упрощает ковыряние во внутренностях и дебрях экспортированной конфигурации. Вкратце, файлик этот содержит кучу WMI классов со значениями свойств. Содержимое этих классов выгружено в XML и записано в файл. Поскольку я не сильно знаком с этими WMI классами, та и с XLM тоже, пришлось помучаться, добывая эти параметры в лоб. Вот что вышло:

cls $tmp = dir "C:\Program Files\Microsoft Learning\20413\*\*.exp" -Recurse  $tmp | % {     # read file     [xml]$vm = gc $_.fullname      # parsing of the various of different internal XML structures using "properties" notation     # CLASSNAME Msvm_VirtualSystemGlobalSettingData     $disks = ($vm.DECLARATIONS.DECLGROUP.'VALUE.OBJECT'.instance | where classname -like "*resource*") |                      where {$_.property | where name -like "*units*" |                      where value -eq "disks"}          $newVM = @{}     # CLASSNAME Msvm_VirtualSystemGlobalSettingData     $newVM.Global = $vm.DECLARATIONS.DECLGROUP.'VALUE.OBJECT'.instance |                                  where classname -like "*Msvm_VirtualSystemGlobalSettingData*" |                                  select -ExpandProperty property |                                   # below passage is most exciting                                 % {$obj=@{}} {$obj["$($_.name)"]=$_.value} {new-object psobject -prop $obj}          # disks configuration contains some internal nodes, extractiong them to get the paths to VHDs     $newVM.Disks = $disks | % { $prop = @{}; $disk = $_; $disk | select -ExpandProperty property | 	                        %  {$obj=@{}} {$obj["$($_.name)"]=$_.value};  		                  $obj."Path" = ($disk | select -expand property.array)."value.array".value;  		                  New-object psobject -prop $obj}     # CLASSNAME Msvm_MemorySettingData     $newVM.Memory = $vm.DECLARATIONS.DECLGROUP.'VALUE.OBJECT'.instance |                                where classname -like "*memory*" | select -ExpandProperty property |                                 % {$obj=@{}} {$obj["$($_.name)"]=$_.value} {new-object psobject -prop $obj}          # CLASSNAME Msvm_SwitchPort     $newVM.Network = $vm.DECLARATIONS.DECLGROUP.'VALUE.OBJECT'.instance |                                 where classname -like "*switch*" | select -ExpandProperty property |                                 % {$obj=@{}} {$obj["$($_.name)"]=$_.value} {new-object psobject -prop $obj}          # as far as $newVM is a hashtable, making an object from it     $vmObj = New-object psobject -prop $newVM      # variables, just to see what we've got     $vmName = $vmObj.Global.ElementName     #$vmObj.Disks.Path     [int64]$vmMemoryReservation = [int64]$vmObj.Memory.Reservation * 1MB     [int64]$vmMemoryLimit =  [int64]$vmObj.Memory.Limit * 1MB     $vmNetwork = $vmObj.Network.ElementName      $vmName     $vmObj.Disks.Path     $vmMemoryReservation     $vmMemoryLimit     $vmNetwork      #actual import     New-VM -Name $vmName -MemoryStartupBytes $vmMemoryLimit #-VHDPath $vmObj.Disks.Path[0]     $vmObj.Disks.Path | % {Add-VMHardDiskDrive -VMName $vmName -Path $_}     Set-VMMemory -VMName $vmName -MaximumBytes $vmMemoryLimit -DynamicMemoryEnabled $true     Get-vm -Name $vmName | Get-VMNetworkAdapter | Connect-VMNetworkAdapter -SwitchName $vmNetwork     checkpoint-vm -Name $vmName     "========== $vmName ==========" } 

И это сработало. Но глядя на все это, и вспоминая не несколько часов, которые я потратил на поиск нужных частей текста я понял что все это ужасно. Мне тут же вспомнился комментарий камрада Pinsky о паралимпийских играх по программированию. А что, я ж не программист, таки. Все равно ведь работает. Но хотелось чего-то большего, более краткого, красивого и лаконичного. В общем, тут я вспомнил знакомое слово XPATH. Честно говоря, до этого момента, о самой технологии кроме самого слова, я ничего не знал. Я подозревал, что эта штука должна делать но пользоваться не приходилось. Я подумал, что стоило бы попробовать. Как это счастье работает с powershell и работает ли. Пара часов прошли в поисках по гуглу и тестах. И вот оно, почти счастье:

[xml]$vm = gc $path  #class 'Msvm_VirtualSystemGlobalSettingData' $vmName = ($vm.SelectNodes("//INSTANCE[@CLASSNAME='Msvm_VirtualSystemGlobalSettingData']/PROPERTY") |           % {$obj=@{}} {$obj["$($_.name)"]=$_.value} {new-object psobject -prop $obj}).elementname #class 'Msvm_ResourceAllocationSettingData' $hardDrives = $vm.SelectNodes("(//INSTANCE[@CLASSNAME='Msvm_ResourceAllocationSettingData'])/PROPERTY.ARRAY[@NAME='Connection']/VALUE.ARRAY").value #class 'Msvm_MemorySettingData' $memory = $vm.SelectNodes("//INSTANCE[@CLASSNAME='Msvm_MemorySettingData']/PROPERTY")  |           % {$obj=@{}} {$obj["$($_.name)"]=$_.value} {new-object psobject -prop $obj} | select Limit,Reservation #class 'Msvm_SwitchPort' $network = ($vm.SelectNodes("//INSTANCE[@CLASSNAME='Msvm_SwitchPort']/PROPERTY")  |           % {$obj=@{}} {$obj["$($_.name)"]=$_.value} {new-object psobject -prop $obj}).ElementName  $vmName $hardDrives $memory $network 

Вот такая вот штука. Значительно короче, приятней читать, понятней. И еще и работает.