CMD/BAT

stuntman77 · Отправлено: **16:14, 05-02-2011** | #2

вопрос снимается,сделал как ниже,работает как и требовалось.

вот теперь мысль есть как это все компактно в один vbs\wsh соорудить?
а потом компилировать в один exe-ник.

PHP код:


@ECHO OFF

COLOR 1E

:loop

CLS  

@echo                    &#9556;═════════════════════════════════════════════════╗

@echo                    &#9553; УСТАНОВИТЕ USB НОСИТЕЛЬ В РАЗЪЕМ НА КЛАВИАТУРЕ!                   ║

@echo                    &#9562;═════════════════════════════════════════════════╝

@QWERTY.vbs

set /P flash=<"./l" || ping -n 4 localhost 1>nul && goto:loop

if exist /P flash=<"./l" ( 

@echo                    &#9556;═════════════════════════════════════════════════╗

@echo                    &#9553;                 КОПИРОВАНИЕ...                                                                  ║

@echo                    &#9562;═════════════════════════════════════════════════╝

set datetemp=%date:~-10%

xcopy "c:\2011" "%flash%:\%datetemp%\" /H /E /G /q /R /Y || ping -n 4 localhost 1>nul && goto:loop

@echo                  ╔═════════════════════════════════════════════════════╗

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!           ║ 

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!      ║ 

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!║ 

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!                         ║

@echo                  ╚═════════════════════════════════════════════════════╝

@del "./l"

set Timer=5

ping -n %Timer% 127.0.0.1>nul 

@echo                    ╔═════════════════════════════════════════════════╗

@echo                    ║             ИЗВЛЕКИТЕ USB НОСИТЕЛЬ              ║

@echo                    ╚═════════════════════════════════════════════════╝

set Timer=15

ping -n %Timer% 127.0.0.1>nul

PHP код:


flash = ""

'Set fs = CreateObject("Scripting.FileSystemObject") 

Set fso = CreateObject("Scripting.FileSystemObject")

Set Drives = FSO.Drives 

For Each Drive In Drives

    if ((Drive.DriveType = 1) and (Drive.DriveLetter <> "A") and (Drive.DriveLetter <> "B") and Drive.IsReady) then 

        flash =  Drive.DriveLetter

        exit for

    end if

Next



'e:



Set f1 = fso.CreateTextFile("l", True)

f1.WriteLine flash

f1.Close