uint32 AddVirtualSystemResources(
  [in]   CIM_ComputerSystem REF TargetSystem,
  [in]   string ResourceSettingData[],
  [out]  CIM_ResourceAllocationSettingData REF NewResources[],
  [out]  CIM_ConcreteJob REF Job
);

using System;
using System.Management;

namespace HyperVSamples
{
    class AddVirtualSystemReourcesClass
    {
        ManagementObject virtualSystemService = null;
        ManagementScope scope = null;

        AddVirtualSystemReourcesClass()
        {
            scope = new ManagementScope(@"root\virtualization", null);
            virtualSystemService = Utility.GetServiceObject(scope, "Msvm_VirtualSystemManagementService");
        }

        ManagementObject AddVirtualSystemReources(String vmName, string nicName, string address)
        {
            ManagementObject syntheticNic = null;
            ManagementObject vm = Utility.GetTargetComputer(vmName, scope);
            ManagementBaseObject inParams = virtualSystemService.GetMethodParameters("AddVirtualSystemResources");

            ManagementObject SyntheticNicDefault = Utility.GetResourceAllocationsettingDataDefault(scope, ResourceType.EthernetAdapter, ResourceSubType.EthernetSynthetic, null);

            if (address != null)
            {
                SyntheticNicDefault["StaticMacAddress"] = true;
                SyntheticNicDefault["Address"] = address;
            }
            else
            {
                SyntheticNicDefault["StaticMacAddress"] = false;
            }

            SyntheticNicDefault["ElementName"] = nicName;

            String[] identifiers = new String[1];
            identifiers[0] = string.Format("{{{0}}}", Guid.NewGuid());
            SyntheticNicDefault["VirtualSystemIdentifiers"] = identifiers;

            string[] RASDs = new string[1];
            RASDs[0] = SyntheticNicDefault.GetText(TextFormat.CimDtd20);

            inParams["ResourcesettingData"] = RASDs;
            inParams["TargetSystem"] = vm.Path.Path;

            ManagementBaseObject outParams = virtualSystemService.InvokeMethod("AddVirtualSystemResources", inParams, null);

            string[] addedResources = null;

            if ((UInt32)outParams["ReturnValue"] == ReturnCode.Started)
            {
                if (Utility.JobCompleted(outParams, scope))
                {
                    addedResources = (string[])outParams["NewResources"];
                    syntheticNic = new ManagementObject(addedResources[0]);
                    Console.WriteLine("Resources were added successfully.");

                }
                else
                {
                    Console.WriteLine("Failed to add resources");
                }
            }
            else if ((UInt32)outParams["ReturnValue"] == ReturnCode.Completed)
            {
                addedResources = (string[])outParams["NewResources"];
                syntheticNic = new ManagementObject(addedResources[0]);
                Console.WriteLine("Resources were added successfully.");
            }
            else
            {
                Console.WriteLine("Add virtual system synthetic Ethernet failed with error:{0}", outParams["ReturnValue"]);
            }

            inParams.Dispose();
            outParams.Dispose();
            vm.Dispose();
            SyntheticNicDefault.Dispose();

            return syntheticNic;
        }

        void Close()
        {
            this.virtualSystemService.Dispose();
        }

        static void Main(string[] args)
        {
            if (args != null && args.Length != 2 && args.Length != 3)
            {
                Console.WriteLine("Usage: AddVirtualSystemResources vmName syntheticNicName MACAddress");
                Console.WriteLine("MACAddress: Optional. Static MAC address is used if it's specified.");
                Console.WriteLine("Example: AddVirtualSystemResources MyFirstVM myStaticNic 00155D02B302");
                return;
            }

            string address = null;

            if (args.Length == 3)
            {
                address = args[2];

            }

            AddVirtualSystemReourcesClass addResource = new AddVirtualSystemReourcesClass();

            ManagementObject NicAdded = addResource.AddVirtualSystemReources(args[0], args[1], address);
            Console.WriteLine("Synthetic Ethernet card was added with {0} as its MAC address.", NicAdded["address"]);
            addResource.Close();
        }
    }
}

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, nicName, MACAddress
    
    set objArgs = WScript.Arguments
    if WScript.Arguments.Count = 3 then
        vmName = objArgs.Unnamed.Item(0)
        nicName = objArgs.Unnamed.Item(1)
        MACAddress = objArgs.Unnamed.Item(2)
    elseif WScript.Arguments.Count = 2 then
        vmName = objArgs.Unnamed.Item(0)
        nicName = objArgs.Unnamed.Item(1)
        MACAddress = NULL
    else
        WScript.Echo "usage: cscript AddVirtualSystemResource vmName syntheticNicName MACAddress"
        WScript.Echo "MyFirstVM myStaticNic 00155D02B302"
        WScript.Quit(1)
    end if


    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 vm = GetComputerSystem(vmName)

    if AddVirtualSystemResources(vm, nicName, MACAddress) then
        WriteLog "Done"
        WScript.Quit(0)
    else
        WriteLog "AddVirtualSystemResources Failed."
        WScript.Quit(1)
    end if
    
End Sub

'-----------------------------------------------------------------
' Retrieve Msvm_ResourceAllocationsettingData from WMI
'-----------------------------------------------------------------
Function GetRASDDefaultInstance(resourceType, resourceSubType)
    dim query, poolResource, capbibilites, settings, setting, capbility
    query = "select * from Msvm_ResourcePool where ResourceType = '{0}' and ResourceSubType ='{1}'"
    query = Format2(query, resourceType, resourceSubType)
                             
    set poolResource = objWMIService.ExecQuery(query).ItemIndex(0)
     
    query = Format1("ASSOCIATORS OF {{0}} WHERE resultClass = Msvm_AllocationCapabilities", poolResource.Path_.Path)
    set capbibilites = objWMIService.ExecQuery(query)
    
    for each capbility in capbibilites
        query = Format1("REFERENCES  OF {{0}} WHERE resultClass = Msvm_SettingsDefineCapabilities", capbility.Path_.Path)
        set settings = objWMIService.ExecQuery(query)
        for each setting in settings
            if setting.ValueRole = 0 then
               set GetRASDDefaultInstance = objWMIService.Get(setting.PartComponent)
               exit function
            end if
        next
    next
End Function


'-----------------------------------------------------------------
' 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


'-----------------------------------------------------------------
' Add Synthetic Ethernet card
'-----------------------------------------------------------------
Function AddVirtualSystemResources(computerSystem, nicName, MACAddress)

    dim nicRasdDefault, objInParam, objOutParams, identifiers, embeddedXml
    AddVirtualSystemResources = false
    set nicRasdDefault = GetRASDDefaultInstance("10", "Microsoft Synthetic Ethernet Port")

    set objInParam = managementService.Methods_("AddVirtualSystemResources").InParameters.SpawnInstance_()
    objInParam.TargetSystem = computerSystem.Path_.Path
    if IsNull(MACAddress) then
        nicRasdDefault.StaticMacAddress = false
    else
        nicRasdDefault.StaticMacAddress = true
        nicRasdDefault.Address = MACAddress
    end if
    nicRasdDefault.ElementName = nicName
    identifiers = Array(1)
    identifiers(0) = createobject("scriptlet.typelib").GUID
    nicRasdDefault.VirtualSystemIdentifiers = identifiers

    embeddedXml = Array(1)
    embeddedXml(0) = nicRasdDefault.GetText_(1)

    objInParam.ResourcesettingData = embeddedXml
    
    set objOutParams = managementService.ExecMethod_("AddVirtualSystemResources", objInParam)

    if objOutParams.ReturnValue = wmiStarted then
        if (WMIJobCompleted(objOutParams)) then
            WriteLog Format1("NIC controller is added to {0} successfully.", vmName)
            AddVirtualSystemResources = true
        end if
    elseif  objOutParams.ReturnValue = wmiSuccessful then
        AddVirtualSystemResources = true
    else
        WriteLog Format1("Add virtual system synthetic Ethernet failed with error:{0}", outParams.ReturnValue)
    end if

End Function

'-----------------------------------------------------------------
' Handle wmi Job object
'-----------------------------------------------------------------
Function WMIJobCompleted(outParam)

    dim WMIJob, jobState
    WMIJobCompleted = true

    set WMIJob = objWMIService.Get(outParam.Job)
    
    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 (WMIJob.JobState <> JobCompleted) then
        WriteLog Format1("ErrorDescription:{0}", WMIJob.ErrorDescription)
        WriteLog Format1("ErrorCode:{0}", WMIJob.ErrorCode)
        WMIJobCompleted = false
    end if

End Function

'-----------------------------------------------------------------
' Create the console log files.
'-----------------------------------------------------------------
Sub WriteLog(line)
    dim fileStream
    set fileStream = fileSystem.OpenTextFile(".\AddVirtualSystemResources.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