<?xml version="1.0" encoding="windows-1251" standalone="yes"?>
<?component error="true" debug="true"?>

<component>
<comment> --------------------------------------- </comment>
<comment> Создаём компонент с именем которое булет иметь при создании объекта COM </comment>
<comment> и под которым оно зарегестрируется для COM </comment>
<comment> --------------------------------------- </comment>

<registration progid="Server_Trye.Explorer"/>

<comment> --------------------------------------- </comment>
<comment> обозначаем как PUBLIC все функции и процедуры, что бы их вызывали стороние проги </comment>
<comment> --------------------------------------- </comment>

<public>
    <method name="Get_t"/>
</public>

<comment> --------------------------------------- </comment>
<comment> объявляем переменную, ShellWindows_ как объект "Shell.Application" </comment>
<comment> За счёт такого объявления всё процедуры и функции его будут иметь</comment>
<comment> Т.е. она будет для этого скрипта как глобальная переменная</comment>
<comment> --------------------------------------- </comment>
<object id="ShellWindows_" progid="Shell.Application"/>


<comment> --------------------------------------- </comment>
<comment> Элемент 'implements' задаёт обработчик COM-интерфейса для компонента </comment>
<comment> скрипта, определяя тип COM-компонента, которым будет являться компонент </comment> 
<comment> скрипта. Например, указав 'implements type=ASP', вы реализуете обработчик  </comment>
<comment> интерфейса ASP и, следовательно, получаете доступ к объектной модели ASP в  </comment>
<comment> вашем компоненте скрипта. От себя. Короче- пусть будет</comment>
<comment> --------------------------------------- </comment>
<implements type="ASP"/>


<comment> --------------------------------------- </comment>
<comment> Всё. на этом абракадабровый код закончен, и перехоит в банальный VBScript</comment>
<comment> --------------------------------------- </comment>

<script language="VbScript"><![CDATA[

'------------ настоящий VBS скрипт. Изголяйся как хочешь, и не надо знать всякие теги и т.д.

'--------------------------------------------------------
Dim My_type_
'--------------------------------------------------------

'--------------------------------------------------------
'--объявляется все перменные и назначается объект который был 
' -обозначен как глобальный (см выше). И который имеет свойтсво Windows    
'--------------------------------------------------------
Dim W_,w,Get_
Set W_=ShellWindows_.Windows
'--------------------------------------------------------

'--------------------------------------------------------
' -Каждая функция GET и PUT сама делает поиск в прогах имени "tray" (см VBS скрипт)
' - VBS скрипт в эти функции посылает имя которое необходимо искать в прогах.    
' - Когда находит, то начинает по первой переменной COUNT делать цикл перебор всех имён key в Dictionary
' - Читая по ним данные. 
'--------------------------------------------------------
'==============GET==========================
Function Get_t(Byval name,Byval Key_) 
        For Each w in W_
            if Instr(1,w.StatusText,name) = 1 Then
'--------------------------------------------------------
'- Устанавливаем тип объекта который получили от проводника
'- и объявляем его, конечно мы знаем его, но вот так можно автоматом узнать что там за объект 
'- VBS автоматом узнаёт что за объект и назначает его переменной
'--------------------------------------------------------
Set My_type_= w.GetProperty(Key_)

'--------------------------------------------------------
'- возвращаем весь объект Dictionary
'--------------------------------------------------------
Set Get_t = My_type_
'--------------------------------------------------------
	exit function
	end if	
	next
end function



'--------------------------------------------------------
' - функция PUT в WSC файле мне не нужна. Поэтому я её не писал тут
'==============PUT==========================
'--------------------------------------------------------

]]>
</script>

<comment> --------------------------------------- </comment>
<comment> На этом теге заканчивается тег со скриптами</comment>
<comment> --------------------------------------- </comment>

</component>

'============================
'- В командной строк от админа
'============================
'- регистрация WSC 
'============================
'C:\Windows\system32>regsvr32    scrobj.dll /n /i:file:\\полный путь к файлу wsc\ИМЯ файла .wsc
'============================
'- удвление регистрации WSC 
'============================
'C:\Windows\system32>regsvr32    scrobj.dll /u /i:file:\\полный путь к файлу wsc\ИМЯ файла .wsc
' - При этом происходит полностью провера кода в WSC файле. И если там ошибка, то будет сообщние где ошибка.
'- И при этом удаление регистрации не происходит. Пока не исправите ошибку регистрация и ужаление её не произойдёт  '============================


Option Explicit
'============================

'============================
'- объявляются переменные
'============================
Private ShellWindow, ShellWindows, T_, name_, Me_T ,One_
'============================

'============================
'- назначаем переменную "Me_T", как Dictionary
'============================
set Me_T=CreateObject("Scripting.Dictionary")

'============================

'============================
'- Глобальное имя свойства в переменной name_
'============================
name_="tray" 
'============================
'- самый первый key в свойтсвах проводника 
'============================
One_="0"
'============================

'============================
' - посылаем в процедуру запись/поиска в проводник свойства в глобальной переменной name_
'============================
Call OpenContainer (name_) 
'============================

'============================
'-- Записываем  данные значения , 
'-  key и значения в Dictionary
'============================
Me_T.add "test", "34345"
Me_T.add "fso" , "dfvddg"
Me_T.add "1" , "2342242"
Me_T.add "ааа" , "3рет67о"
Me_T.add "123_цуц" , "111111111111"
Me_T.add "гг577HHH" , "ЛЛЛ РРРР"
'============================

'============================
'-посылаем весь объект Dictionary с данными для записи  в проводник, c key = "0" раной переменной One_
'- это будет всего одна запись но со всем объектом сразу и с его содержимом 
'============================
call N (One_, Me_T) 
'============================

'============================
'-Процедура первой записи (name name_="tray") в проводник свойтсва которое потом 
'-будет как метка для поиска его во всех прогах в винде. 
'============================
    Sub OpenContainer(name)
        Dim ShellWindows
        Set ShellWindows = CreateObject("Shell.Application").Windows '-оюъявдяется как прога в вине.
        For Each ShellWindow in ShellWindows '- перебор всех прог в вине
'============================
'-поиск в прогах в свойтве её, имени которое имеет переменная name
'- Если имя совпало, то останавливается поиск и переменная ShellWindow назначается 
'-той прогой, в которой нашли это своёство с этим именем
'============================
            if Instr(1,ShellWindow.StatusText,name) = 1 Then Exit Sub 
         Next
'============================
'- Если ничего не нашли, то создаём и записываем это свойство в проводник.
'============================
        Set ShellWindow = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") 
        ShellWindow.StatusText = name
    End Sub

'============================
'-Процедура записи в проводник 
'============================
Sub N(name, newValue)
        ShellWindow.PutProperty name, newValue
End Sub
'============================
   
'============================
'-объявляется объект WSC 
'============================
Set T_ = CreateObject("Server_Trye.Explorer") 
'============================

Dim O_,K_,v_,x

'============================
'-читается из объекта WSC, то что он прочёл в проводнике.
'- посылаем туда  имя свойства проги в которой эта запись есть. 
'- и посылаем первое имя которое там записано (переменная One_), 
' - По этому имени будут искаться наш Объект Distionary 
' - И При возврате  Устанавливаем тип объекта который получили от проводника
'- и объявляем его, конечно мы знаем его, но вот так можно автоматом узнать что там за объект 
'- и записываем весь объект вместе с данными в свою переменную 
'- VBS автоматом узнаёт что за объект и назначает его переменной
'============================
set O_=T_.Get_t(name_,One_)
K_=O_.keys
V_=O_.items
'============================
'- Читаем все данные
'============================
For x=0 to O_.count-1
msgbox "Key= " & K_(x) & " значение= " & V_(x)
next
'============================
' - А т.к. в exe(VB.NET) будет включон объект WSC то он(WSC) будет отдавать exe из себя то что лежало в 'проводнике. 
'============================

Option Explicit
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

CompileTrayApp

Dim sTrayExePath: sTrayExePath = fso.GetFile(WScript.ScriptFullName).ParentFolder & "\TrayApp.exe"
If fso.FileExists(sTrayExePath) Then
    Dim shell: Set shell = CreateObject("WScript.Shell")
    shell.Run """" & sTrayExePath & """ """ & WScript.ScriptFullName & """", 0, False
End If

Log "Script started"
WScript.Sleep 2000

Log "Doing something 1..."
WScript.Sleep 5000

Log "Doing something 2..."
WScript.Sleep 5000

MsgBox "Done"
Log "Done"

'===============================================
Sub Log(sMsg)
    Dim log: Set log = fso.OpenTextFile(WScript.ScriptFullName & ".log", 8, True)
    log.WriteLine Now & " - " & sMsg
    log.Close

    If fso.FileExists(sTrayExePath) Then
        Dim f: Set f = fso.CreateTextFile(WScript.ScriptFullName & ".tray", True)
        f.WriteLine sMsg
        f.Close
    End If
End Sub

Sub CompileTrayApp

    Dim outFolder: outFolder = fso.GetParentFolderName(WScript.ScriptFullName)
    Dim programPath: programPath = outFolder & "\Program.vb" 
    Dim trayAppPath: trayAppPath = outFolder & "\TrayApp.vb"
    Dim exePath: exePath = outFolder & "\TrayApp.exe"

    If fso.FileExists(exePath) Then
        'WScript.Echo "TrayApp.exe already exists"
        Exit Sub
    End If

    Dim sVbcPath: sVbcPath = GetLatestVbcPath()
    If sVbcPath = "" Then
        WScript.Echo "Could not find VB.NET Complier (vbc.exe)"
        Exit Sub
    End If

    ' === Write Program.vb ===
    Dim s
    s = "Imports System.Windows.Forms" & vbCrLf
    s = s & "Imports System.Management" & vbCrLf
    s = s & "" & vbCrLf
    s = s & "Module Program" & vbCrLf
    s = s & "    Function GetScriptProcessId(scriptPath As String) As Integer" & vbCrLf
    s = s & "        Dim query As String = ""SELECT ProcessId, CommandLine FROM Win32_Process WHERE Name = 'wscript.exe' OR Name = 'cscript.exe'""" & vbCrLf
    s = s & "        Dim searcher As New ManagementObjectSearcher(query)" & vbCrLf
    s = s & "        For Each proc As ManagementObject In searcher.Get()" & vbCrLf
    s = s & "            Dim cmd As String = proc(""CommandLine"")" & vbCrLf
    s = s & "            If Not cmd Is Nothing Then" & vbCrLf
    s = s & "                cmd = cmd.ToLower()" & vbCrLf
    s = s & "                If cmd.Contains(scriptPath.ToLower()) Then" & vbCrLf
    s = s & "                    Return Convert.ToInt32(proc(""ProcessId""))" & vbCrLf
    s = s & "                End If" & vbCrLf
    s = s & "            End If" & vbCrLf
    s = s & "        Next" & vbCrLf
    s = s & "        Return -1" & vbCrLf
    s = s & "    End Function" & vbCrLf
    s = s & "" & vbCrLf
    s = s & "    Sub Main()" & vbCrLf
    s = s & "        Application.EnableVisualStyles()" & vbCrLf
    s = s & "        Application.SetCompatibleTextRenderingDefault(False)" & vbCrLf
    s = s & "        Dim args As String() = Environment.GetCommandLineArgs()" & vbCrLf
    s = s & "        If args.Length < 2 Then" & vbCrLf
    s = s & "            MessageBox.Show(""Expected VBS path as argument."", ""Error"")" & vbCrLf
    s = s & "            Return" & vbCrLf
    s = s & "        End If" & vbCrLf
    s = s & "        Dim scriptPath As String = args(1)" & vbCrLf
    s = s & "        Dim pid As Integer = GetScriptProcessId(scriptPath)" & vbCrLf
    s = s & "        If pid = -1 Then" & vbCrLf
    s = s & "            MessageBox.Show(""Could not find WScript process for: "" & scriptPath)" & vbCrLf
    s = s & "            Return" & vbCrLf
    s = s & "        End If" & vbCrLf
    s = s & "        Dim trayApp As New TrayApp(scriptPath, pid)" & vbCrLf
    s = s & "        Application.Run()" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "End Module" & vbCrLf

    With fso.CreateTextFile(programPath, True)
        .Write s
        .Close
    End With

    ' === Write TrayApp.vb ===
    s = "Imports System.Drawing" & vbCrLf
    s = s & "Imports System.IO" & vbCrLf
    s = s & "Imports System.Windows.Forms" & vbCrLf
    s = s & "Imports System.Diagnostics" & vbCrLf
    s = s & "Imports System.Timers" & vbCrLf
    s = s & "" & vbCrLf
    s = s & "Public Class TrayApp" & vbCrLf
    s = s & "    Private trayIcon As NotifyIcon" & vbCrLf
    s = s & "    Private trayMenu As ContextMenuStrip" & vbCrLf
    s = s & "    Private fileWatcher As FileSystemWatcher" & vbCrLf
    s = s & "    Private vbsPath As String" & vbCrLf
    s = s & "    Private trayPath As String" & vbCrLf
    s = s & "    Private logPath As String" & vbCrLf
    s = s & "    Private parentPID As Integer" & vbCrLf
    s = s & "    Private checkProcessTimer As System.Timers.Timer" & vbCrLf
    s = s & "" & vbCrLf
    s = s & "    Public Sub New(vbsFullPath As String, pid As Integer)" & vbCrLf
    s = s & "        vbsPath = vbsFullPath" & vbCrLf
    s = s & "        parentPID = pid" & vbCrLf
    s = s & "        trayPath = vbsPath & "".tray""" & vbCrLf
    s = s & "        logPath = vbsPath & "".log""" & vbCrLf
    s = s & "        If File.Exists(trayPath) Then File.Delete(trayPath)" & vbCrLf
    s = s & "        If File.Exists(logPath) Then File.Delete(logPath)" & vbCrLf
    s = s & "        trayMenu = New ContextMenuStrip()" & vbCrLf
    s = s & "        trayMenu.Items.Add(""About"", Nothing, AddressOf ShowAbout)" & vbCrLf
    s = s & "        trayMenu.Items.Add(""Log"", Nothing, AddressOf ShowLog)" & vbCrLf
    s = s & "        trayMenu.Items.Add(""Exit"", Nothing, AddressOf ExitApp)" & vbCrLf
    s = s & "        trayIcon = New NotifyIcon()" & vbCrLf
    s = s & "        trayIcon.Text = vbsPath" & vbCrLf
    s = s & "        trayIcon.Icon = System.Drawing.Icon.ExtractAssociatedIcon(""C:\Windows\System32\wscript.exe"")" & vbCrLf 'SystemIcons.Application
    s = s & "        trayIcon.ContextMenuStrip = trayMenu" & vbCrLf
    s = s & "        trayIcon.Visible = True" & vbCrLf
    s = s & "        AddHandler trayIcon.DoubleClick, AddressOf OnTrayIconDoubleClick" & vbCrLf
    s = s & "        Dim trayDir = Path.GetDirectoryName(trayPath)" & vbCrLf
    s = s & "        Dim trayFile = Path.GetFileName(trayPath)" & vbCrLf
    s = s & "        If Directory.Exists(trayDir) Then" & vbCrLf
    s = s & "            fileWatcher = New FileSystemWatcher(trayDir, trayFile)" & vbCrLf
    s = s & "            AddHandler fileWatcher.Changed, AddressOf OnTrayFileChanged" & vbCrLf
    s = s & "            AddHandler fileWatcher.Created, AddressOf OnTrayFileChanged" & vbCrLf
    s = s & "            fileWatcher.EnableRaisingEvents = True" & vbCrLf
    s = s & "        End If" & vbCrLf
    s = s & "        checkProcessTimer = New System.Timers.Timer(5000)" & vbCrLf
    s = s & "        AddHandler checkProcessTimer.Elapsed, AddressOf CheckParentProcess" & vbCrLf
    s = s & "        checkProcessTimer.Start()" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "    Private Sub ShowLog(sender As Object, e As EventArgs)" & vbCrLf
    s = s & "        If File.Exists(logPath) Then Process.Start(""notepad.exe"", logPath)" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "    Private Sub ShowAbout(sender As Object, e As EventArgs)" & vbCrLf
    s = s & "        MessageBox.Show(vbsPath, ""About"")" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "    Private Sub ExitApp(sender As Object, e As EventArgs)" & vbCrLf
    s = s & "       Try" & vbCrLf
    s = s & "           Dim parentProc As Process = Process.GetProcessById(parentPID)" & vbCrLf
    s = s & "           parentProc.Kill()" & vbCrLf
    s = s & "       Catch ex As Exception" & vbCrLf
    s = s & "       End Try" & vbCrLf
    s = s & "        trayIcon.Visible = False" & vbCrLf
    s = s & "        If fileWatcher IsNot Nothing Then fileWatcher.EnableRaisingEvents = False" & vbCrLf
    s = s & "        If checkProcessTimer IsNot Nothing Then checkProcessTimer.Stop()" & vbCrLf
    s = s & "        Application.Exit()" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "    Private Sub OnTrayIconDoubleClick(sender As Object, e As EventArgs)" & vbCrLf
    s = s & "        If File.Exists(logPath) Then Process.Start(""notepad.exe"", logPath)" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "    Private Sub OnTrayFileChanged(sender As Object, e As FileSystemEventArgs)" & vbCrLf
    s = s & "        Try" & vbCrLf
    s = s & "            Threading.Thread.Sleep(100)" & vbCrLf
    s = s & "            Dim content = File.ReadAllText(trayPath).Trim()" & vbCrLf
    s = s & "            If content.ToLower() = ""done"" Then" & vbCrLf
    s = s & "                ExitApp(Nothing, Nothing)" & vbCrLf
    s = s & "            Else" & vbCrLf
    s = s & "                trayIcon.BalloonTipTitle = ""Update from "" & Path.GetFileName(vbsPath)" & vbCrLf
    s = s & "                trayIcon.BalloonTipText = content" & vbCrLf
    s = s & "                trayIcon.ShowBalloonTip(3000)" & vbCrLf
    s = s & "            End If" & vbCrLf
    s = s & "        Catch ex As Exception" & vbCrLf
    s = s & "        End Try" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "    Private Sub CheckParentProcess(sender As Object, e As ElapsedEventArgs)" & vbCrLf
    s = s & "        Try" & vbCrLf
    s = s & "            Dim running = Process.GetProcesses().Any(Function(p) p.Id = parentPID)" & vbCrLf
    s = s & "            If Not running Then ExitApp(Nothing, Nothing)" & vbCrLf
    s = s & "        Catch" & vbCrLf
    s = s & "            ExitApp(Nothing, Nothing)" & vbCrLf
    s = s & "        End Try" & vbCrLf
    s = s & "    End Sub" & vbCrLf
    s = s & "End Class" & vbCrLf

    With fso.CreateTextFile(trayAppPath, True)
        .Write s
        .Close
    End With

    Dim shell: Set shell = CreateObject("WScript.Shell")
    Dim cmd: cmd = """" & sVbcPath & """ /target:winexe /reference:System.Management.dll /out:""" & exePath & """ """ & programPath & """ """ & trayAppPath & """"
    shell.Run cmd, 0, True

    fso.DeleteFile programPath
    fso.DeleteFile trayAppPath
End Sub

Function GetLatestVbcPath()
    Dim baseKey, versions, v, bestVer, bestPath, dir
    Dim candidates: candidates = Array("C:\Windows\Microsoft.NET\Framework64", "C:\Windows\Microsoft.NET\Framework")
    bestVer = 0
    bestPath = ""

    For Each dir In candidates
        If fso.FolderExists(dir) Then
            Set versions = fso.GetFolder(dir).SubFolders
            For Each v In versions
                If LCase(Left(v.Name, 1)) = "v" Then
                    Dim fullPath, vbcPath, numVer
                    vbcPath = dir & "\" & v.Name & "\vbc.exe"
                    If fso.FileExists(vbcPath) Then
                        numVer = CSng(Replace(Mid(v.Name, 2), ".", ",")) ' e.g., v4.0.30319 = 4.0
                        If numVer > bestVer Then
                            bestVer = numVer
                            bestPath = vbcPath
                        End If
                    End If
                End If
            Next
        End If
    Next
    GetLatestVbcPath = bestPath
End Function

IO Ports 
& Initial Display Output
Speciies the irst initiation of	the monitor display from the installed PCI Express graphics card or the	onboard	
graphics.
(Note)
 Sets the onboard graphics as the irst display.
------ что в переводе означает -------
Порты ввода-вывода
и начальный вывод изображения
Указывает на первое включение монитора с установленной видеокарты PCI Express или встроенной графики.
(Примечание)
Устанавливает встроенную графику в качестве первого дисплея.
------------

PCIe 1 Slot Sets the graphics card on the PCIEX16 slot as the irst display.(Default)
 This item is conigurable only when CSM Support is set to Enabled.
CSM Support
Enables or disables UEFI CSM (Compatibility Support Module) to support a legacy PC boot process.
Disabled  Disables UEFI CSM and supports UEFI BIOS boot process only. (Default)
---------- Перевод--------
Слот PCIe 1. Устанавливает видеокарту в слоте PCIEX16 в качестве первого дисплея. (По умолчанию)
Этот параметр можно настроить только в том случае, если для параметра «Поддержка CSM» установлено значение «Включено».
Поддержка CSM
Включает или отключает UEFI CSM (модуль поддержки совместимости) для поддержки процесса загрузки устаревшего ПК.
Отключено. Отключает UEFI CSM и поддерживает только процесс загрузки UEFI BIOS. (По умолчанию)
--------
 

Disabled      Disables UEFI CSM and supports UEFI BIOS boot process only. (Default)
   Enabled      Enables UEFI CSM.
Storage Boot Option Control
  Allows you to select whether to enable the UEFI or legacy option ROM for the storage device controller.
   Do not launch    Disables option ROM.
   UEFI        Enables UEFI option ROM only.
   Legacy      Enables legacy option ROM only. (Default)
	 This	item	is	conigurable	only	when	CSM Support is set to Enabled.
  & Other PCI devices
  Allows you to select whether to enable the UEFI or Legacy option ROM for the PCI device controller other 
than the LAN, storage device, and graphics controllers.
   Do not launch    Disables option ROM.
   UEFI        Enables UEFI option ROM only. (Default)
   Legacy      Enables legacy option ROM only.
	 This	item	is	conigurable	only	when	CSM Support is set to Enabled.
---------------- перевод ----------
Отключено Отключает UEFI CSM и поддерживает только процесс загрузки UEFI BIOS. (По умолчанию)
Включено Включает UEFI CSM.
Управление параметрами загрузки хранилища
Позволяет выбрать, следует ли включить UEFI или устаревшее ПЗУ для контроллера устройства хранения данных.
Не запускать Отключает ПЗУ параметров.
UEFI Включает только ПЗУ параметров UEFI.
Legacy Включает только устаревшее ПЗУ параметров. (По умолчанию)
Этот параметр можно настроить только при включенной поддержке CSM.
и другие устройства PCI
Позволяет выбрать, следует ли включить UEFI или устаревшее ПЗУ параметров для контроллера устройства PCI, отличного от контроллеров LAN, устройства хранения данных и графического контроллера.
Не запускать Отключает ПЗУ параметров.
UEFI Включает только ПЗУ параметров UEFI. (По умолчанию)
Legacy Включает только устаревшее ПЗУ параметров.
Этот параметр можно настроить только при включенной поддержке CSM.

---------

Secure Boot
 Allows	you	to	enable	or	disable	Secure	Boot	and	conigure	related	settings.	This	item	is	conigurable	only	
when CSM Support is set to Disabled.
----- перевод -------
Безопасная загрузка
Позволяет включить или отключить безопасную загрузку и настроить связанные с ней параметры. Этот параметр настраивается только
когда для параметра «Поддержка CSM» установлено значение «Отключено».
---------

asmedia_RaidMan_3.130.zip (size=1752kb)
Я качал из station-drives.com

Diskpart
lis vol
[i] У вас будет список букв дисков и их имена. И вы увидите вашу  метку «RAID1». Предположим что эта метка «RAID1» имеет том под номером 2. Пишем [/i]  
Sel disk 2
[i] Этим способом выбора диска через метку, гарантирует вам что вы не попортите другой ваш диск, а выберите именно ваш новый SSD RAID1. Пишем [/i]
Clean
Convert mbr
create partition primary size=100
format quick fs=fat32 label="SYSTEM"

[i] Вот тут мне надо пояснить вам. В стандартном варианте, файловая система в загрузчике MBR форматируется в NTFS. Если его форматнуть в NTFS то вы не сможете делать полноценные меню  к закладкам. Поэтому что бы мне обеспечить изготовление меню по закладкам я форматирую в файловую сиcтему загрузчик в  FAT32 . Пишем [/i]
assign letter="S"
active
create partition primary
format quick fs=ntfs label="RAID1"
assign letter="Y"
lis vol

[i] Ищите свой диск SSD в котором лежат ваши файлы VHDX (первая мама «w10.vhdx» и МЕНЮ «boot_menu.vhdx»). Предположим они лежат на диске «F» Пишем [/i]
exit

[i] Копируем чистую маму с w10 [/i]
copy     f:\ w10.vhdx    Y:\ w10.vhdx
[i] Копируем закладку от мамы «МЕНЮ» [/i]
copy     f:\ boot_menu.vhdx    Y:\ boot_menu.vhdx

[i] После того как всё скопируется, пишем [/i]
 
diskpart
sel      vdisk      file     Y:\ boot_menu.vhdx
attach
lis  vol 
[i] Ищите свой диск который имеет метку сделанную вами ранее при развороте win10 в vhdx файл «w10_vhdx».  Предположим он имеет букву «D» Пишем [/i]
exit

cd    /d     d:\windows\system32
bcdboot
bcdboot   d:\windows   /s    S:
bcdboot   d:\windows   /s    S:  /f    BIOS
[i] Прога напишет что она записала загрузчик. [/i]

diskpart
lis disk
[i] ищем наш чистый SSD диск. Смотрим его номер. пишем [/i]
sel disk 2 - номер вашего диска.
clean
convert gpt
create partition efi size=100
format fs=fat32 quick label=SYSTEM
create partition msr size=128
create partition primary
format fs=ntfs quick label="SSD_vhdx"
assign letter=D
  
create vdisk file=D:\w10.vhdx maximum=50000 type=EXPANDABLE 
attach vdisk
clean
convert gpt
create partition primary
format fs=ntfs  quick label="w10_vhdx"
assign letter=M
exit

{c12a7328-f81f-11d2-ba4b-00a0c93ec93b}

Dism   /Get-ImageInfo   /ImageFile:N:\sources\install.wim
[i]Если прога напишет ошибку, то пишите так->[/i]
Dism   /Get-ImageInfo   /ImageFile:N:\sources\install.esd

Dism   /Apply-Image   /ImageFile:N:\sources\install.wim /index:2  /ApplyDir:M:\
[i]Если прога напишет ошибку, то пишите так ->[/i]
Dism   /Apply-Image   /ImageFile:I:\sources\install.esd /index:2  /ApplyDir:M:\

diskpart
lis vol
[i]ищем букву нашего диска, в котором находится наш vhdx файл. И  кстати ваш этот ssd имеет метку диска «SSD_vhdx» (см выше код). предположим эта буква «D».  Пишем [/i]
sel vdisk file=d:\w10.vhdx 
attach vdisk
lis vol
[i]ищем букву нашего развёрнутого диска, в котором находится наша ОС W10, Обычно такой диск будет последний в списке. Его можно узнать по метке диска «w10_vhdx». Предположим эта буква «H». Пишем [/i]
exit

 cd   /d   h:\windows\system32
[i]система вас переместит в каталог «system32» вашего vhdx диска. пишем и жмем интер[/i]
bcdboot
[i]прога вам покажет весь хелп как правильно писать. Пишем[/i]
bcdboot    h:\windows /m  {c12a7328-f81f-11d2-ba4b-00a0c93ec93b}

 \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control]
"BootDriverFlags"=dword:0000001c

diskpart
sel vdisk file=d:\w10.vhdx
compact vdisk
[i] Устанавливаем атрибут на маму файл vhdx «только чтение». Именно поэтому вирусы этой «маме» пофигу.[/i]
attributes disk set readonly
create vdisk file=d:\bott_menu.vhdx parent=d:\w10.vhdx
attach vdisk
lis vol
[i] Ищем букву нашего vhdx диска. У него должен быть метка диска как «w10_vhdx» от мамы. И теперь все при все закладки будут иметь метку «w10_vhdx» и будут иметь 50 гиговый размер. Но этот размер можно в конкретной закладки изменить. Но только уменьшить. Что я вам и советую в МЕНЮ диска сделать. Потому что нам в меню диска нафиг не надо иметь 50 гиг размер. Причём когда разворачивается (загружается) любой vhdx диск он всегда будет иметь размер 50 гиг от мамы. [/i]    
exit

Bcdedit   /v

Загрузка Windows
-------------------
идентификатор   {da645bfd-d32e-11f0-aa42-bce30ed9d327}
device   “vhd=C: \w10.vhdx  ……

Bcdedit  /set    ВАШ_КОД   device vhd=c:\boot_menu.vhdx 

Bcdedit  /set   {da645bfd-d32e-11f0-aa42-bce30ed9d327}  device          vhd=c:\boot_menu.vhdx 

Загрузка Windows
-------------------
идентификатор           {da645bf7-d32e-11f0-aa42-bce30ed9d327}
device                  vhd=[Y:]\boot_menu.vhdx,locate=custom:12000002 

Bcdedit  /set   {da645bfd-d32e-11f0-aa42-bce30ed9d327}  osdevice          vhd=c:\boot_menu.vhdx 

osdevice                vhd=[Y:]\boot_menu.vhdx,locate=custom:22000002

Отключение
DISM /Online /Set-ReservedStorageState /State:Disabled
Включение
DISM /Online /Set-ReservedStorageState /State:Enabled
 

@echo off 
bcdedit /set {bootmgr} displaybootmenu yes
bcdedit /set {default} bootmenupolicy legacy
timeout 5
exit

@echo off 
bcdedit /set {bootmgr} displaybootmenu yes
bcdedit /set {default} bootmenupolicy standart
timeout 5
exit