none
Problem Related To Hyper-V. RRS feed

  • Question

  • Microsoft Hyper-v is Disabled on my systems but I always get an error "Microsoft Hyper-V is enabled on your System. Please Disable it" Why?

    I use Windows 10 home single language Version. windows 10 home doesn't support Hyper-V but always I face this problem. I have done the reset more than 3 times due to this problem. I spent a whole day to find the solution but unable to find.

     

    Have tried the following Solutions:-

    1-Unchecking the "Windows Hypervisor  Platform" Box in Windows Features.

    (Not Found Hyper-v in windows features. I didn't have to uncheck that box it was unchecked.)

    2-Run the command in cmd "dism.exe /Online /Disable-Feature<g class="gr_ gr_35 gr-alert gr_gramm gr_inline_cards gr_run_anim Style replaceWithoutSep" data-gr-id="35" id="35">:Microsoft-Hyper-V</g>".

    3-Run the command in cmd "<g class="gr_ gr_27 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="27" id="27">bcdedit</g> /set <g class="gr_ gr_28 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="28" id="28">hypervisorlaunchtype</g> off".

    4-Run the command in <g class="gr_ gr_29 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="29" id="29">powershell</g> "Disable-WindowsOptionalFeature -Online -FeatureName Microsoft-Hyper-V-All".

    5- Run the <g class="gr_ gr_30 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="30" id="30">vbs</g> <g class="gr_ gr_31 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="31" id="31">Scrypt</g> 

    "Option Explicit

    Dim <g class="gr_ gr_102 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="102" id="102">backupfile</g>
    Dim record
    Dim <g class="gr_ gr_103 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="103" id="103">myshell</g>
    Dim <g class="gr_ gr_104 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="104" id="104">appmyshell</g>
    Dim <g class="gr_ gr_105 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="105" id="105">myresult</g>
    Dim <g class="gr_ gr_106 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="106" id="106">myline</g>
    Dim <g class="gr_ gr_107 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="107" id="107">makeactive</g>
    Dim <g class="gr_ gr_108 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="108" id="108">makepassive</g>
    Dim reboot
    record=""
    Set <g class="gr_ gr_109 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="109" id="109">myshell</g> = WScript.CreateObject("WScript.Shell")

    If WScript.Arguments.Length = 0 Then
        Set appmyshell  = CreateObject("Shell.Application")
        appmyshell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1
        WScript.Quit
    End if




    Set backupfile = CreateObject("Scripting.FileSystemObject")
    If Not (backupfile.FileExists("C:\bcdedit.bak")) Then
        Set myresult = myshell.Exec("cmd /c bcdedit /export c:\bcdedit.bak")
    End If

    Set myresult = myshell.Exec("cmd /c bcdedit")
    Do While Not myresult.StdOut.AtEndOfStream
        myline = myresult.StdOut.ReadLine()

        If myline="The boot configuration data store could not be opened." Then
            record=""
            exit do
        End If
        If Instr(myline, "identifier") > 0 Then
            record=""
            If Instr(myline, "{current}") > 0 Then
                record="current"
            End If
        End If
        If Instr(myline, "hypervisorlaunchtype") > 0 And record = "current" Then
            If Instr(myline, "Auto") > 0 Then
                record="1"
                Exit Do
            End If
            If Instr(myline, "On") > 0 Then
                record="1"
                Exit Do
            End If
            If Instr(myline, "Off") > 0 Then
                record="0"
                Exit Do
            End If
        End If
    Loop

    If record="1" Then
    <g class="gr_ gr_110 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="110" id="110">makepassive</g> = MsgBox ("Hypervisor status is active, do you want set to passive? ", vbYesNo, "Hypervisor")
        Select Case <g class="gr_ gr_101 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="101" id="101">makepassive</g>
        Case vbYes
            myshell.run "cmd.exe /C  bcdedit /set hypervisorlaunchtype off"
            reboot = MsgBox ("Hypervisor chenged to passive; Computer must reboot. Reboot now? ", vbYesNo, "Hypervisor")
            Select Case reboot
                Case vbYes
                    myshell.run "cmd.exe /C  shutdown /r /t 0"
            End Select
        Case vbNo
            MsgBox("Not Changed")
        End Select
    End If

    If record="0" Then
        <g class="gr_ gr_112 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="112" id="112">makeactive</g> = MsgBox ("Hypervisor status is passive, do you want <g class="gr_ gr_111 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar multiReplace" data-gr-id="111" id="111">set</g> active? ", vbYesNo, "Hypervisor")
        Select Case <g class="gr_ gr_113 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="113" id="113">makeactive</g>
        Case vbYes
            myshell.run "cmd.exe /C  bcdedit /set hypervisorlaunchtype auto"
            reboot = MsgBox ("Hypervisor changed to active;  Computer must reboot. Reboot now?", vbYesNo, "Hypervisor")
            Select Case reboot
                Case vbYes
                    myshell.run "cmd.exe /C  shutdown /r /t 0"
            End Select
        Case vbNo
            MsgBox("Not Changed")
        End Select
    End If

    If record="" Then
            MsgBox("Error: record can't find")
    End If".

    Thursday, July 19, 2018 6:15 PM