Merge e9ae11f415 into b231abe114

plugins/providers/hyperv/action/configure.rb

@@ -97,6 +97,11 @@ module VagrantPlugins
               env[:machine].provider_config.vm_integration_services)
           end
 
+          if env[:machine].provider_config.enable_enhanced_session_mode
+            env[:ui].detail("Setting VM Enhanced session transport type")
+            env[:machine].provider.driver.set_enhanced_session_transport_type("HvSocket")
+          end
+
           @app.call(env)
         end
       end

plugins/providers/hyperv/config.rb

@@ -48,6 +48,8 @@ module VagrantPlugins
       attr_accessor :enable_virtualization_extensions
       # @return [Hash] Options for VMServiceIntegration
       attr_accessor :vm_integration_services
+      # @return [Boolean] Enable Enhanced session mode
+      attr_accessor :enable_enhanced_session_mode
 
       def initialize
         @ip_address_timeout = UNSET_VALUE
@@ -65,6 +67,7 @@ module VagrantPlugins
         @enable_automatic_checkpoints = UNSET_VALUE
         @enable_checkpoints = UNSET_VALUE
         @vm_integration_services = {}
+        @enable_enhanced_session_mode = UNSET_VALUE
       end
 
       def finalize!
@@ -102,6 +105,8 @@ module VagrantPlugins
 
         # If automatic checkpoints are enabled, checkpoints will automatically be enabled
         @enable_checkpoints ||= @enable_automatic_checkpoints
+
+        @enable_enhanced_session_mode = false if @enable_enhanced_session_mode == UNSET_VALUE
       end
 
       def validate(machine)

plugins/providers/hyperv/driver.rb

@@ -217,6 +217,14 @@ module VagrantPlugins
         execute(:set_name, VMID: vm_id, VMName: vmname)
       end
 
+      # Set enhanced session transport type of the VM
+      #
+      # @param [String] enhanced session transport type of the VM
+      # @return [nil]
+      def set_enhanced_session_transport_type(transport_type)
+        execute(:set_enhanced_session_transport_type, VmID: vm_id, type: transport_type)
+      end
+
       protected
 
       def execute_powershell(path, options, &block)

plugins/providers/hyperv/scripts/set_enhanced_session_transport_type.ps1

@@ -0,0 +1,24 @@
+#Requires -Modules VagrantMessages
+
+param (
+    [parameter (Mandatory=$true)]
+    [Guid] $VMID,
+    [parameter (Mandatory=$true)]
+    [string] $Type
+)
+
+$ErrorActionPreference = "Stop"
+
+try {
+    $VM = Hyper-V\Get-VM -Id $VMID
+} catch {
+    Write-ErrorMessage "Failed to locate VM: ${PSItem}"
+    exit 1
+}
+
+try {
+    Hyper-V\Set-VM -VM $VM -EnhancedSessionTransportType $Type
+} catch {
+    Write-ErrorMessage "Failed to assign EnhancedSessionTransportType to ${Type}: ${PSItem}"
+    exit 1
+}

test/unit/plugins/providers/hyperv/action/configure_test.rb

@@ -28,10 +28,12 @@ describe VagrantPlugins::HyperV::Action::Configure do
       enable_checkpoints: false,
       enable_automatic_checkpoints: true,
       enable_virtualization_extensions: false,
-      vm_integration_services: vm_integration_services
+      vm_integration_services: vm_integration_services,
+      enable_enhanced_session_mode: enable_enhanced_session_mode
     )
   }
   let(:vm_integration_services){ {} }
+  let(:enable_enhanced_session_mode){ false }
 
   let(:subject){ described_class.new(app, env) }
 
@@ -116,6 +118,22 @@ describe VagrantPlugins::HyperV::Action::Configure do
     end
   end
 
+  context "without enhanced session transport type" do
+    it "should not call the driver to set enhanced session transport type" do
+      expect(driver).not_to receive(:set_enhanced_session_transport_type)
+      subject.call(env)
+    end
+  end
+
+  context "with enhanced session transport type" do    
+    let(:enable_enhanced_session_mode) { true }
+
+    it "should call the driver to set enhanced session transport type" do
+      expect(driver).to receive(:set_enhanced_session_transport_type)
+      subject.call(env)
+    end
+  end
+
   context "without available switches" do
     let(:switches){ [] }
 

test/unit/plugins/providers/hyperv/config_test.rb

@@ -241,4 +241,18 @@ describe VagrantPlugins::HyperV::Config do
       expect(result["Hyper-V"]).not_to be_empty
     end
   end
+  
+
+  describe "#enable_enhanced_session_mode" do
+    it "is false by default" do
+      subject.finalize!
+      expect(subject.enable_enhanced_session_mode).to eq(false)
+    end
+
+    it "can be set" do
+      subject.enable_enhanced_session_mode = true
+      subject.finalize!
+      expect(subject.enable_enhanced_session_mode).to eq(true)
+    end
+  end
 end

website/source/docs/hyperv/configuration.html.md

@@ -19,6 +19,7 @@ you may set. A complete reference is shown below:
 * `enable_virtualization_extensions` (boolean) - Enable virtualization extensions for the virtual CPUs. Default: false
 * `enable_checkpoints` (boolean) Enable checkpoints of the VM. Default: true
 * `enable_automatic_checkpoints` (boolean) Enable automatic checkpoints of the VM. Default: false
+* `enable_enhanced_session_mode` (boolean) - Enable enhanced session transport type for the VM. Default: false
 * `ip_address_timeout` (integer) - Number of seconds to wait for the VM to report an IP address. Default: 120.
 * `linked_clone` (boolean) - Use differencing disk instead of cloning entire VHD. Default: false
 * `mac` (string) - MAC address for the guest network interface