007Alex007
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Dim fso, Origin, SourcePath, SourceFolder, DrvFolder, id
Set fso = CreateObject("Scripting.FileSystemObject")
Origin = GetEnvironmentVariable("TS_ORIGIN")
SourcePath = Left(Origin, InStrRev(Origin, "\") - 1)
SourceFolder = ExpandPath("%drive_C%\UltraISO1\drivers")
DrvFolder = SourcePath & "\drivers"
Function OnFirstSandboxOwner
fso.CopyFolder SourceFolder, DrvFolder
id=ExecuteExternalProcess(chr(34) & DrvFolder & "\Install.bat" & chr(34))
WaitForProcess id, 0
End Function
Function OnLastProcessExit
id = ExecuteExternalProcess(chr(34) & DrvFolder & "\Remove.bat" & chr(34))
WaitForProcess id, 0
fso.DeleteFolder DrvFolder
End Function |
Всего записей: 138 | Зарегистр. 18-04-2008 | Отправлено: 21:07 27-03-2015 | Исправлено: 007Alex007, 21:35 27-03-2015 |
|
