[Элементы GUI] Доработка интерфейса для создания образа восстановления Windows 8

[rafzak]

Добрый день.
Прошу помочь доработать скрипт для создания образа восстановления Windows 8

#RequireAdmin
$text = InputBox("Создание образа восстановления", "Введите букву локального диска для сохранения образа восстановления (например R):",""," M1")
RunWait(@ComSpec & ' /c recimg.exe /createimage '&$text&':\WindowsImageBackup', '')
Sleep(500)
MsgBox(0,'','Создание образа завершено.')

- Хотелось бы выбор из дисков типа комбо бокс, существующих в системе из тех на которые возможно сохранить WIM-образ
- В идеале, чтобы окно recimg.exe не убиралось - можно было бы посмотреть отчет о завершении

Специалисты, может ещё какую-нибудь предложите обработку ошибок для более менее информативной работы скрипта (окно "Создание образа завершено." всплывает при любом раскладе)

Спасибо.

 

[MnM]

#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
$GUI = GUICreate("", 367, 87)
$CreateIm = GUICtrlCreateButton("Создать образ диска", 184, 24, 160, 25)
$Drive = GUICtrlCreateCombo("", 16, 24, 145, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($Drive,__ATS(DriveGetDrive('fixed')))
GUISetState(@SW_SHOW)
While 1
	Switch GUIGetMsg()
		Case $CreateIm
			Local $Dr=GUICtrlRead($Drive)
			If $Dr<>"" Then
				RunWait(@ComSpec & ' /c recimg.exe /createimage '&$Dr&'\WindowsImageBackup', '')
			EndIf
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
Func __ATS($__array)
	Local $__ret
	For $i=1 To UBound($__array)-1
		$__ret&=$__array[$i]&"|"
	Next
	Return StringTrimRight($__ret,1)
EndFunc

 

[Spyhunter]

А чтобы консоль не закрывалась, нужно заменить ключ /c на /k