CreateInternalEthernetPortDynamicMac method of the Msvm_VirtualSwitchManagementService Class

uint32 CreateInternalEthernetPortDynamicMac(
  [in]   string Name,
  [in]   string FriendlyName,
  [out]  Msvm_InternalEthernetPort REF CreatedInternalEthernetPort
);

using System;
using System.Management;

namespace HyperVSamples
{
    class CreateInternalEthernetPortDynamicMacClass
    {
        static ManagementObject CreateInternalEthernetPortDynamicMac(string friendlyName, string name)
        {
            ManagementScope scope = new ManagementScope(@"root\virtualization", null);
            ManagementObject switchService = Utility.GetServiceObject(scope, "Msvm_VirtualSwitchManagementService");

            ManagementObject createdInternalEthernetPort = null;

            ManagementBaseObject inParams = switchService.GetMethodParameters("CreateInternalEthernetPortDynamicMac");
            inParams["FriendlyName"] = friendlyName;
            inParams["Name"] = name;
            ManagementBaseObject outParams = switchService.InvokeMethod("CreateInternalEthernetPortDynamicMac", inParams, null);
            if ((UInt32)outParams["ReturnValue"] == ReturnCode.Completed)
            {
                createdInternalEthernetPort = new ManagementObject(outParams["CreateInternalEthernetPortDynamicMac"].ToString());
                Console.WriteLine("{0} was created successfully", inParams["Name"]);
            }
            else
            {
                Console.WriteLine("Failed to create {0} switch.", inParams["Name"]);
            }
            return createdInternalEthernetPort;
        }

        static void Main(string[] args)
        {
            if (args != null && args.Length != 2)
            {
                Console.WriteLine("Usage: CreateInternalEthernetPortDynamicMac FriendlyName Name");
                Console.WriteLine("Example: CreateInternalEthernetPort \"{0}\" {1}",
                    "First internal Ethernet Port",
                    "FirstInternalEthernetPort");
                return;
            }
            CreateInternalEthernetPortDynamicMac(args[0], args[1]);
        }
    }
}

dim objWMIService
dim switchService
dim fileSystem

const wmiSuccessful = 0

Main()

'-----------------------------------------------------------------
' Main
'-----------------------------------------------------------------
Sub Main()
    set fileSystem = Wscript.CreateObject("Scripting.FileSystemObject")
    strComputer = "."

    set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\virtualization")
    GetVirtualSwitchManagementServiceInstance
    set createdInternalEthernetPort = CreateInternalEthernetPortDynamicMac
    if Not (createdInternalEthernetPort Is Nothing) then
        WriteLog "Done"
        WScript.Quit(0)
    else
        WriteLog Format1("Err.Number: {0}", Err.Number)
        WriteLog Format1("Err.Description:{0}",Err.Description)
        WScript.Quit(1)
    end if
End Sub

'-----------------------------------------------------------------
' Retrieve GetVirtualSwitchManagementServiceInstance from WMI
'-----------------------------------------------------------------
Sub GetVirtualSwitchManagementServiceInstance()

    query = "select * from Msvm_VirtualSwitchManagementService"
    set managementServiceCol= objWMIService.ExecQuery(query)
    For Each instance in managementServiceCol
        set switchService = instance
    Next

End Sub


'-----------------------------------------------------------------
' Create a virtual switch by calling CreateSwitch WMI method
'-----------------------------------------------------------------
Function CreateInternalEthernetPortDynamicMac()
    set CreateInternalEthernetPortDynamicMac = Nothing
    set objInParam = switchService.Methods_("CreateInternalEthernetPortDynamicMac").InParameters.SpawnInstance_()
    objInParam.FriendlyName = "First Internal Ethernet Dynamic Mac Port"
    objInParam.Name = "FirstInternalDynamicMacPort"

    set objOutParams = switchService.ExecMethod_("CreateInternalEthernetPortDynamicMac", objInParam)

    if objOutParams.ReturnValue = wmiSuccessful then
        set CreateInternalEthernetPortDynamicMac = objWMIService.Get(objOutParams.CreatedInternalEthernetPort)
    else
        WriteLog Format1("CreateInternalEthernetPort failed with error code {0}", objOutParams.ReturnValue)
    end if

End Function

'-----------------------------------------------------------------
' Create the console log files.
'-----------------------------------------------------------------
Sub WriteLog(line)
    dim fileStream
    set fileStream = fileSystem.OpenTextFile(".\CreateSwitchPort.log", 8, true)
    WScript.Echo line
    fileStream.WriteLine line
    fileStream.Close

End Sub

'------------------------------------------------------------------------------
' The string formatting functions to avoid string concatenation.
'------------------------------------------------------------------------------
Function Format1(myString, arg0)
    Format1 = Replace(myString, "{0}", arg0)
End Function