Creates a new vRO naming prefix using the IaaS oData interface via REST

New-IaaSHostNamePrefix.ps1

Function New-IaaSHostNamePrefix {
        <#
        .SYNOPSIS
        Creates a new vRO naming prefix using the IaaS oData interface via REST

        .DESCRIPTION
        Creates a new vRO naming prefix using the IaaS oData interface via REST. Tested on vCO 6.2.1 with PowerShell 4

        .PARAMETER Server 
        The name of the IaaS server on which the operation shouldbe performed.

        .PARAMETER Prefix
        The Machine Prefix to use

        .PARAMETER NextMachineNumber
        The Next Number to use
 
        .PARAMETER MachineNumberLength
        Number of digits to be used

        .PARAMETER Credential
        A PowerShell PSCredential object

        .EXAMPLE
        Create a prefix called "TST" with a next machine number of 100 and a machine length of 4 on the IaaS server IAAS01.
        The first machine to use this prefix will be TST0124.

        New-IaaSHostNamePrefix -Server "IAAS01" -Prefix "TST" -nextMachineNumber 123 -machineNumberLength 4 -Credential $cred
        
        .NOTES
        Ben Neise

    #>
    [cmdletbinding()]
    param (
        [parameter(Mandatory = $true,
            Position = 0
        )]
        [String]
        $Server,

        [parameter(Mandatory = $true,
            Position = 1
        )]
        [String]
        $Prefix,

        [parameter(Mandatory = $true,
            Position = 2
        )]
        [int32]
        $NextMachineNumber,

        [parameter(Mandatory = $true,
            Position = 3
        )]
        [int32]
        $MachineNumberLength,

        [parameter(Mandatory = $true,
            Position = 4
        )]
        [PSCredential]
        $Credential
    )
    begin {
        $baseUri = "https://" + $Server + "/Repository/data/ManagementModelEntities.svc/"
        $uri = $baseUri + "HostNamePrefixes"
        $method = "POST"
        $xmlContentType = "application/atom+xml"
        $strDate = Get-Date -Format s
        $guid = [guid]::NewGuid()
    }
    process { 
        $xml = [xml]'<?xml version="1.0" encoding="utf-8"?><entry></entry>'
        $xmlTitle = $xml.CreateElement("title")
        $xml.get_ChildNodes().Item(1).AppendChild($xmlTitle) | Out-Null
        $xml.entry.SetAttribute('xmlns','http://www.w3.org/2005/Atom')
        $xml.entry.SetAttribute('xmlns:d','http://schemas.microsoft.com/ado/2007/08/dataservices')
        $xml.entry.SetAttribute('xmlns:m','http://schemas.microsoft.com/ado/2007/08/dataservices/metadata')
        $xmlNamespaceManager = New-Object System.Xml.XmlNamespaceManager($xml.nametable)
        $xmlNamespaceManager.addnamespace("d", $xml.entry.GetNamespaceOfPrefix("d"))
        $xmlNamespaceManager.addnamespace("m", $xml.entry.GetNamespaceOfPrefix("m"))
        $xmlUpdated = $xml.CreateElement("updated") 
        $xmlUpdatedNode = $xml.entry.AppendChild($xmlUpdated)
        $xmlText = $xml.CreateTextNode($strDate)
        $xmlUpdatedNode.AppendChild($xmlText) | Out-Null
        $xmlAuthor = $xml.CreateElement("author")
        $xml.entry.AppendChild($xmlAuthor) | Out-Null
        $xmlName = $xml.CreateElement("name")
        $xmlAuthor.AppendChild($xmlName) | Out-Null
        $xmlCategory = $xml.CreateElement("category")
        $xmlCategory.SetAttribute("scheme", "http://schemas.microsoft.com/ado/2007/08/dataservices/scheme");
        $xmlCategory.SetAttribute("term", "DynamicOps.ManagementModel.HostNamePrefix");
        $xml.entry.AppendChild($xmlCategory) | Out-Null
        $xmlContent = $xml.CreateElement("content")
        $xmlContent.SetAttribute('type','application/xml') | Out-Null
        $xml.entry.AppendChild($xmlContent) | Out-Null
        $xmlProperties = $xml.CreateElement('m:properties',$xmlNamespaceManager.LookupNamespace("m"))
        $xmlContent.AppendChild($xmlProperties) | Out-Null
        $xmlHostnamePrefixID = $xml.CreateElement('d:HostnamePrefixID',$xmlNamespaceManager.LookupNamespace("d"))
        $xmlProperties.AppendChild($xmlHostnamePrefixID) | Out-Null
        $xmlHostnamePrefixID.SetAttribute('type',$xmlNamespaceManager.LookupNamespace("m"),'Edm.Guid') | Out-Null
        $xmlHostnamePrefix = $xml.CreateTextNode($guid)
        $xmlHostnamePrefixID.AppendChild($xmlHostnamePrefix) | Out-Null
        $xmlMachinePrefix = $xml.CreateElement('d:MachinePrefix',$xmlNamespaceManager.LookupNamespace("d"))
        $xmlProperties.AppendChild($xmlMachinePrefix) | Out-Null
        $xmlMachinePrefixText = $xml.CreateTextNode($prefix)
        $xmlMachinePrefix.AppendChild($xmlMachinePrefixText) | Out-Null
        $xmlNextMachineNo = $xml.CreateElement('d:NextMachineNo',$xmlNamespaceManager.LookupNamespace("d"))
        $xmlProperties.AppendChild($xmlNextMachineNo) | Out-Null
        $xmlNextMachineNo.SetAttribute('type',$xmlNamespaceManager.LookupNamespace("m"),'Edm.Int32') | Out-Null
        $xmlNextMachineNoText = $xml.CreateTextNode($nextMachineNumber)
        $xmlNextMachineNo.AppendChild($xmlNextMachineNoText) | Out-Null
        $xmlMachineNumberLength = $xml.CreateElement('d:MachineNumberLength',$xmlNamespaceManager.LookupNamespace("d"))
        $xmlProperties.AppendChild($xmlMachineNumberLength) | Out-Null
        $xmlMachineNumberLength.SetAttribute('type',$xmlNamespaceManager.LookupNamespace("m"),'Edm.Int32') | Out-Null
        $xmlMachineNumberLengthText = $xml.CreateTextNode($MachineNumberLength)
        $xmlMachineNumberLength.AppendChild($xmlMachineNumberLengthText) | Out-Null
        $body = $xml.outerXML
        $result = try {
            Invoke-WebRequest -Uri $uri -Method $method -ContentType $xmlContentType -Credential $Credential -Body $body
        }
        catch {
            Write-Error -Message ([xml]$_.ErrorDetails.Message).error.innererror.internalException.internalException.message
            return
        }
    }
    end {
        return $result
    }
}