Win10+ Setup Disk (Works with UEFI Secure Boot / BIOS / Install.wim over 4 GB)

More changes to the combo box

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@set "__CMD__=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex([io.file]::ReadAllText(\"%~f0\"))" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole(544))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process cmd -ArgumentList ("/c call `"$Env:__CMD__`" $Env:__ARGS__") -Verb runAs
     exit
}
#    We have Administrator privileges
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
    Filter = 'ISO images (*.iso)|*.iso' # Select iso files
}
$wshell=New-Object -ComObject Wscript.Shell
#
clear-host
#
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
# Set the title and size of the window:
$Form.Text='Windows Installation Disk v1.4'
$Form.Width=420 ; $Form.Height=180
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Location=New-Object System.Drawing.Point(20,35)
$USBDiskList.Width=365;$USBDiskList.height=20;$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDisk)
$USB=$Null
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
While (!$Disks) {
    $Result=$wshell.Popup("Plug in your USB disk first, then click ""OK"", to continue. `r`n`r`nTo close this script, click ""Cancel"".",0,"Plug in the USB disk",1+64)
        if ($result -eq 2) {Out-Null;exit}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(36," ").substring(0,36)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-38}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-25}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(25," ").substring(0,25), ($Partition.Size/1GB)))|out-null
            }     
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSB=New-Object System.Windows.Forms.Label # Put the SelectUSB label on the form
$SelectUSB.Location=New-Object System.Drawing.Size(20,18)
$SelectUSB.Text="Select USB disk"
$SelectUSB.width=380;$SelectUSB.height=15;
$Form.Controls.Add($SelectUSB)

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Size(295,100)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.width=90;$SelectISOButton.height=25;
$Form.Controls.Add($SelectISOButton)
$SelectISOButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Size(190,100)
$CancelButton.Text="Cancel"
$CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.width=90;$CancelButton.height=25;
$Form.Controls.Add($CancelButton)
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
#
if ($form.ShowDialog() -eq "Cancel"){$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
if ($FileBrowser.ShowDialog() -eq "Cancel"){$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#
$ImagePath = $FileBrowser.FileName;
if ($ImagePath -eq ""){$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
$ISO=":"
If($FileBrowser.FileNames -like "*\*") {
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
}
if ($ISO -eq ":") {$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#
$Result=$wshell.Popup("Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All data will be lost. `r`n`r`nAre you sure you want to continue? `r`n`r`nTo continue, click ""Yes"". To close this script, click ""No"".",0,"Create the Windows installation disk",4+48)
if ($result -eq 7) {DisMount-DiskImage -ImagePath $ImagePath |out-null;$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection |out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size 700MB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection
#
robocopy $iso $usbntfs /e
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e
robocopy $iso"\efi" $usbfat32"\efi" /e
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
$wshell.Popup("The Windows Installation Disk is complete.",0,"Complete",0+64) | Out-Null;exit
#done - keep a comment on the last line so the previous useful crlf never gets eaten

 

Updated the script in the OP with latest changes

 

Fancy

 

I just added a few modifications (pop-ups) to the original script in the OP.

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@set "__CMD__=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex([io.file]::ReadAllText(\"%~f0\"))" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole(544))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process cmd -ArgumentList ("/c call `"$Env:__CMD__`" $Env:__ARGS__") -Verb runAs
     exit
}
#    We have Administrator privileges
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
    Filter = 'ISO images (*.iso)|*.iso' # Select iso files
}
$wshell=New-Object -ComObject Wscript.Shell
#
clear-host
#
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
# Set the title and size of the window:
$Form.Text='Windows Installation Disk v1.4'
$Form.Width=420 ; $Form.Height=180
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Location=New-Object System.Drawing.Point(20,35)
$USBDiskList.Width=365;$USBDiskList.height=20;$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDisk)
$USB=$Null
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
While (!$Disks) {
    $Result=$wshell.Popup("Please plug in your USB disk.",0,"Plug in the USB disk",1+64)
        if ($result -eq 2) {$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(36," ").substring(0,36)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-39}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-27}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(25," ").substring(0,25), ($Partition.Size/1GB)))|out-null
            }     
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSB=New-Object System.Windows.Forms.Label # Put the SelectUSB label on the form
$SelectUSB.Location=New-Object System.Drawing.Size(20,18)
$SelectUSB.Text="Select USB disk"
$SelectUSB.width=380;$SelectUSB.height=15;
$Form.Controls.Add($SelectUSB)

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Size(295,100)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.width=90;$SelectISOButton.height=25;
$Form.Controls.Add($SelectISOButton)
$SelectISOButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Size(190,100)
$CancelButton.Text="Cancel"
$CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.width=90;$CancelButton.height=25;
$Form.Controls.Add($CancelButton)
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
#
if ($form.ShowDialog() -eq "Cancel"){$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
if ($FileBrowser.ShowDialog() -eq "Cancel"){$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#
$ImagePath = $FileBrowser.FileName;
if ($ImagePath -eq ""){$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
$ISO=":"
If($FileBrowser.FileNames -like "*\*") {
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
}
if ($ISO -eq ":") {$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#
$Result=$wshell.Popup("Do you want to begin creating the Windows Installation Disk?",0,"Create the Windows Installation Disk",4+64)
if ($result -eq 7) {DisMount-DiskImage -ImagePath $ImagePath |out-null;$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
$Result=$wshell.Popup("Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All data will be lost. `r`n`r`nAre you sure you want to continue?",0,"Create the Windows Installation Disk",4+48)
if ($result -eq 7) {DisMount-DiskImage -ImagePath $ImagePath |out-null;$wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null;exit}
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection |out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size 700MB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection
#
robocopy $iso $usbntfs /e
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e
robocopy $iso"\efi" $usbfat32"\efi" /e
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
$wshell.Popup("The Windows Installation Disk is complete.",0,"Complete",0+64) | Out-Null;exit
#done - keep a comment on the last line so the previous useful crlf never gets eaten

 

I have a couple of ideas for your script.
Use pop-ups for the "Please mount USB disk" notification, "Select the ISO" / open the file browser and the final "Warning" message.
The System.Windows.Forms is just to "Create USB disk"

 

Modified the looks of your script.

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@title Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]
@set "ScriptPath=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex(Get-Content('%~f0') -raw)" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process "$Env:ScriptPath" -ArgumentList "$Env:__ARGS__" -Verb runAs; exit
}
#    We have Administrator privileges
#
$Env:ScriptPath=""; $Env:ScriptPath=""  # delete environment variables
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
# $newsize = $pswindow.buffersize   # set the buffer size
# $newsize.height = 3000            # 3000 lines
# $newsize.width = 150                # 150 characters
# $pswindow.buffersize = $newsize    # set the BufferSize properties
# $newsize = $pswindow.buffersize   # assign the BufferSize properties to a variable named $newsize
# $pswindow.buffersize = $newsize    # assign the values to the actual console window
# $newsize = $pswindow.windowsize    # set the window size
# $newsize.height = [Math]::Min(50, $host.ui.rawui.MaxWindowSize.height)
# $newsize.width = [Math]::Min(150, $host.ui.rawui.MaxWindowSize.Width)
# $pswindow.windowsize = $newsize
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
#
Function Get-FileName
{
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
   title="Selected ISO image"
#   ShowHelp = $True
    Filter = 'ISO images (*.iso)|*.iso' # Select only iso files
}
IF ($FileBrowser.ShowDialog() -eq "Cancel"){Cancel}
$FileBrowser.filename    # return the file name
}
$wshell=New-Object -ComObject Wscript.Shell
#
# .Net methods for hiding/showing the console in the background
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();

[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
# Hide = 0,
# ShowNormal = 1,
# ShowMinimized = 2,
# ShowMaximized = 3,
# Maximize = 3,
# ShowNormalNoActivate = 4,
# Show = 5,
# Minimize = 6,
# ShowMinNoActivate = 7,
# ShowNoActivate = 8,
# Restore = 9,
# ShowDefault = 10,
# ForceMinimized = 11
#
function Show-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 1)
}
function Hide-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 0)
}
Function Cancel
{
    $wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null
    [Environment]::Exit(1)
}
clear-host
#
$Global:ImagePath=""
$USB=$Null
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
$Form.TopMost = $True
# Set the size of the window:
# $Form.FormBorderStyle = "none"
$Form.ControlBox = $True
$Form.Text="Windows Installation Disk v1.5"
$Form.Width=405 ; $Form.Height=240
$Form.StartPosition = "CenterScreen"
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$OKButton.PerformClick()}})         # Enter = click OK button
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$CancelButton.PerformClick()}})    # Escape = click on Cancel button

$OKButton=New-Object System.Windows.Forms.Button # Put the OK button on the form
$OKButton.Location=New-Object System.Drawing.Size(280,155)
$OKButton.Text="OK"
$OKButton.Font='Segoe UI,9'
$OKButton.Size=New-Object System.Drawing.Size(120,20)
$OKButton.width=90
$OKButton.height=30
$Form.Controls.Add($OKButton)
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$SelectUSBDisk=New-Object System.Windows.Forms.Label # Put the SelectUSBDisk label on the form
$SelectUSBDisk.Location=New-Object System.Drawing.Size(20,20)
$SelectUSBDisk.Font='Segoe UI,9'
$SelectUSBDisk.width=350
$SelectUSBDisk.height=20
$Form.Controls.Add($SelectUSBDisk)

$SelectISO=New-Object System.Windows.Forms.Label # Put the SelectISO label on the form
$SelectISO.Location=New-Object System.Drawing.Size(20,85)
$SelectISO.Font='Segoe UI,9'
$SelectISO.width=350
$SelectISO.height=20
$SelectISO.text="Selected ISO image:"

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Size(180,155)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Font='Segoe UI,9'
$SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.width=90
$SelectISOButton.height=30;

$ISOFile=New-Object System.Windows.Forms.Label # Put the ISO file name on the form
$ISOFile.Location=New-Object System.Drawing.Size(20,110)
$ISOFile.Text=" "
$ISOFile.Font='Courier New,9'
$ISOFile.Size=New-Object System.Drawing.Size(20,20)
$ISOFile.width=350
$ISOFile.height=20;
$ISOFile.Backcolor = [System.Drawing.Color]::White
$ISOFile.ForeColor = [System.Drawing.Color]::Black
$ISOFile.BorderStyle = [System.Windows.Forms.BorderStyle]::Fixed3D

$Warning=New-Object System.Windows.Forms.Label # Put the Warning label on the form
$Warning.Location=New-Object System.Drawing.Size(20,30)
$Warning.Font='Segoe UI,9'
$Warning.width=360
$Warning.height=80
$Warning.text="Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All the data will be lost. `r`n`r`nAre you sure you want to continue?"

#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Location=New-Object System.Drawing.Point(20,45)
$USBDiskList.Width=350
$USBDiskList.height=20
$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDiskList)
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
Hide-Console # Hide console display

While (!$Disks) {
    $SelectUSBDisk.Text="Please plug in your USB disk."
    if ($form.ShowDialog() -eq "Cancel"){cancel}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Size(20,155)
$CancelButton.Text="Cancel"
$CancelButton.Font='Segoe UI,9'
$CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.width=90
$CancelButton.height=30;
$Form.Controls.Add($CancelButton)
# $CancelButton.Add_Click({$Form.Close();cancel})
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$Form.Controls.Add($SelectISO)
$Form.Controls.Add($ISOFile)
$Form.Controls.Remove($OKButton)
$SelectISOButton.Add_Click(
    {$Global:ImagePath = Get-FileName # get the iso image path with file browser dialog
     $ImagePath= Split-Path -Path $Global:ImagePath -leaf # extract filename and extension (iso)
     $ISOFile.Text = $ImagePath.PadRight(100," ").substring(0,43)+"..."
     $OKButton.Text="Create disk"
     $Form.Controls.Add($OKButton)})
 
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(40," ").substring(0,37)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-37}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-3}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(30," ").substring(0,30), ($Partition.Size/1GB)))|out-null
            }
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSBDisk.Text="Selected USB disk:"
#
$Form.Controls.Add($SelectISOButton)
#
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#
# At this point the mounted USB disk and the iso image file path are defined
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
# Mount the image file if not already mounted and get the drive letter
#
if (ImagePath -eq ""){Cancel} # this can't happen, but keep the test
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
if ($ISO -eq ":") {Cancel}
#
# Ready to create the USB disk. Ask for confirmation
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$OKButton.Text="Continue"
$Form.Controls.Add($OKButton)
$Form.Controls.Add($Warning)
if ($form.ShowDialog() -eq "Cancel") {DisMount-DiskImage -ImagePath $ImagePath |out-null;Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.5"
Show-Console | Out-Null # Restore console display
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection  |out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size  1GB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection |out-null
#
robocopy $iso $usbntfs /e /xf $iso\boot\bcd $iso\efi\microsoft\boot\bcd
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e /xf $iso\boot\bcd
robocopy $iso"\efi" $usbfat32"\efi" /e /xf $iso\efi\microsoft\boot\bcd
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

Copy-Item $ISO"\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\boot\bcd" -Force
Copy-Item $ISO"\EFI\Microsoft\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\EFI\Microsoft\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\EFI\Microsoft\boot\bcd" -Force
remove-item ($env:temp + "\bcd") -force
remove-item ($env:temp + "\bcd.*") -force
# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
$wshell.Popup("The Windows Installation Disk is complete.",0,"Complete",0+64) | Out-Null
#done - keep a comment on the last line so the previous useful crlf never gets eaten

Blue Theme:

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@title Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]
@set "ScriptPath=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex(Get-Content('%~f0') -raw)" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process "$Env:ScriptPath" -ArgumentList "$Env:__ARGS__" -Verb runAs; exit
}
#    We have Administrator privileges
#
$Env:ScriptPath=""; $Env:ScriptPath=""  # delete environment variables
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
# $newsize = $pswindow.buffersize   # set the buffer size
# $newsize.height = 3000            # 3000 lines
# $newsize.width = 150                # 150 characters
# $pswindow.buffersize = $newsize    # set the BufferSize properties
# $newsize = $pswindow.buffersize   # assign the BufferSize properties to a variable named $newsize
# $pswindow.buffersize = $newsize    # assign the values to the actual console window
# $newsize = $pswindow.windowsize    # set the window size
# $newsize.height = [Math]::Min(50, $host.ui.rawui.MaxWindowSize.height)
# $newsize.width = [Math]::Min(150, $host.ui.rawui.MaxWindowSize.Width)
# $pswindow.windowsize = $newsize
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
#
Function Get-FileName
{
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
   title="Selected ISO image"
#   ShowHelp = $True
    Filter = 'ISO images (*.iso)|*.iso' # Select only iso files
}
IF ($FileBrowser.ShowDialog() -eq "Cancel"){Cancel}
$FileBrowser.filename    # return the file name
}
$wshell=New-Object -ComObject Wscript.Shell
#
# .Net methods for hiding/showing the console in the background
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();

[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
# Hide = 0,
# ShowNormal = 1,
# ShowMinimized = 2,
# ShowMaximized = 3,
# Maximize = 3,
# ShowNormalNoActivate = 4,
# Show = 5,
# Minimize = 6,
# ShowMinNoActivate = 7,
# ShowNoActivate = 8,
# Restore = 9,
# ShowDefault = 10,
# ForceMinimized = 11
#
function Show-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 1)
}
function Hide-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 0)
}
Function Cancel
{
    $wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null
    [Environment]::Exit(1)
}
clear-host
#
$Global:ImagePath=""
$USB=$Null
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
$Form.TopMost = $True
# Set the size of the window:
# $Form.FormBorderStyle = "none"
$Form.ControlBox = $True                 
$Form.Text="Windows Installation Disk v1.5"
$Form.Width=405 ; $Form.Height=240
$Form.StartPosition = "CenterScreen"
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$OKButton.PerformClick()}})         # Enter = click OK button
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$CancelButton.PerformClick()}})    # Escape = click on Cancel button
$Form.BackColor = "#3a96dd"

$OKButton=New-Object System.Windows.Forms.Button # Put the OK button on the form
$OKButton.Location=New-Object System.Drawing.Size(270,155)
$OKButton.Text="OK"
$OKButton.Font='Consolas,10'
$OKButton.Size=New-Object System.Drawing.Size(120,20)
$OKButton.width=100
$OKButton.height=30
$OKButton.ForeColor = [System.Drawing.Color]::White                                               
$Form.Controls.Add($OKButton)
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$SelectUSBDisk=New-Object System.Windows.Forms.Label # Put the SelectUSBDisk label on the form
$SelectUSBDisk.Location=New-Object System.Drawing.Size(20,20)
$SelectUSBDisk.Font='Consolas,10'
$SelectUSBDisk.width=350
$SelectUSBDisk.height=20
$SelectUSBDisk.ForeColor = [System.Drawing.Color]::White                                                 
$Form.Controls.Add($SelectUSBDisk)

$SelectISO=New-Object System.Windows.Forms.Label # Put the SelectISO label on the form
$SelectISO.Location=New-Object System.Drawing.Size(20,85)
$SelectISO.Font='Consolas,10'
$SelectISO.width=350
$SelectISO.height=20
$SelectISO.text="Selected ISO image:"
$SelectISO.ForeColor = [System.Drawing.Color]::White                                             

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Size(160,155)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Font='Consolas,10'
$SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.width=100
$SelectISOButton.height=30;
$SelectISOButton.ForeColor = [System.Drawing.Color]::White                                                       
                                                                                                                                                                                   
$ISOFile=New-Object System.Windows.Forms.Label # Put the ISO file name on the form
$ISOFile.Location=New-Object System.Drawing.Size(20,110)
$ISOFile.Text=" "
$ISOFile.Font='Courier New,9'
$ISOFile.Size=New-Object System.Drawing.Size(20,20)
$ISOFile.width=350
$ISOFile.height=20;
$ISOFile.Backcolor = [System.Drawing.Color]::White
$ISOFile.ForeColor = [System.Drawing.Color]::Black
$ISOFile.BorderStyle = [System.Windows.Forms.BorderStyle]::Fixed3D

$Warning=New-Object System.Windows.Forms.Label # Put the Warning label on the form
$Warning.Location=New-Object System.Drawing.Size(20,30)
$Warning.Font='Consolas,10'
$Warning.width=330
$Warning.height=80
$Warning.text="Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All the data will be lost. `r`n`r`nAre you sure you want to continue?"
$Warning.ForeColor = [System.Drawing.Color]::White                                           
#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Location=New-Object System.Drawing.Point(20,45)
$USBDiskList.Width=350
$USBDiskList.height=20
$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDiskList)
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
Hide-Console # Hide console display

While (!$Disks) {
    $SelectUSBDisk.Text="Please plug in your USB disk."
    if ($form.ShowDialog() -eq "Cancel"){cancel}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Size(20,155)
$CancelButton.Text="Cancel"
$CancelButton.Font='Consolas,10'
$CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.width=100
$CancelButton.height=30;
$CancelButton.ForeColor = [System.Drawing.Color]::White
$Form.Controls.Add($CancelButton)
# $CancelButton.Add_Click({$Form.Close();cancel})
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$Form.Controls.Add($SelectISO)
$Form.Controls.Add($ISOFile)
$Form.Controls.Remove($OKButton)
$SelectISOButton.Add_Click(
    {$Global:ImagePath = Get-FileName # get the iso image path with file browser dialog
     $ImagePath= Split-Path -Path $Global:ImagePath -leaf # extract filename and extension (iso)
     $ISOFile.Text = $ImagePath.PadRight(100," ").substring(0,43)+"..."
     $OKButton.Text="Create disk"
     $Form.Controls.Add($OKButton)})
 
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(40," ").substring(0,37)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-37}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-3}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(30," ").substring(0,30), ($Partition.Size/1GB)))|out-null
            }
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSBDisk.Text="Selected USB disk:"
#
$Form.Controls.Add($SelectISOButton)
#
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#
# At this point the mounted USB disk and the iso image file path are defined
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
# Mount the image file if not already mounted and get the drive letter
#
if (ImagePath -eq ""){Cancel} # this can't happen, but keep the test
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
if ($ISO -eq ":") {Cancel}
#
# Ready to create the USB disk. Ask for confirmation
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$OKButton.Text="Continue"
$Form.Controls.Add($OKButton)
$Form.Controls.Add($Warning)
if ($form.ShowDialog() -eq "Cancel") {DisMount-DiskImage -ImagePath $ImagePath |out-null;Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.5"
Show-Console | Out-Null # Restore console display
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection  |out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size  1GB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection |out-null
#
robocopy $iso $usbntfs /e /xf $iso\boot\bcd $iso\efi\microsoft\boot\bcd
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e /xf $iso\boot\bcd
robocopy $iso"\efi" $usbfat32"\efi" /e /xf $iso\efi\microsoft\boot\bcd
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

Copy-Item $ISO"\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\boot\bcd" -Force
Copy-Item $ISO"\EFI\Microsoft\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\EFI\Microsoft\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\EFI\Microsoft\boot\bcd" -Force
remove-item ($env:temp + "\bcd") -force
remove-item ($env:temp + "\bcd.*") -force
# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
$wshell.Popup("The Windows Installation Disk is complete.",0,"Complete",0+64) | Out-Null
#done - keep a comment on the last line so the previous useful crlf never gets eaten

Modern Black Theme:

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@title Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]
@set "ScriptPath=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex(Get-Content('%~f0') -raw)" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process "$Env:ScriptPath" -ArgumentList "$Env:__ARGS__" -Verb runAs; exit
}
#    We have Administrator privileges
#
$Env:ScriptPath=""; $Env:ScriptPath=""  # delete environment variables
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
# $newsize = $pswindow.buffersize   # set the buffer size
# $newsize.height = 3000            # 3000 lines
# $newsize.width = 150                # 150 characters
# $pswindow.buffersize = $newsize    # set the BufferSize properties
# $newsize = $pswindow.buffersize   # assign the BufferSize properties to a variable named $newsize
# $pswindow.buffersize = $newsize    # assign the values to the actual console window
# $newsize = $pswindow.windowsize    # set the window size
# $newsize.height = [Math]::Min(50, $host.ui.rawui.MaxWindowSize.height)
# $newsize.width = [Math]::Min(150, $host.ui.rawui.MaxWindowSize.Width)
# $pswindow.windowsize = $newsize
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
#
Function Get-FileName
{
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
   title="Selected ISO image"
#   ShowHelp = $True
    Filter = 'ISO images (*.iso)|*.iso' # Select only iso files
}
IF ($FileBrowser.ShowDialog() -eq "Cancel"){Cancel}
$FileBrowser.filename    # return the file name
}
$wshell=New-Object -ComObject Wscript.Shell
#
# .Net methods for hiding/showing the console in the background
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();

[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
# Hide = 0,
# ShowNormal = 1,
# ShowMinimized = 2,
# ShowMaximized = 3,
# Maximize = 3,
# ShowNormalNoActivate = 4,
# Show = 5,
# Minimize = 6,
# ShowMinNoActivate = 7,
# ShowNoActivate = 8,
# Restore = 9,
# ShowDefault = 10,
# ForceMinimized = 11
#
function Show-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 1)
}
function Hide-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 0)
}
Function Cancel
{
    $wshell.Popup("The script was cancelled.",2,"Cancel script",0+64) | Out-Null
    [Environment]::Exit(1)
}
clear-host
#
$Global:ImagePath=""
$USB=$Null
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
$Form.TopMost = $True
# Set the size of the window:
# $Form.FormBorderStyle = "none"
$Form.ControlBox = $True
$Form.Text="Windows Installation Disk v1.5"
$Form.Width=405 ; $Form.Height=240
$Form.StartPosition = "CenterScreen"
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$OKButton.PerformClick()}})         # Enter = click OK button
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$CancelButton.PerformClick()}})    # Escape = click on Cancel button
$Form.BackColor = "Black"

$OKButton=New-Object System.Windows.Forms.Button # Put the OK button on the form
$OKButton.Location=New-Object System.Drawing.Size(280,155)
$OKButton.Text="OK"
$OKButton.Font='Segoe UI,9'
$OKButton.Size=New-Object System.Drawing.Size(120,20)
$OKButton.width=90
$OKButton.height=30
$OKButton.ForeColor = [System.Drawing.Color]::White
$OKButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat
                                            
$Form.Controls.Add($OKButton)
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$SelectUSBDisk=New-Object System.Windows.Forms.Label # Put the SelectUSBDisk label on the form
$SelectUSBDisk.Location=New-Object System.Drawing.Size(20,20)
$SelectUSBDisk.Font='Segoe UI,9'
$SelectUSBDisk.width=350
$SelectUSBDisk.height=20
$SelectUSBDisk.ForeColor = [System.Drawing.Color]::White                                                      
$Form.Controls.Add($SelectUSBDisk)

$SelectISO=New-Object System.Windows.Forms.Label # Put the SelectISO label on the form
$SelectISO.Location=New-Object System.Drawing.Size(20,85)
$SelectISO.Font='Segoe UI,9'
$SelectISO.width=350
$SelectISO.height=20
$SelectISO.text="Selected ISO image:"
$SelectISO.ForeColor = [System.Drawing.Color]::White                                                  

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Size(180,155)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Font='Segoe UI,9'
$SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.width=90
$SelectISOButton.height=30;
$SelectISOButton.ForeColor = [System.Drawing.Color]::White                                                            
$SelectISOButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat

                                                                                                                                                                                        
$ISOFile=New-Object System.Windows.Forms.Label # Put the ISO file name on the form
$ISOFile.Location=New-Object System.Drawing.Size(20,110)
$ISOFile.Text=" "
$ISOFile.Font='Courier New,9'
$ISOFile.Size=New-Object System.Drawing.Size(20,20)
$ISOFile.width=350
$ISOFile.height=20;
$ISOFile.Backcolor = [System.Drawing.Color]::White
$ISOFile.ForeColor = [System.Drawing.Color]::Black
$ISOFile.BorderStyle = [System.Windows.Forms.BorderStyle]::FixedSingle

$Warning=New-Object System.Windows.Forms.Label # Put the Warning label on the form
$Warning.Location=New-Object System.Drawing.Size(20,30)
$Warning.Font='Segoe UI,9'
$Warning.width=360
$Warning.height=80
$Warning.text="Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All the data will be lost. `r`n`r`nAre you sure you want to continue?"
$Warning.ForeColor = [System.Drawing.Color]::White                                                
#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat
$USBDiskList.Location=New-Object System.Drawing.Point(20,45)
$USBDiskList.Width=350
$USBDiskList.height=20
$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDiskList)
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
Hide-Console # Hide console display

While (!$Disks) {
    $SelectUSBDisk.Text="Please plug in your USB disk."
    if ($form.ShowDialog() -eq "Cancel"){cancel}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Size(20,155)
$CancelButton.Text="Cancel"
$CancelButton.Font='Segoe UI,9'
$CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.width=90
$CancelButton.height=30;
$CancelButton.ForeColor = [System.Drawing.Color]::White
$CancelButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat
$Form.Controls.Add($CancelButton)
# $CancelButton.Add_Click({$Form.Close();cancel})
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$Form.Controls.Add($SelectISO)
$Form.Controls.Add($ISOFile)
$Form.Controls.Remove($OKButton)
$SelectISOButton.Add_Click(
    {$Global:ImagePath = Get-FileName # get the iso image path with file browser dialog
     $ImagePath= Split-Path -Path $Global:ImagePath -leaf # extract filename and extension (iso)
     $ISOFile.Text = $ImagePath.PadRight(100," ").substring(0,43)+"..."
     $OKButton.Text="Create disk"
     $Form.Controls.Add($OKButton)})
  
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(40," ").substring(0,37)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-37}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-3}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(30," ").substring(0,30), ($Partition.Size/1GB)))|out-null
            }
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSBDisk.Text="Selected USB disk:"
#
$Form.Controls.Add($SelectISOButton)
#
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#
# At this point the mounted USB disk and the iso image file path are defined
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
# Mount the image file if not already mounted and get the drive letter
#
if (ImagePath -eq ""){Cancel} # this can't happen, but keep the test
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
if ($ISO -eq ":") {Cancel}
#
# Ready to create the USB disk. Ask for confirmation
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$OKButton.Text="Continue"
$Form.Controls.Add($OKButton)
$Form.Controls.Add($Warning)
if ($form.ShowDialog() -eq "Cancel") {DisMount-DiskImage -ImagePath $ImagePath |out-null;Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.5"
Show-Console | Out-Null # Restore console display
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection  |out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size  1GB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection |out-null
#
robocopy $iso $usbntfs /e /xf $iso\boot\bcd $iso\efi\microsoft\boot\bcd
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e /xf $iso\boot\bcd
robocopy $iso"\efi" $usbfat32"\efi" /e /xf $iso\efi\microsoft\boot\bcd
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

Copy-Item $ISO"\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\boot\bcd" -Force
Copy-Item $ISO"\EFI\Microsoft\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\EFI\Microsoft\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\EFI\Microsoft\boot\bcd" -Force
remove-item ($env:temp + "\bcd") -force
remove-item ($env:temp + "\bcd.*") -force
# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
$wshell.Popup("The Windows Installation Disk is complete.",0,"Complete",0+64) | Out-Null
#done - keep a comment on the last line so the previous useful crlf never gets eaten

 

Updated the OP to Windows Installation Disk v1.5

 

... used your latest release (1.5) to create 18965 Boot USB
Says operation completed sucessfully, but early on in the process.... this occured,

Code:

Start-Service : Service 'Shell Hardware Detection (ShellHWDetection)' cannot be started due to the following error: Cannot start service
ShellHWDetection on computer '.'.
At line:261 char:1
+ Start-Service ShellHWDetection |out-null
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OpenError: (System.ServiceProcess.ServiceController:ServiceController) [Start-Service], ServiceCommandException
    + FullyQualifiedErrorId : CouldNotStartService,Microsoft.PowerShell.Commands.StartServiceCommand

..unsure what script was trying to achieve at this point, or as to what impact the failure will have had on completed Boot USB

... do know that Windows Image Acquisition (WIA) service is dependent on above

 

Removed pop-ups
FlatStyle (Just cannot figure out how to add border to Combo box)

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@title Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]
@set "ScriptPath=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex(Get-Content('%~f0') -raw)" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process "$Env:ScriptPath" -ArgumentList "$Env:__ARGS__" -Verb runAs; exit
}
#    We have Administrator privileges
#
$Env:ScriptPath=""; $Env:ScriptPath=""  # delete environment variables
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
# $newsize = $pswindow.buffersize   # set the buffer size
# $newsize.height = 3000            # 3000 lines
# $newsize.width = 150                # 150 characters
# $pswindow.buffersize = $newsize    # set the BufferSize properties
# $newsize = $pswindow.buffersize   # assign the BufferSize properties to a variable named $newsize
# $pswindow.buffersize = $newsize    # assign the values to the actual console window
# $newsize = $pswindow.windowsize    # set the window size
# $newsize.height = [Math]::Min(50, $host.ui.rawui.MaxWindowSize.height)
# $newsize.width = [Math]::Min(150, $host.ui.rawui.MaxWindowSize.Width)
# $pswindow.windowsize = $newsize
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
#
Function Get-FileName
{
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
   title="Selected ISO image"
#   ShowHelp = $True
    Filter = 'ISO images (*.iso)|*.iso' # Select only iso files
}
IF ($FileBrowser.ShowDialog() -eq "Cancel"){Cancel}
$FileBrowser.filename    # return the file name
}
$wshell=New-Object -ComObject Wscript.Shell
#
# .Net methods for hiding/showing the console in the background
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();

[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
# Hide = 0,
# ShowNormal = 1,
# ShowMinimized = 2,
# ShowMaximized = 3,
# Maximize = 3,
# ShowNormalNoActivate = 4,
# Show = 5,
# Minimize = 6,
# ShowMinNoActivate = 7,
# ShowNoActivate = 8,
# Restore = 9,
# ShowDefault = 10,
# ForceMinimized = 11
#
function Show-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 1)
}
function Hide-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 0)
}
Function Cancel
{
    [Environment]::Exit(1)
}
clear-host
#
$Global:ImagePath=""
$USB=$Null
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
$Form.TopMost = $True
# Set the size of the window:
# $Form.FormBorderStyle = "none"
$Form.ControlBox = $True
$Form.Text="Windows Installation Disk v1.5"
$Form.Width=405 ; $Form.Height=240
$Form.StartPosition = "CenterScreen"
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$OKButton.PerformClick()}})         # Enter = click OK button
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$CancelButton.PerformClick()}})    # Escape = click on Cancel button

$OKButton=New-Object System.Windows.Forms.Button # Put the OK button on the form
$OKButton.Location=New-Object System.Drawing.Point(280,160)
$OKButton.Text="OK"
$OKButton.Font='Segoe UI,9'
$OKButton.Size=New-Object System.Drawing.Size(90,25)
# $OKButton.Size=New-Object System.Drawing.Size(120,20)
$OKButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat                                                               
$Form.Controls.Add($OKButton)
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$SelectUSBDisk=New-Object System.Windows.Forms.Label # Put the SelectUSBDisk label on the form
$SelectUSBDisk.Location=New-Object System.Drawing.Point(20,20)
$SelectUSBDisk.Font='Segoe UI,9'
$SelectUSBDisk.Size=New-Object System.Drawing.Size(350,20)
$Form.Controls.Add($SelectUSBDisk)

$SelectISO=New-Object System.Windows.Forms.Label # Put the SelectISO label on the form
$SelectISO.Location=New-Object System.Drawing.Point(20,85)
$SelectISO.Font='Segoe UI,9'
$SelectISO.Size=New-Object System.Drawing.Size(350,20)
$SelectISO.text="Selected ISO image:"

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Point(180,160)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Font='Segoe UI,9'
$SelectISOButton.Size=New-Object System.Drawing.Size(90,25)
# $SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat                                                                       

$ISOFile=New-Object System.Windows.Forms.Label # Put the ISO file name on the form
$ISOFile.Location=New-Object System.Drawing.Point(20,110)
$ISOFile.Text=" "
$ISOFile.Font='Courier New,9'
$ISOFile.Size=New-Object System.Drawing.Size(350,20)
$ISOFile.Backcolor = [System.Drawing.Color]::White
$ISOFile.ForeColor = [System.Drawing.Color]::Black
$ISOFile.BorderStyle = [System.Windows.Forms.BorderStyle]::FixedSingle

$Warning=New-Object System.Windows.Forms.Label # Put the Warning label on the form
$Warning.Location=New-Object System.Drawing.Point(20,30)
$Warning.Font='Segoe UI,9'
$Warning.Size=New-Object System.Drawing.Size(360,80)
$Warning.text="Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All the data will be lost. `r`n`r`nAre you sure you want to continue?"

#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat
$USBDiskList.Location=New-Object System.Drawing.Point(20,45)
$USBDiskList.Size=New-Object System.Drawing.Size(350,20)
$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDiskList)
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
Hide-Console # Hide console display

$Complete=New-Object System.Windows.Forms.Label # Put the Complete label on the form
$Complete.Location=New-Object System.Drawing.Point(20,30)
$Complete.Font='Segoe UI,9'
$Complete.Size=New-Object System.Drawing.Size(360,80)
$Complete.text="The Windows Installation Disk completed successfully."
#
While (!$Disks) {
    $SelectUSBDisk.Text="Please plug in your USB disk."
    if ($form.ShowDialog() -eq "Cancel"){cancel}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Point(20,160)
$CancelButton.Text="Cancel"
$CancelButton.Font='Segoe UI,9'
$CancelButton.Size=New-Object System.Drawing.Size(90,25)
# $CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat
$Form.Controls.Add($CancelButton)
# $CancelButton.Add_Click({$Form.Close();cancel})
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$Form.Controls.Add($SelectISO)
$Form.Controls.Add($ISOFile)
$Form.Controls.Remove($OKButton)
$SelectISOButton.Add_Click(
    {$Global:ImagePath = Get-FileName # get the iso image path with file browser dialog
     $ImagePath= Split-Path -Path $Global:ImagePath -leaf # extract filename and extension (iso)
     $ISOFile.Text = $ImagePath
     if (($ISOFile.Text).length -gt 44) {$ISOFile.Text = $ImagePath.PadRight(100," ").substring(0,43)+"..."}
     $OKButton.Text="Create disk"
     $Form.Controls.Add($OKButton)})
 
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(40," ").substring(0,37)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-37}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-3}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(30," ").substring(0,30), ($Partition.Size/1GB)))|out-null
            }
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSBDisk.Text="Selected USB disk:"
#
$Form.Controls.Add($SelectISOButton)
#
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#
# At this point the mounted USB disk and the iso image file path are defined
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
# Mount the image file if not already mounted and get the drive letter
#
if (ImagePath -eq ""){Cancel} # this can't happen, but keep the test
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
if ($ISO -eq ":") {Cancel}
#
# Ready to create the USB disk. Ask for confirmation
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$OKButton.Text="Continue"
$Form.Controls.Add($OKButton)
$Form.Controls.Add($Warning)
if ($form.ShowDialog() -eq "Cancel") {DisMount-DiskImage -ImagePath $ImagePath |out-null;Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.5"
Show-Console | Out-Null # Restore console display
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection -erroraction silentlycontinue|out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size  1GB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection -erroraction silentlycontinue|out-null
#
robocopy $iso $usbntfs /e /xf $iso\boot\bcd $iso\efi\microsoft\boot\bcd
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e /xf $iso\boot\bcd
robocopy $iso"\efi" $usbfat32"\efi" /e /xf $iso\efi\microsoft\boot\bcd
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

Copy-Item $ISO"\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\boot\bcd" -Force
Copy-Item $ISO"\EFI\Microsoft\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\EFI\Microsoft\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\EFI\Microsoft\boot\bcd" -Force
remove-item ($env:temp + "\bcd") -force
remove-item ($env:temp + "\bcd.*") -force
# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($OKButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$Form.Controls.Remove($Warning)
$CancelButton.Text="Close"
$Form.Controls.Add($CancelButton)
$Form.Controls.Add($Complete)
if ($form.ShowDialog() -eq "Cancel") {Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.5"
Show-Console | Out-Null # Restore console display
#done - keep a comment on the last line so the previous useful crlf never gets eaten

 

Modified

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@title Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]
@set "ScriptPath=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex(Get-Content('%~f0') -raw)" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process "$Env:ScriptPath" -ArgumentList "$ Env:__ARGS__" -Verb runAs; exit
}
#    We have Administrator privileges
#
$Env:ScriptPath=""; $Env:ScriptPath=""  # delete environment variables
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
# $newsize = $pswindow.buffersize   # set the buffer size
# $newsize.height = 3000            # 3000 lines
# $newsize.width = 150                # 150 characters
# $pswindow.buffersize = $newsize    # set the BufferSize properties
# $newsize = $pswindow.buffersize   # assign the BufferSize properties to a variable named $newsize
# $pswindow.buffersize = $newsize    # assign the values to the actual console window
# $newsize = $pswindow.windowsize    # set the window size
# $newsize.height = [Math]::Min(50, $host.ui.rawui.MaxWindowSize.height)
# $newsize.width = [Math]::Min(150, $host.ui.rawui.MaxWindowSize.Width)
# $pswindow.windowsize = $newsize
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
#
Function Get-FileName
{
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
   title="Selected ISO image"
#   ShowHelp = $True
    Filter = 'ISO images (*.iso)|*.iso' # Select only iso files
}
IF ($FileBrowser.ShowDialog() -eq "Cancel"){Cancel}
$FileBrowser.filename    # return the file name
}
$wshell=New-Object -ComObject Wscript.Shell
#
# .Net methods for hiding/showing the console in the background
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();

[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
# Hide = 0,
# ShowNormal = 1,
# ShowMinimized = 2,
# ShowMaximized = 3,
# Maximize = 3,
# ShowNormalNoActivate = 4,
# Show = 5,
# Minimize = 6,
# ShowMinNoActivate = 7,
# ShowNoActivate = 8,
# Restore = 9,
# ShowDefault = 10,
# ForceMinimized = 11
#
function Show-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 1)
}
function Hide-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 0)
}
Function Cancel
{
    [Environment]::Exit(1)
}
clear-host
#
$Global:ImagePath=""
$USB=$Null
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
$Form.TopMost = $True
# Set the size of the window:
# $Form.FormBorderStyle = "none"
$Form.ControlBox = $True
$Form.Text="Windows Installation Disk v1.5"
$Form.Width=405 ; $Form.Height=250
$Form.StartPosition = "CenterScreen"
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$OKButton.PerformClick()}})         # Enter = click OK button
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$CancelButton.PerformClick()}})    # Escape = click on Cancel button
$Form.BackColor = "#3A96DD"

$OKButton=New-Object System.Windows.Forms.Button # Put the OK button on the form
$OKButton.Location=New-Object System.Drawing.Point(270,170)
$OKButton.Text="OK"
$OKButton.Font='Courier New,9'
$OKButton.Size=New-Object System.Drawing.Size(100,25)
# $OKButton.Size=New-Object System.Drawing.Size(120,20)
$OKButton.ForeColor = [System.Drawing.Color]::White
$OKButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat                 
$Form.Controls.Add($OKButton)
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$SelectUSBDisk=New-Object System.Windows.Forms.Label # Put the SelectUSBDisk label on the form
$SelectUSBDisk.Location=New-Object System.Drawing.Point(20,24)
$SelectUSBDisk.Font='Courier New,9'
$SelectUSBDisk.Size=New-Object System.Drawing.Size(350,20)
$SelectUSBDisk.ForeColor = [System.Drawing.Color]::White                       
$Form.Controls.Add($SelectUSBDisk)

$SelectISO=New-Object System.Windows.Forms.Label # Put the SelectISO label on the form
$SelectISO.Location=New-Object System.Drawing.Point(20,89)
$SelectISO.Font='Courier New,9'
$SelectISO.Size=New-Object System.Drawing.Size(350,20)
$SelectISO.text="Selected ISO image:"
$SelectISO.ForeColor = [System.Drawing.Color]::White                                                               

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Point(145,170)
$SelectISOButton.Text="Select ISO"
$SelectISOButton.Font='Courier New,9'
$SelectISOButton.Size=New-Object System.Drawing.Size(100,25)
# $SelectISOButton.Size=New-Object System.Drawing.Size(120,20)
$SelectISOButton.ForeColor = [System.Drawing.Color]::White                                                             
$SelectISOButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat                         

$ISOFile=New-Object System.Windows.Forms.Label # Put the ISO file name on the form
$ISOFile.Location=New-Object System.Drawing.Point(20,110)
$ISOFile.Text=" "
$ISOFile.Font='Courier New,9'
$ISOFile.Size=New-Object System.Drawing.Size(350,20)
$ISOFile.Backcolor = [System.Drawing.Color]::White

$ISOFile.BorderStyle = [System.Windows.Forms.BorderStyle]::FixedSingle

$Warning=New-Object System.Windows.Forms.Label # Put the Warning label on the form
$Warning.Location=New-Object System.Drawing.Point(20,30)
$Warning.Font='Courier New,9'
$Warning.Size=New-Object System.Drawing.Size(340,80)
$Warning.text="Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All the data will be lost. `r`n`r`nAre you sure you want to continue?"
$Warning.ForeColor = [System.Drawing.Color]::White
#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat
$USBDiskList.Backcolor = [System.Drawing.Color]::White       
$USBDiskList.ForeColor = [System.Drawing.Color]::Black                                                     
$USBDiskList.Location=New-Object System.Drawing.Point(20,45)
$USBDiskList.Size=New-Object System.Drawing.Size(350,20)
$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDiskList)
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
Hide-Console # Hide console display

$Complete=New-Object System.Windows.Forms.Label # Put the Complete label on the form
$Complete.Location=New-Object System.Drawing.Point(20,30)
$Complete.Font='Courier New,9'
$Complete.Size=New-Object System.Drawing.Size(360,80)
$Complete.text="The Windows Installation Disk completed successfully."
$Complete.ForeColor = [System.Drawing.Color]::White
#                                                                                   
While (!$Disks) {
    $SelectUSBDisk.Text="Please plug in your USB disk."
    if ($form.ShowDialog() -eq "Cancel"){cancel}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Point(20,170)
$CancelButton.Text="Cancel"
$CancelButton.Font='Courier New,9'
$CancelButton.Size=New-Object System.Drawing.Size(100,25)
# $CancelButton.Size=New-Object System.Drawing.Size(120,20)
$CancelButton.ForeColor = [System.Drawing.Color]::White
$CancelButton.Flatstyle = [System.Windows.Forms.Flatstyle]::Flat                       
$Form.Controls.Add($CancelButton)
# $CancelButton.Add_Click({$Form.Close();cancel})
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$Form.Controls.Add($SelectISO)
$Form.Controls.Add($ISOFile)
$Form.Controls.Remove($OKButton)
$SelectISOButton.Add_Click(
    {$Global:ImagePath = Get-FileName # get the iso image path with file browser dialog
     $ImagePath= Split-Path -Path $Global:ImagePath -leaf # extract filename and extension (iso)
     $ISOFile.Text = $ImagePath
     if (($ISOFile.Text).length -gt 44) {$ISOFile.Text = $ImagePath.PadRight(100," ").substring(0,43)+"..."}
     $OKButton.Text="Create disk"
     $Form.Controls.Add($OKButton)})
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(40," ").substring(0,37)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-37}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-3}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(30," ").substring(0,30), ($Partition.Size/1GB)))|out-null
            }
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSBDisk.Text="Selected USB disk:"
#
$Form.Controls.Add($SelectISOButton)
#
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#
# At this point the mounted USB disk and the iso image file path are defined
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
# Mount the image file if not already mounted and get the drive letter
#
if (ImagePath -eq ""){Cancel} # this can't happen, but keep the test
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
if ($ISO -eq ":") {Cancel}
#
# Ready to create the USB disk. Ask for confirmation
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$OKButton.Text="Yes"
$CancelButton.Text="No"
$Form.Controls.Add($OKButton)
$Form.Controls.Add($Warning)
if ($form.ShowDialog() -eq "Cancel") {DisMount-DiskImage -ImagePath $ImagePath |out-null;Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.5"
Show-Console | Out-Null # Restore console display
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection -erroraction silentlycontinue|out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size  1GB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection -erroraction silentlycontinue|out-null
#
robocopy $iso $usbntfs /e /xf $iso\boot\bcd $iso\efi\microsoft\boot\bcd
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e /xf $iso\boot\bcd
robocopy $iso"\efi" $usbfat32"\efi" /e /xf $iso\efi\microsoft\boot\bcd
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

Copy-Item $ISO"\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\boot\bcd" -Force
Copy-Item $ISO"\EFI\Microsoft\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\EFI\Microsoft\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\EFI\Microsoft\boot\bcd" -Force
remove-item ($env:temp + "\bcd") -force
remove-item ($env:temp + "\bcd.*") -force
# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($OKButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$Form.Controls.Remove($Warning)
$CancelButton.Text="Close"
$Form.Controls.Add($CancelButton)
$Form.Controls.Add($Complete)
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#done - keep a comment on the last line so the previous useful crlf never gets eaten

 

Updated the OP with Windows Installation Disk 1.6.
Made a correction to the script and a modification in the UI.

 

It seems. I tested it and it worked.

 

Edit:
But then for the sake of "correctness", I changed the spacing.

 

Your UI (modified) seems better.

Spoiler

Code:

<# : standard way of doing hybrid batch + powershell scripts
@title Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]
@set "ScriptPath=%~f0" &set "__ARGS__=%*" &powershell -noprofile -c "iex(Get-Content('%~f0') -raw)" &exit/b
#>
#
#    This script must be executed with admin privilege
#
#    Test Administrator privileges
If (-NOT ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
#    Restart the script to get Administrator privileges and exit
     Start-Process "$Env:ScriptPath" -ArgumentList " $Env:__ARGS__" -Verb runAs; exit
}
#    We have Administrator privileges
#
$Env:ScriptPath=""; $Env:ScriptPath=""  # delete environment variables
#
$pswindow = $host.ui.rawui          # create a reference to the console’s UI.RawUI child object
# $newsize = $pswindow.buffersize   # set the buffer size
# $newsize.height = 3000            # 3000 lines
# $newsize.width = 150                # 150 characters
# $pswindow.buffersize = $newsize    # set the BufferSize properties
# $newsize = $pswindow.buffersize   # assign the BufferSize properties to a variable named $newsize
# $pswindow.buffersize = $newsize    # assign the values to the actual console window
# $newsize = $pswindow.windowsize    # set the window size
# $newsize.height = [Math]::Min(50, $host.ui.rawui.MaxWindowSize.height)
# $newsize.width = [Math]::Min(150, $host.ui.rawui.MaxWindowSize.Width)
# $pswindow.windowsize = $newsize
$pswindow.windowtitle = "Script by: rpo/abbodi1406/BAU/freddie-o [forums.mydigitallife.net]"
[console]::ForegroundColor = "yellow"
[console]::BackgroundColor = "blue"
#
Add-Type -AssemblyName System.Windows.Forms # Load the class System.Windows.Forms
#
Function Get-FileName
{
# Filebrowser dialog
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   Multiselect = $false # One file can be chosen
   title="Select ISO image"
#   ShowHelp = $True
    Filter = 'ISO images (*.iso)|*.iso' # Select only iso files
}
IF ($FileBrowser.ShowDialog() -eq "Cancel"){Cancel}
$FileBrowser.filename    # return the file name
}
$wshell=New-Object -ComObject Wscript.Shell
#
# .Net methods for hiding/showing the console in the background
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();

[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
# Hide = 0,
# ShowNormal = 1,
# ShowMinimized = 2,
# ShowMaximized = 3,
# Maximize = 3,
# ShowNormalNoActivate = 4,
# Show = 5,
# Minimize = 6,
# ShowMinNoActivate = 7,
# ShowNoActivate = 8,
# Restore = 9,
# ShowDefault = 10,
# ForceMinimized = 11
#
function Show-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 1)
}
function Hide-Console
{
    $consolePtr = [Console.Window]::GetConsoleWindow()
    [Console.Window]::ShowWindow($consolePtr, 0)
}
Function Cancel
{
    [Environment]::Exit(1)
}
clear-host
#
$Global:ImagePath=""
$USB=$Null
$Form=New-Object System.Windows.Forms.Form # Create the screen form (window)
$Form.TopMost = $True
# Set the size of the window:
# $Form.FormBorderStyle = "none"
$Form.ControlBox = $True
$Form.Text="Windows Installation Disk v1.7"
$Form.Width=445 ; $Form.Height=250
$Form.StartPosition = "CenterScreen"
$Form.AutoSize=$true # AutoSize property to make the form automatically stretch, if the elements on the form are out of bounds
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$OKButton.PerformClick()}})         # Enter = click OK button
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$CancelButton.PerformClick()}})    # Escape = click on Cancel button

$OKButton=New-Object System.Windows.Forms.Button # Put the OK button on the form
$OKButton.Location=New-Object System.Drawing.Point(310,170)
$OKButton.Text="OK"
$OKButton.Font='Courier New,9'
$OKButton.Size=New-Object System.Drawing.Size(100,25)
# $OKButton.Size=New-Object System.Drawing.Size(120,20)
$Form.Controls.Add($OKButton)
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$SelectUSBDisk=New-Object System.Windows.Forms.Label # Put the SelectUSBDisk label on the form
$SelectUSBDisk.Location=New-Object System.Drawing.Point(20,25)
$SelectUSBDisk.Font='Courier New,9'
$SelectUSBDisk.Size=New-Object System.Drawing.Size(350,20)
$Form.Controls.Add($SelectUSBDisk)

$SelectISO=New-Object System.Windows.Forms.Label # Put the SelectISO label on the form
$SelectISO.Location=New-Object System.Drawing.Point(20,90)
$SelectISO.Font='Courier New,9'
$SelectISO.Size=New-Object System.Drawing.Size(350,20)
$SelectISO.text="Select ISO image:"

$SelectISOButton=New-Object System.Windows.Forms.Button # Put the SelectISO button on the form
$SelectISOButton.Location=New-Object System.Drawing.Point(375,110)
$SelectISOButton.Text="..."
$SelectISOButton.Font='Courier New,9'
$SelectISOButton.Size=New-Object System.Drawing.Size(35,20)
# $SelectISOButton.Size=New-Object System.Drawing.Size(35,20)

$ISOFile=New-Object System.Windows.Forms.Label # Put the ISO file name on the form
$ISOFile.Location=New-Object System.Drawing.Point(20,110)
$ISOFile.Text=" "
$ISOFile.Font='Courier New,9'
$ISOFile.Size=New-Object System.Drawing.Size(350,20)
$ISOFile.Backcolor = [System.Drawing.Color]::White
$ISOFile.ForeColor = [System.Drawing.Color]::Black
$ISOFile.BorderStyle = [System.Windows.Forms.BorderStyle]::Fixed3D

$Warning=New-Object System.Windows.Forms.Label # Put the Warning label on the form
$Warning.Location=New-Object System.Drawing.Point(20,30)
$Warning.Font='Courier New,9'
$Warning.Size=New-Object System.Drawing.Size(380,80)
$Warning.text="Warning! Your USB disk will be converted to MBR scheme, repartitioned and reformatted. All the data will be lost. `r`n`r`nAre you sure you want to continue?"

#
#    Select the USB disk
# Create a drop-down list and fill it
$USBDiskList=New-Object System.Windows.Forms.ComboBox
$USBDiskList.DropDownStyle=[System.Windows.Forms.ComboBoxStyle]::DropDownList;
$USBDiskList.Location=New-Object System.Drawing.Point(20,45)
$USBDiskList.Size=New-Object System.Drawing.Size(390,25)
$USBDiskList.Font='Courier New,9'
$Form.Controls.Add($SelectUSBDiskList)
$USBDisks=@() # array with USB disk number
$Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
Hide-Console # Hide console display

$Complete=New-Object System.Windows.Forms.Label # Put the Complete label on the form
$Complete.Location=New-Object System.Drawing.Point(20,30)
$Complete.Font='Courier New,9'
$Complete.Size=New-Object System.Drawing.Size(380,80)
$Complete.text="The Windows Installation Disk completed successfully."
#                                                                                   
While (!$Disks) {
    $SelectUSBDisk.Text="Please plug in your USB disk."
    if ($form.ShowDialog() -eq "Cancel"){cancel}
    $Disks=Get-Disk | Where-Object {($_.BusType -eq "USB") -and ($_.OperationalStatus -eq "Online")}
}

$CancelButton=New-Object System.Windows.Forms.Button # Put the Cancel button on the form
$CancelButton.Location=New-Object System.Drawing.Point(20,170)
$CancelButton.Text="Cancel"
$CancelButton.Font='Courier New,9'
$CancelButton.Size=New-Object System.Drawing.Size(100,25)
# $CancelButton.Size=New-Object System.Drawing.Size(120,20)
$Form.Controls.Add($CancelButton)
# $CancelButton.Add_Click({$Form.Close();cancel})
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$Form.Controls.Add($SelectISO)
$Form.Controls.Add($ISOFile)
$Form.Controls.Remove($OKButton)
$SelectISOButton.Add_Click(
    {$Global:ImagePath = Get-FileName # get the iso image path with file browser dialog
     $ImagePath= Split-Path -Path $Global:ImagePath -leaf # extract filename and extension (iso)
     $ISOFile.Text = $ImagePath
     if (($ISOFile.Text).length -gt 44) {$ISOFile.Text = $ImagePath.PadRight(100," ").substring(0,43)+"..."}
     $OKButton.Text="Create disk"
     $Form.Controls.Add($OKButton)})
Foreach ($USBDisk in $Disks) {
    $FriendlyName=($USBDisk.FriendlyName).PadRight(40," ").substring(0,40)
    $USBDisks+=$USBDisk.DiskNumber
    $USBDiskList.Items.Add(("{0,-43}{1:n2} GB" -f $FriendlyName,($USBDisk.Size/1GB)))|out-null
    $Partitions = Get-Partition | Where-Object { $_.DiskNumber -eq $USBDisk.DiskNumber}
    If ($Partitions) {
        Foreach ($Partition in $Partitions) {
        $Volumes=get-volume | Where-Object {$Partition.AccessPaths -contains  $_.path }
            Foreach ($Volume in $Volumes) {
                $USBDisks+=$USBDisk.DiskNumber
                $USBDiskList.Items.Add(("{0,-2}({1,1}:){2,-35}[{3:n2} GB]" -f " ", ($Partition.DriveLetter), $Volume.FileSystemLabel.PadRight(30," ").substring(0,30), ($Partition.Size/1GB)))|out-null
            }
        }
    }
}
$form.Controls.Add($USBDiskList)
$USBDiskList.SelectedIndex=0

$SelectUSBDisk.Text="Select USB disk:"
#
$Form.Controls.Add($SelectISOButton)
#
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#
# At this point the mounted USB disk and the iso image file path are defined
#
$USB=$USBDisks[$USBDiskList.SelectedIndex]
#
# Mount the image file if not already mounted and get the drive letter
#
if (ImagePath -eq ""){Cancel} # this can't happen, but keep the test
#  Check if iso already mounted
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter
#    Mount iso
    IF (!$ISO) {Mount-DiskImage -ImagePath $ImagePath -StorageType ISO |out-null
    $ISO = (Get-DiskImage -ImagePath $ImagePath | Get-Volume).DriveLetter}
    $ISO=$ISO+":"
if ($ISO -eq ":") {Cancel}
#
# Ready to create the USB disk. Ask for confirmation
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$OKButton.Text="Yes"
$CancelButton.Text="No"                     
$Form.Controls.Add($OKButton)
$Form.Controls.Add($Warning)
if ($form.ShowDialog() -eq "Cancel") {DisMount-DiskImage -ImagePath $ImagePath |out-null;Cancel}
Clear-Host
$pswindow.windowtitle = "Windows Installation Disk v1.7"
Show-Console | Out-Null # Restore console display
#    Clear the USB stick
Clear-Disk $usb -RemoveData -RemoveOEM -Confirm:$false
set-disk $usb -partitionstyle mbr
Stop-Service ShellHWDetection -erroraction silentlycontinue|out-null
#    Create the fat32 boot partition
$usbfat32=(New-Partition -DiskNumber $usb -Size  1GB -AssignDriveLetter | Format-Volume -FileSystem FAT32 -NewFileSystemLabel "BOOT").DriveLetter + ":"
#    Create the ntfs intall partition
$usbntfs=(New-Partition -DiskNumber $usb -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -FileSystem NTFS -NewFileSystemLabel "INSTALL").DriveLetter + ":"
Start-Service ShellHWDetection -erroraction silentlycontinue|out-null
#
robocopy $iso $usbntfs /e /xf $iso\boot\bcd $iso\efi\microsoft\boot\bcd
robocopy $iso"\" $usbfat32"\" bootmgr bootmgr.efi
robocopy $iso"\boot" $usbfat32"\boot" /e /xf $iso\boot\bcd
robocopy $iso"\efi" $usbfat32"\efi" /e /xf $iso\efi\microsoft\boot\bcd
robocopy $iso"\sources" $usbfat32"\sources" boot.wim

Copy-Item $ISO"\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\boot\bcd" -Force
Copy-Item $ISO"\EFI\Microsoft\boot\bcd" $env:temp -Force
& bcdedit /store ($env:temp + "\bcd") /set '{default}' bootmenupolicy Legacy
Set-ItemProperty -Path ($env:temp + "\bcd") -Name IsReadOnly -Value $true
Copy-Item ($env:temp + "\bcd") $usbfat32"\EFI\Microsoft\boot\bcd" -Force
Copy-Item ($env:temp + "\bcd") $usbntfs"\EFI\Microsoft\boot\bcd" -Force
remove-item ($env:temp + "\bcd") -force
remove-item ($env:temp + "\bcd.*") -force
# Eject the mounted iso image
DisMount-DiskImage -ImagePath $ImagePath |out-null
#
$Form.Controls.Remove($USBDiskList)
$Form.Controls.Remove($SelectUSBDisk)
$Form.Controls.Remove($SelectISOButton)
$Form.Controls.Remove($OKButton)
$Form.Controls.Remove($ISOFile)
$Form.Controls.Remove($SelectISO)
$Form.Controls.Remove($Warning)
$CancelButton.Text="Close"
$Form.Controls.Add($CancelButton)
$Form.Controls.Add($Complete)
if ($form.ShowDialog() -eq "Cancel") {Cancel}
#done - keep a comment on the last line so the previous useful crlf never gets eaten