#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
#include <File.au3>
GUICreate('Установка', 185, 90) ;создание формы
$setup=GUICtrlCreateButton("Установить сейчас", 2, 2, 180, 40)
$cancel=GUICtrlCreateButton("Выход", 2, 45, 180, 40)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $setup
mem()
Case $msg = $cancel
ExitLoop
Case $GUI_EVENT_CLOSE
EndSelect
Wend
Func Mem()
Local $Code = ""
$Code &= 'Function free()'& @LF
$Code &= 'Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' & @LF
$Code &= 'Set WSHShell = WScript.CreateObject("WScript.Shell") ' & @LF
$Code &= 'Set WshProEnv = WshShell.Environment("PROCESS")' & @LF
$Code &= 'Free=0' & @LF
$Code &= 'PC = WshShell.ExpandEnvironmentStrings("%computername%")' & @LF
$Code &= 'Systema = WshProEnv("SYSTEMDRIVE")' & @LF
$Code &= 'free = FormatNumber(fso.GetDrive(systema).FreeSpace/1048576, 0 , 0)' & @LF
$Code &= 'End Functiom'& @LF
Local $VbsObj = ObjCreate("ScriptControl")
If @error Then Return SetError(1, 0, -1)
$VbsObj.Language = "vbscript"
$VbsObj.AddCode($Code)
$Res = $VbsObj.run("free")
;~ Код VBS скрипта для наглядности
MsgBox(1,"",$code)
;~ В этом окне хочу получить значение FREE
MsgBox(1,"",$res)
Return $Res
EndFunc
EndFunc