1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| @echo off
Title Effacement automatique de la Video apres 30 minutes by Hackoo
Mode con cols=80 lines=15 & Color 9B
set /a Heure=%TIME:~0,2%
set Minute=%TIME:~3,2%
set secs=%TIME:~6,2%
:: Obtenir un décalage de 30 minutes
set /a AjoutMin=%TIME:~3,2%+30
set /a HeureModif=%TIME:~0,2%
if "%HeureModif:~0,1%" == " " set HeureModif=0%HeureModif:~1,1%
echo Heure=%HeureModif%
if "%AjoutMin:~0,1%" == " " set AjoutMin=0%AjoutMin:~1,1%
echo Minute=%Minute%
if "%secs:~0,1%" == " " set secs=0%secs:~1,1%
echo secs=%secs%
if %AjoutMin% geq 60 set /a HeureModif=HeureModif+AjoutMin/60 && set /a AjoutMin=AjoutMin%%60
if %HeureModif% leq 9 set HeureModif=0%HeureModif%
if %AjoutMin% leq 9 set AjoutMin=0%AjoutMin%
Set MaDate=%Date:~0,10%
echo La Date d^'aujourd^'hui = %Madate%
echo l^'heure actuelle lors de l'^execution de ce Script Batch : %Heure%:%Minute%:%secs%
echo.
Set LetterUSB=%tmp%\LetterUSB.vbs
(
echo Function MyDriveletter
echo Set objWMIService = GetObject^("winmgmts:" ^& "{impersonationLevel=impersonate}!\\" ^& "." ^& "\root\cimv2"^)
echo For Each objDisk in objWMIService.ExecQuery^("Select * from Win32_LogicalDisk"^)
echo If objDisk.DriveType = "2" Then
echo MyDriveletter = objDisk.DeviceID
echo End If
echo Next
echo set fs=CreateObject^("Scripting.FileSystemObject"^)
echo strFile=fs.GetAbsolutePathName^(fs.BuildPath^(fs.GetSpecialFolder^(2^),"USB.txt"^)^)
echo set ts=fs.OpenTextFile^(strFile,2,True^)
echo ts.WriteLine MyDriveletter
echo ts.Close
echo End Function
echo MyDriveletter
) > %LetterUSB%
cscript //nologo %LetterUSB%
Del %LetterUSB%
for /f %%i in (%Tmp%\USB.txt) do set "MyUSBDrive=%%i"
echo La Lettre de votre cle USB est %MyUSBDrive%
Del %Tmp%\USB.txt
echo l^'heure prevue apres 30 Minutes pour effacer la video %MyUSBDrive%\After.Doomsday.2014.FRENCH.DVDRIP.XVID-PREM.zone-telechargement.com.avi : %HeureModif%:%AjoutMin%:00
echo.
echo Del %MyUSBDrive%\After.Doomsday.2014.FRENCH.DVDRIP.XVID-PREM.zone-telechargement.com.avi > %Tmp%\Supprim.bat
Set Macommande=%Tmp%\Supprim.bat
Set NomTache=Effacement Automatique de la video
::Création d'une tâche planifié qui s'exécute une seule fois après 30 minutes de l'exécution de ce batch
SCHTASKS /create /tn "%NomTache%" /tr "%Macommande%" /sc ONCE /sd %MaDate% /st %HeureModif%:%AjoutMin%:00
pause |
Partager