(#9258) Exit if Hyper-V is enabled and VirtualBox provider is used

This commit adds a function on windows for the VirtualBox provider to
check if Hyper-V is enabled. If so, exit and display a warning to the
user that going forward will result in a system crash.

lib/vagrant/errors.rb

@@ -372,6 +372,10 @@ module Vagrant
       error_key(:home_dir_unknown_version)
     end
 
+    class HypervVirtualBoxError < VagrantError
+      error_key(:hyperv_virtualbox_error)
+    end
+
     class ForwardPortAdapterNotFound < VagrantError
       error_key(:forward_port_adapter_not_found)
     end

lib/vagrant/util/platform.rb

@@ -97,6 +97,22 @@ module Vagrant
           return @_windows_hyperv_admin
         end
 
+        # Checks if Hyper-V is enabled on the host system and returns true
+        # if enabled.
+        #
+        # @return [Boolean]
+        def windows_hyperv_enabled?
+          return @_windows_hyperv_enabled if defined?(@_windows_hyperv_enabled)
+
+          @_windows_hyperv_enabled = -> {
+            ps_cmd = "$(Get-WindowsOptionalFeature -FeatureName Microsoft-Hyper-V-All -Online).State"
+            output = Vagrant::Util::PowerShell.execute_cmd(ps_cmd)
+            return output == 'Enabled'
+          }.call
+
+          return @_windows_hyperv_enabled
+        end
+
         # This takes any path and converts it from a Windows path to a
         # Cygwin style path.
         #

plugins/providers/virtualbox/driver/base.rb

@@ -78,6 +78,12 @@ module VagrantPlugins
             end
           end
 
+          if Vagrant::Util::Platform.windows? && Vagrant::Util::Platform.windows_hyperv_enabled?
+            @logger.error("Virtualbox and Hyper-V cannot be used together at the same time on Windows and will result in a system crash.")
+
+            raise Vagrant::Errors::HypervVirtualBoxError
+          end
+
           # Fall back to hoping for the PATH to work out
           @vboxmanage_path ||= "VBoxManage"
           @logger.info("VBoxManage path: #{@vboxmanage_path}")

templates/locales/en.yml

@@ -846,6 +846,10 @@ en:
         ("%{value}") could not be found. Please verify that the plugin is
         installed which implements this host and that the value you used
         for `config.vagrant.host` is correct.
+      hyperv_virtualbox_error: |-
+        Hyper-V and VirtualBox cannot be used together and will result in a
+        system crash. Vagrant will now exit. Please disable Hyper-V if you wish
+        to use VirtualBox.
       interrupted: |-
         Vagrant exited after cleanup due to external interrupt.
       local_data_dir_not_accessible: |-

test/unit/vagrant/util/platform_test.rb

@@ -214,4 +214,19 @@ describe Vagrant::Util::Platform do
       end
     end
   end
+
+  describe ".windows_hyperv_enabled?" do
+    it "should return true if enabled" do
+      allow(Vagrant::Util::PowerShell).to receive(:execute_cmd).and_return('Enabled')
+
+      expect(Vagrant::Util::Platform.windows_hyperv_enabled?).to be_truthy
+    end
+
+    it "should return false if disabled" do
+      Vagrant::Util::Platform.reset!
+      allow(Vagrant::Util::PowerShell).to receive(:execute_cmd).and_return('Disabled')
+
+      expect(Vagrant::Util::Platform.windows_hyperv_enabled?).to be_falsey
+    end
+  end
 end