updated the virtual machine definitions to support D, DS and G series

Author: azurecoder

Elastacloud.AzureManagement.Fluent/Types/VmSize.cs

@@ -70,6 +70,69 @@ public enum VmSize
 // ReSharper disable once InconsistentNaming
         Basic_A3,
 // ReSharper disable once InconsistentNaming
-        Basic_A4
+        Basic_A4,
+        // <summary>1 core, 3.5G, 127 OS, 50G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D1,
+        // <summary>2 core, 7G, 127 OS, 100G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D2,
+        // <summary>4 core, 14G, 127 OS, 200G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D3,
+        // <summary>8 core, 28G, 127 OS, 400G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D4,
+        // <summary>2 core, 14G, 127 OS, 100G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D11,
+        // <summary>4 core, 28G, 127 OS, 200G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D12,
+        // <summary>8 core, 56G, 127 OS, 400G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D13,
+        // <summary>1 core, 112G, 127 OS, 800G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_D14,
+        // <summary>1 core, 3.5G, 127 OS, 7G SSD, 3200/32MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS1,
+        // <summary>2 core, 7G, 127 OS, 14G SSD, 6400/64MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS2,
+        // <summary>4 core, 14G, 127 OS, 28G SSD, 12800/128MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS3,
+        // <summary>8 core, 28G, 127 OS, 56G SSD, 25600/256MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS4,
+        // <summary>1 core, 28G, 127 OS, 28G SSD, 6400/64MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS11,
+        // <summary>2 core, 56G, 127 OS, 56G SSD, 12800/128MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS12,
+        // <summary>4 core, 112G, 127 OS, 112G SSD, 25600/256MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS13,
+        // <summary>8 core, 224G, 127 OS, 224G SSD, 56200/512MBsec</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_DS14,
+        // <summary>2 core, 28G, 127 OS, 384G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_G1,
+        // <summary>4 core, 56G, 127 OS, 768G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_G2,
+        // <summary>8 core, 112G, 127 OS, 1536G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_G3,
+        // <summary>16 core, 224G, 127 OS, 3072G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_G4,
+        // <summary>32 core, 448G, 127 OS, 6144G SSD</summary>
+        // ReSharper disable once InconsistentNaming
+        STANDARD_G5
     }
 }

Elastacloud.FluentManagement.FSTest/VirtualMachines.fsx

@@ -27,12 +27,14 @@ let settingCert fileName subscriptionId =
     let settings = PublishSettingsExtractor fileName
     settings.AddAllPublishSettingsCertificatesToPersonalMachineStore(subscriptionId).[0] 
 let getFromBizsparkPlus = settingCert "D:\\Projects\\BizSpark Plus-7-8-2014-credentials.publishsettings"
+let vmClient = LinuxVirtualMachineClient(subscriptionId, getFromBizsparkPlus subscriptionId)
+
 
 let storageClient = StorageClient(subscriptionId, getFromBizsparkPlus subscriptionId)
 let accounts = storageClient.GetStorageAccountList()
 let account = accounts |> Seq.filter (fun account -> account.Name = "azurecoder11")
 
-let vmClient = LinuxVirtualMachineClient(subscriptionId, getFromBizsparkPlus subscriptionId)
+
 let sshEndpoint = InputEndpoint(EndpointName = "ssh",
                                 LocalPort = 22,
                                 Port = Nullable(22),
@@ -66,5 +68,5 @@ let ne = vnClient.GetAvailableVirtualNetworks("North Europe")
 vnClient.AddSubnetToAddressRange("bigbadbeetleborgs", "10.0.0.0/20", "max-1")
 vnClient.RemoveSubnet("skynet", "cluster")
 let images = vmClient.GetCurrentUbuntuImage()
-let attack = vmClient.GetHostDetails("sparkattack")
-attack.[0].Endpoints.Item 1
+let attack = vmClient.GetHostDetails("isaacsample2")
+attack.[0].Endpoints