Try
          Using file As System.IO.StreamWriter = _
           New System.IO.StreamWriter(IO.Path.Combine(temp_path, "ocm.txt"), _
           False, System.Text.Encoding.Default)
            file.WriteLine("[components]")
            file.WriteLine("<имя_компонента>=On")
          End Using
        Catch
        End Try
        ShellAndContinueNet("sysocmgr /i:" & IO.Path.Combine(windows_path, "inf\sysoc.inf") & " /u:" _
         & IO.Path.Combine(temp_path, "ocm.txt") & " /r", AppWinStyle.Hide)
        Try : IO.File.Delete(IO.Path.Combine(temp_path, "ocm.txt")) : Catch : End Try

Imports System.Runtime.InteropServices

Module m_DismApi

  Public sessionOnline_Dism As Integer = DISM_SESSION_DEFAULT

  Private Const S_OK = 0

  ' DISM API Constants
  Public Const DISM_ONLINE_IMAGE As String = "DISM_{53BFAE52-B167-4E2F-A258-0A37B57FF845}"
  Public Const DISM_SESSION_DEFAULT As Integer = 0

  ' DISM API Enumerations
  Public Enum DismLogLevel
    DismLogErrors = 0
    DismLogErrorsWarnings = 1
    DismLogErrorsWarningsInfo = 2
  End Enum

  Public Enum DismPackageFeatureState
    DismStateNotPresent = 0
    DismStateUninstallPending = 1
    DismStateStaged = 2
    DismStateRemoved = 3
    DismStateInstalled = 4
    DismStateInstallPending = 5
    DismStateSuperseded = 6
    DismStatePartiallyInstalled = 7
  End Enum

  Public Enum DismPackageIdentifier
    DismPackageNone = 0
    DismPackageName = 1
    DismPackagePath = 2
  End Enum

  Public Enum DismRestartType
    DismRestartNo = 0
    DismRestartPossible = 1
    DismRestartRequired = 2
  End Enum

  ' DISM API Structures
  <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=1)>
  Public Structure DismFeature
    Dim FeatureName As String
    Dim State As DismPackageFeatureState
  End Structure

  <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=1)>
  Public Structure DismFeatureInfo
    Dim FeatureName As String
    Dim State As DismPackageFeatureState
    Dim DisplayName As String
    Dim Description As String
    Dim RestartRequired As DismRestartType
    Dim CustomProperty As IntPtr
    Dim CustomPropertyCount As Integer
  End Structure

  ' DISM API Functions
  Public Declare Function DismCloseSession Lib "DismAPI" (ByVal Session As Integer) As Integer
  Public Declare Function DismDelete Lib "DismAPI" (ByVal DismStructure As IntPtr) As Integer
  Public Declare Unicode Function DismDisableFeature Lib "DismAPI" _
   (ByVal Session As Integer, ByVal FeatureName As String, ByVal PackageName As String, _
   ByVal RemovePayload As Boolean, ByVal CancelEvent As IntPtr, _
   ByVal Progress As DismProgressCallback, ByVal UserData As Object) As Integer
  Public Declare Unicode Function DismEnableFeature Lib "DismAPI" _
   (ByVal Session As Integer, ByVal FeatureName As String, ByVal Identifier As String, _
   ByVal PackageIdentifier As DismPackageIdentifier, ByVal LimitAccess As Boolean, _
   ByVal SourcePaths As String(), ByVal SourcePathCount As Integer, _
   ByVal EnableAll As Boolean, ByVal CancelEvent As IntPtr, _
   ByVal Progress As DismProgressCallback, ByVal UserData As Object) As Integer
  Public Declare Unicode Function DismGetFeatureInfo Lib "DismAPI" _
   (ByVal Session As Integer, ByVal FeatureName As String, ByVal Identifier As String, _
   ByVal PackageIdentifier As DismPackageIdentifier, ByRef FeatureInfo As IntPtr) As Integer
  Public Declare Unicode Function DismGetFeatureParent Lib "DismAPI" _
   (ByVal Session As Integer, ByVal FeatureName As String, ByVal Identifier As String, _
   ByVal PackageIdentifier As DismPackageIdentifier, ByRef Feature As IntPtr, ByRef Count As Integer) As Integer
  Public Declare Unicode Function DismGetFeatures Lib "DismAPI" _
   (ByVal Session As Integer, ByVal Identifier As String, _
   ByVal PackageIdentifier As DismPackageIdentifier, ByRef Feature As IntPtr, ByRef Count As Integer) As Integer
  Public Declare Unicode Function DismInitialize Lib "DismAPI" _
   (ByVal LogLevel As DismLogLevel, Optional ByVal LogFilePath As String = vbNullString, _
   Optional ByVal ScratchDirectory As String = vbNullString) As Integer
  Public Declare Unicode Function DismOpenSession Lib "DismAPI" _
   (ByVal ImagePath As String, ByVal WindowsDirectory As String, _
   ByVal SystemDrive As String, ByRef Session As Integer) As Integer
  Public Declare Function DismShutdown Lib "DismAPI" () As Integer

  ' A client-defined callback function that DISM API uses to report progress on time-consuming operations.
  Public Delegate Sub DismProgressCallback _
   (ByVal Current As Integer, ByVal Total As Integer, ByVal UserData As Object)

  Private Function FAILED(ByVal hr As Integer) As Boolean
    Return (hr < 0)
  End Function

  Public Function Dism_Start(ByRef err_text As String, _
   Optional ByVal LogFilePath As String = vbNullString, _
   Optional ByVal LogLevel As DismLogLevel = DismLogLevel.DismLogErrors) As Integer

    ' т.к. мы не закрываем sessionOnline_Dism, которую храним глобально и не выгружаем Dism
    ' необходимо вызвать Dism_Stop (в конце всех действий, чтоб не переоткрывать по 10 раз, тем более загрузка/выгрузка это ощутимое время)

    Dim hr As Integer = S_OK

    ' Initialize the API
    hr = DismInitialize(LogLevel, LogFilePath)
    If FAILED(hr) Then
      err_text = "DismInitialize Failed. Error " & RaiseAPIErrorByNumber(hr)
      Debug.Print(err_text)
      GoTo Cleanup
    End If

    ' Open a session against the running operating system (online image) 
    hr = DismOpenSession(DISM_ONLINE_IMAGE, vbNullString, vbNullString, sessionOnline_Dism)
    If FAILED(hr) Then
      err_text = "DismOpenSession Failed. Error " & RaiseAPIErrorByNumber(hr)
      Debug.Print(err_text)
      GoTo Cleanup
    End If

Cleanup:
    ' всю очистку делаем в Dism_Stop
    Return hr
  End Function

  Public Sub Dism_Stop()
    Dim hrLocal As Integer = S_OK

    ' Close the DismSession to free up resources tied to the online session
    hrLocal = DismCloseSession(sessionOnline_Dism)
    sessionOnline_Dism = DISM_SESSION_DEFAULT
    If FAILED(hrLocal) Then
      Debug.Print("DismCloseSession Failed. Error " & RaiseAPIErrorByNumber(hrLocal))
    End If

    ' Shutdown the DISM API to free up remaining resources
    hrLocal = DismShutdown()
    If FAILED(hrLocal) Then
      Debug.Print("DismShutdown Failed. Error " & RaiseAPIErrorByNumber(hrLocal))
    End If
  End Sub

  Public Function Dism_EnableWindowsFeature(ByRef err_text As String, _
   ByVal FeatureName As String, Optional ByVal bEnable As Boolean = True, _
   Optional ByVal ProgressCallback As DismProgressCallback = Nothing, _
   Optional ByVal UserData As Object = Nothing) As Integer

    Dim hr As Integer = S_OK
    Dim hrLocal As Integer = S_OK

    If bEnable Then
      ' Enable feature
      hr = DismEnableFeature(sessionOnline_Dism, FeatureName, vbNullString, _
       DismPackageIdentifier.DismPackageNone, False, Nothing, 0, True, IntPtr.Zero, _
       ProgressCallback, UserData)
      If FAILED(hr) Then
        err_text = "DismEnableFeature Failed. Error " & RaiseAPIErrorByNumber(hr)
        Debug.Print(err_text)
        GoTo Cleanup
      End If
    Else
      ' Disable feature
      hr = DismDisableFeature(sessionOnline_Dism, FeatureName, vbNullString, _
       False, IntPtr.Zero, ProgressCallback, UserData)
      If FAILED(hr) Then
        err_text = "DismDisableFeature Failed. Error " & RaiseAPIErrorByNumber(hr)
        Debug.Print(err_text)
        GoTo Cleanup
      End If
    End If

Cleanup:

    Return hr
  End Function

  Public Function Dism_GetWindowsFeatures(ByRef err_text As String, _
   ByRef Features() As DismFeature) As Integer

    Dim hr As Integer = S_OK
    Dim hrLocal As Integer = S_OK

    ' Get a list of all of the features
    Dim pFeatures As IntPtr = IntPtr.Zero
    Dim uiCount As Integer = 0
    hr = DismGetFeatures(sessionOnline_Dism, vbNullString, DismPackageIdentifier.DismPackageNone, pFeatures, uiCount)
    If FAILED(hr) Then
      err_text = "DismGetFeatures Failed. Error " & RaiseAPIErrorByNumber(hr)
      Debug.Print(err_text)
      GoTo Cleanup
    End If

    If uiCount = 0 Then GoTo Cleanup 'нет ни одной Feature

    ReDim Features(0 To uiCount - 1)
    If Is64bitProcess() Then
      For i As Integer = 0 To uiCount - 1
        Features(i) = CType(Marshal.PtrToStructure(New IntPtr(pFeatures.ToInt64 + i * Marshal.SizeOf(Features(0))), GetType(DismFeature)), DismFeature)
      Next
    Else
      For i As Integer = 0 To uiCount - 1
        Features(i) = CType(Marshal.PtrToStructure(New IntPtr(pFeatures.ToInt32 + i * Marshal.SizeOf(Features(0))), GetType(DismFeature)), DismFeature)
      Next
    End If

Cleanup:
    ' Delete the memory associated with the objects that were returned
    hrLocal = DismDelete(pFeatures)
    If FAILED(hrLocal) Then
      Debug.Print("DismDelete Failed. Error " & RaiseAPIErrorByNumber(hrLocal))
    End If

    Return hr
  End Function

  Public Function Dism_GetWindowsFeatureInfo(ByRef err_text As String, _
   ByVal FeatureName As String, ByRef FeatureInfo As DismFeatureInfo) As Integer

    Dim hr As Integer = S_OK
    Dim hrLocal As Integer = S_OK

    ' Get the feature info for FeatureName
    Dim pFeatureInfo As IntPtr = IntPtr.Zero
    hr = DismGetFeatureInfo(sessionOnline_Dism, FeatureName, vbNullString, _
     DismPackageIdentifier.DismPackageNone, pFeatureInfo)
    If FAILED(hr) Then
      err_text = "DismGetFeatureInfo Failed. Error " & RaiseAPIErrorByNumber(hr)
      Debug.Print(err_text)
      GoTo Cleanup
    End If
    FeatureInfo = CType(Marshal.PtrToStructure(pFeatureInfo, GetType(DismFeatureInfo)), DismFeatureInfo)

Cleanup:
    ' Delete the memory associated with the objects that were returned
    hrLocal = DismDelete(pFeatureInfo)
    If FAILED(hrLocal) Then
      Debug.Print("DismDelete Failed. Error " & RaiseAPIErrorByNumber(hrLocal))
    End If

    Return hr
  End Function

  Public Function Dism_GetWindowsFeatureParent(ByRef err_text As String, _
   ByVal FeatureName As String, ByRef Features() As DismFeature) As Integer

    Dim hr As Integer = S_OK
    Dim hrLocal As Integer = S_OK

    ' Get a list of parent features
    Dim pFeatures As IntPtr = IntPtr.Zero
    Dim uiCount As Integer = 0
    hr = DismGetFeatureParent(sessionOnline_Dism, FeatureName, vbNullString, DismPackageIdentifier.DismPackageNone, _
     pFeatures, uiCount)
    If FAILED(hr) Then
      err_text = "DismGetFeatures Failed. Error " & RaiseAPIErrorByNumber(hr)
      Debug.Print(err_text)
      GoTo Cleanup
    End If

    If uiCount = 0 Then GoTo Cleanup 'нет ни одной Feature

    ReDim Features(0 To uiCount - 1)
    If Is64bitProcess() Then
      For i As Integer = 0 To uiCount - 1
        Features(i) = CType(Marshal.PtrToStructure(New IntPtr(pFeatures.ToInt64 + i * Marshal.SizeOf(Features(0))), GetType(DismFeature)), DismFeature)
      Next
    Else
      For i As Integer = 0 To uiCount - 1
        Features(i) = CType(Marshal.PtrToStructure(New IntPtr(pFeatures.ToInt32 + i * Marshal.SizeOf(Features(0))), GetType(DismFeature)), DismFeature)
      Next
    End If

Cleanup:
    ' Delete the memory associated with the objects that were returned
    hrLocal = DismDelete(pFeatures)
    If FAILED(hrLocal) Then
      Debug.Print("DismDelete Failed. Error " & RaiseAPIErrorByNumber(hrLocal))
    End If

    Return hr
  End Function

End Module

  Public Function Dism_GetWindowsFeatureFullList(ByRef err_text As String, ByVal FeatureName As String, _
   ByRef FeatureList As String, Optional ByVal bNotInstalledOnly As Boolean = False) As Integer

    'Возвращает строку фич FeatureList через ';', включая FeatureName и все Parent, причем Parent всегда стоит перед Child
    'bNotInstalledOnly -добавлять в строку только те фичи, которые еще не установлены

    Dim hr As Integer = S_OK

    Dim FeatureInfo As New DismFeatureInfo
    hr = Dism_GetWindowsFeatureInfo(err_text, FeatureName, FeatureInfo)
    If FAILED(hr) = False Then
      Dim Features() As DismFeature = Nothing
      hr = Dism_GetWindowsFeatureParentList(err_text, FeatureName, Features)
      If FAILED(hr) Then Return hr 'ошибок не допускаем
      ' теперь добавляем себя в самый конец
      If IsNothing(Features) Then
        ReDim Features(0 To 0)
        Debug.Print(FeatureInfo.FeatureName)
        Features(0).FeatureName = FeatureInfo.FeatureName
        Features(0).State = FeatureInfo.State
      Else
        For j As Integer = 0 To UBound(Features)
          If Features(j).FeatureName = FeatureInfo.FeatureName Then 'фича уже есть ранее в списке(теоретически может быть, хотя вряд ли)
            Debug.Print(FeatureInfo.FeatureName & " (skipped)")
            GoTo NoNeedToAdd
          End If
        Next
        ReDim Preserve Features(0 To UBound(Features) + 1)
        Debug.Print(FeatureInfo.FeatureName)
        Features(UBound(Features)).FeatureName = FeatureInfo.FeatureName
        Features(UBound(Features)).State = FeatureInfo.State
NoNeedToAdd:
      End If
      ' теперь составляем строку фич через ';', причем Parent всегда оказывается впереди child
      Debug.Print("Final list of features:")
      For i = 0 To UBound(Features)
        If bNotInstalledOnly AndAlso Features(i).State = DismPackageFeatureState.DismStateInstalled Then
          Debug.Print(Features(i).FeatureName & " (already installed)")
        Else
          Debug.Print(Features(i).FeatureName & " (OK)")
          FeatureList = AddUsingDelimiter(Features(i).FeatureName, FeatureList, ";")
        End If
      Next
    End If

    Return hr
  End Function

  Public Function Dism_GetWindowsFeatureParentList(ByRef err_text As String, ByVal FeatureName As String, _
   ByRef Features() As DismFeature) As Integer

    'Возвращает массив Features() всех Parent, Parent всегда стоит перед Child, работает рекурсивно
    'Одна и та же фича не может быть добавлена более одного раза

    Dim hr As Integer = S_OK

    Dim FeaturesParent() As DismFeature = Nothing
    hr = Dism_GetWindowsFeatureParent(err_text, FeatureName, FeaturesParent)
    If FAILED(hr) = False Then
      If IsNothing(FeaturesParent) = False Then
        For i As Integer = 0 To UBound(FeaturesParent)
          'сначала добавится родитель
          hr = Dism_GetWindowsFeatureParentList(err_text, FeaturesParent(i).FeatureName, Features)
          If FAILED(hr) Then Return hr 'ошибок не допускаем
          'потом добавляем себя (т.е. родитель в списке всегда стоит раньше child)
          If IsNothing(Features) Then
            ReDim Features(0 To 0)
            Debug.Print(FeaturesParent(i).FeatureName)
            Features(0) = FeaturesParent(i)
          Else
            For j As Integer = 0 To UBound(Features)
              If Features(j).FeatureName = FeaturesParent(i).FeatureName Then 'фича уже есть ранее в списке
                Debug.Print(FeaturesParent(i).FeatureName & " (skipped)")
                GoTo NoNeedToAdd
              End If
            Next
            ReDim Preserve Features(0 To UBound(Features) + 1)
            Debug.Print(FeaturesParent(i).FeatureName)
            Features(UBound(Features)) = FeaturesParent(i)
NoNeedToAdd:
          End If
        Next
      End If
    End If

    Return hr
  End Function

End Module