Hyper-V R2 Import/Export – Part 6 - So, what happened to Configuration-only export?

option explicit 

dim objWMIService

dim managementService

dim fileSystem

const JobStarting = 3

const JobRunning = 4

const JobCompleted = 7

const wmiStarted = 4096

const wmiSuccessful = 0

Main()

'-----------------------------------------------------------------

' Main

'-----------------------------------------------------------------

Sub Main()

    dim computer, objArgs, vmName, vm, exportDirectory

    set fileSystem = Wscript.CreateObject("Scripting.FileSystemObject")

    computer = "."

    set objWMIService = GetObject("winmgmts:\\" & computer & "\root\virtualization")

    set managementService = objWMIService.ExecQuery("select * from Msvm_VirtualSystemManagementService").ItemIndex(0)

    set objArgs = WScript.Arguments

    if WScript.Arguments.Count = 2 then

        vmName = objArgs.Unnamed.Item(0)

        exportDirectory = objArgs.Unnamed.Item(1)

    else

        WScript.Echo "usage: cscript ExportVirtualSystemEx.vbs vmName exportDirectoryName"

        WScript.Quit(1)

    end if

    set vm = GetComputerSystem(vmName)

    if ExportVirtualSystemEx(vm, exportDirectory) then

        WriteLog "Done"

        WScript.Quit(0)

    else

        WriteLog "ExportVirtualSystemEx Failed."

        WScript.Quit(1)

    end if

End Sub

'-----------------------------------------------------------------

' Retrieve Msvm_VirtualComputerSystem from base on its ElementName

'-----------------------------------------------------------------

Function GetComputerSystem(vmElementName)

    On Error Resume Next

    dim query

    query = Format1("select * from Msvm_ComputerSystem where ElementName = '{0}'", vmElementName)

    set GetComputerSystem = objWMIService.ExecQuery(query).ItemIndex(0)

    if (Err.Number <> 0) then

        WriteLog Format1("Err.Number: {0}", Err.Number)

        WriteLog Format1("Err.Description:{0}",Err.Description)

        WScript.Quit(1)

    end if

End Function

'-----------------------------------------------------------------

' Export a virtual system

'-----------------------------------------------------------------

Function ExportVirtualSystemEx(computerSystem, exportDirectory)

    dim objInParam, objOutParams 

    dim query

    dim computer

    dim exportSettingData

    ExportVirtualSystemEx = false

    if Not fileSystem.FolderExists(exportDirectory) then

        fileSystem.CreateFolder(exportDirectory)

    end if

    set objInParam = managementService.Methods_("ExportVirtualSystemEx").InParameters.SpawnInstance_()

    objInParam.ComputerSystem = computerSystem.Path_.Path

    query = Format1("ASSOCIATORS OF {{0}} WHERE resultClass = Msvm_VirtualSystemExportSettingData", computerSystem.Path_.Path)

    set exportSettingData = objWMIService.ExecQuery(query).ItemIndex(0)

    'Dont copy the VHDs and AVHDs, but copy the Saved state information and Snapshot configurations if present

    exportSettingData.CopyVmStorage = false

    exportSettingData.CopyVmRuntimeInformation = true

    exportSettingData.CreateVmExportSubdirectory = true

    exportSettingData.CopySnapshotConfiguration = 0

    objInParam.ExportSettingData = exportSettingData.GetText_(1)

    objInParam.ExportDirectory = exportDirectory

    set objOutParams = managementService.ExecMethod_("ExportVirtualSystemEx", objInParam)

    if objOutParams.ReturnValue = wmiStarted then

        if (WMIJobCompleted(objOutParams)) then

            ExportVirtualSystemEx = true

        end if

    elseif (objOutParams.ReturnValue = wmiSuccessful) then

        ExportVirtualSystemEx = true

    else

        WriteLog Format1("ExportVirtualSystemEx failed with ReturnValue {0}", objOutParams.ReturnValue)

    end if

End Function

'-----------------------------------------------------------------

' Handle wmi Job object

'-----------------------------------------------------------------

Function WMIJobCompleted(outParam)

    dim WMIJob, jobState

    set WMIJob = objWMIService.Get(outParam.Job)

    WMIJobCompleted = true

    jobState = WMIJob.JobState

    while jobState = JobRunning or jobState = JobStarting

        WriteLog Format1("In progress... {0}% completed.",WMIJob.PercentComplete)

        WScript.Sleep(1000)

        set WMIJob = objWMIService.Get(outParam.Job)

        jobState = WMIJob.JobState

    wend

    if (jobState <> JobCompleted) then

        WriteLog Format1("ErrorCode:{0}", WMIJob.ErrorCode)

        WriteLog Format1("ErrorDescription:{0}", WMIJob.ErrorDescription)

        WMIJobCompleted = false

    end if

End Function

'-----------------------------------------------------------------

' Create the console log files.

'-----------------------------------------------------------------

Sub WriteLog(line)

    dim fileStream

    set fileStream = fileSystem.OpenTextFile(".\ExportVirtualSystemExLog.log", 8, true)

    WScript.Echo line

    fileStream.WriteLine line

    fileStream.Close

End Sub

'------------------------------------------------------------------------------

' The string formating functions to avoid string concatenation.

'------------------------------------------------------------------------------

Function Format2(myString, arg0, arg1)

    Format2 = Format1(myString, arg0)

    Format2 = Replace(Format2, "{1}", arg1)

End Function

'------------------------------------------------------------------------------

' The string formating functions to avoid string concatenation.

'------------------------------------------------------------------------------

Function Format1(myString, arg0)

    Format1 = Replace(myString, "{0}", arg0)

End Function

option explicit 

dim objWMIService

dim managementService

dim switchService

dim fileSystem

const JobStarting = 3

const JobRunning = 4

const JobCompleted = 7

const wmiStarted = 4096

const wmiSuccessful = 0

Main()

'-----------------------------------------------------------------

' Main

'-----------------------------------------------------------------

Sub Main()

    dim computer, objArgs, importDirectory, generateNewID

    set fileSystem = Wscript.CreateObject("Scripting.FileSystemObject")

    computer = "."

    set objWMIService = GetObject("winmgmts:\\" & computer & "\root\virtualization")

    set managementService = objWMIService.ExecQuery("select * from Msvm_VirtualSystemManagementService").ItemIndex(0)

    set switchService = objWMIService.ExecQuery("select * from Msvm_VirtualSwitchManagementService").ItemIndex(0)

    set objArgs = WScript.Arguments

    if WScript.Arguments.Count = 1 then

        importDirectory = objArgs.Unnamed.Item(0)

    else

        WScript.Echo "usage: cscript ImportVirtualSystemEx-ConfigOnly.vbs importDirectoryName"

        WScript.Quit(1)

    end if

    if ImportVirtualSystemEx(importDirectory) then

        WriteLog "Done"

        WScript.Quit(0)

    else

        WriteLog "ImportVirtualSystemEx Failed."

        WScript.Quit(1)

    end if

End Sub

'-----------------------------------------------------------------

' GetVirtualSystemImportSettingData from a directory

'-----------------------------------------------------------------

Function GetVirtualSystemImportSettingData(importDirectory)

    dim objInParam, objOutParams    

    set objInParam = managementService.Methods_("GetVirtualSystemImportSettingData").InParameters.SpawnInstance_()

    objInParam.ImportDirectory = importDirectory

    set objOutParams = managementService.ExecMethod_("GetVirtualSystemImportSettingData", objInParam)

    if objOutParams.ReturnValue = wmiStarted then

        if (WMIJobCompleted(objOutParams)) then

            set GetVirtualSystemImportSettingData = objOutParams.ImportSettingData

        end if

    elseif objOutParams.ReturnValue = wmiSuccessful then

        set GetVirtualSystemImportSettingData = objOutParams.ImportSettingData

    else

        WriteLog Format1("GetVirtualSystemImportSettingData failed with ReturnValue {0}", objOutParams.ReturnValue)

    end if

End Function

'-----------------------------------------------------------------

' ImportVirtualSystem from a directory

'-----------------------------------------------------------------

Function ImportVirtualSystemEx(importDirectory)

    dim objInParam, objOutParams

    dim newDataRoot

    dim importSettingData

    dim newSourceResourcePaths, newTargetNetworkConnections, newSwitch    

    'Resources in newSourceResourcePaths below should be existing. Fill this with the resources corresponding to those in CurrentResourcePaths

    newSourceResourcePaths = Array(1)

    newSourceResourcePaths(0) = importDirectory & "\VM.vhd"

    ImportVirtualSystemEx = false

    set objInParam = managementService.Methods_("ImportVirtualSystemEx").InParameters.SpawnInstance_()

    objInParam.ImportDirectory = importDirectory

    set importSettingData = GetVirtualSystemImportSettingData(importDirectory)

    importSettingData.GenerateNewId = true

    importSettingData.CreateCopy = false

    importSettingData.Name = "NewSampleVM-ConfigOnlyImport"

    importSettingData.SourceResourcePaths = newSourceResourcePaths

    importSettingData.Put_

    objInParam.ImportSettingData = importSettingData.GetText_(1)

    set objOutParams = managementService.ExecMethod_("ImportVirtualSystemEx", objInParam)

    if objOutParams.ReturnValue = wmiStarted then

        if (WMIJobCompleted(objOutParams)) then

            ImportVirtualSystemEx = true

        end if

    elseif objOutParams.ReturnValue = wmiSuccessful then

        ImportVirtualSystemEx = true

    else

        WriteLog Format1("ImportVirtualSystemEx failed with ReturnValue {0}", objOutParams.ReturnValue)

    end if

End Function

'-----------------------------------------------------------------

' Handle wmi Job object

'-----------------------------------------------------------------

Function WMIJobCompleted(outParam)

    dim WMIJob, jobState

    set WMIJob = objWMIService.Get(outParam.Job)

    WMIJobCompleted = true

    jobState = WMIJob.JobState

    while jobState = JobRunning or jobState = JobStarting

        WriteLog Format1("In progress... {0}% completed.",WMIJob.PercentComplete)

        WScript.Sleep(1000)

        set WMIJob = objWMIService.Get(outParam.Job)

        jobState = WMIJob.JobState

    wend

    if (jobState <> JobCompleted) then

        WriteLog Format1("ErrorCode:{0}", WMIJob.ErrorCode)

        WriteLog Format1("ErrorDescription:{0}", WMIJob.ErrorDescription)

        WMIJobCompleted = false

    end if

End Function

'-----------------------------------------------------------------

' Create the console log files.

'-----------------------------------------------------------------

Sub WriteLog(line)

    dim fileStream

    set fileStream = fileSystem.OpenTextFile(".\ImportVirtualSystemEx-ConfigOnly.log", 8, true)

    WScript.Echo line

    fileStream.WriteLine line

    fileStream.Close

End Sub

'------------------------------------------------------------------------------

' The string formating functions to avoid string concatenation.

'------------------------------------------------------------------------------

Function Format1(myString, arg0)

    Format1 = Replace(myString, "{0}", arg0)

End Function