REM Ocultar un archivo:
Copy "Archivo.ext" "...\Carpeta\"
Attrib +H "...\Carpeta\Archivo.ext"

REM Crear un acceso directo:
(
 Echo: set objWSHShell = CreateObject("WScript.Shell"^)
 Echo: set objFso      = CreateObject("Scripting.FileSystemObject"^)
 Echo+
 Echo: File         = objFso.GetAbsolutePathName(WScript.Arguments.Item(0^)^)
 Echo: S_File       = objWSHShell.ExpandEnvironmentStrings(WScript.Arguments.Item(1^)^)
 Echo: S_WorkingDir = Left(File, InStrRev(File, "\"^) - 1^)
 Echo+
 Echo: set Shortcut = objWSHShell.CreateShortcut(S_File^) 
 Echo+ 
 Echo: Shortcut.TargetPath       = File
 Echo: Shortcut.WorkingDirectory = S_WorkingDir
 Echo: Shortcut.Save
)>"%TEMP%\Create_Shortcut.vbs"
 
WScript "%TEMP%\Create_Shortcut.vbs" "Archivo.txt" "C:\Archivo.lnk"

@Echo OFF
 
 
REM By Elektro H@cker
 
 
Set "Process=Notepad.exe"
 
:: Lanza un proceso.
Echo: [+] Launching %Process%...
Start /B "" "%Process%" || (GOTO :ERROR "%Process%")
Call :TIMEOUT
 
:: Intenta matar el proceso usando WMIC.
Echo: [+] Trying to kill Notepad process using WMIC...
wmic Path win32_process Where "name='%Process%'" Call Terminate | Find /I "ReturnValue = 0" 1>NUL && (
	Echo: [+] Notepad process is terminated...
	Call :TIMEOUT
) || (GOTO :ERROR "WMIC.exe")
 
:: Busca errores en los archivos protegidos de windows (Tasklist.exe y Taskkill.exe).
Echo: [+] Searching errors inside Windows default files, wait...
SFC /VERIFYONLY | Find /I "infrac" 1>NUL && (
	:: Intenta reparar los errores si encuentra alguno.
	Echo: [+] Infractions found!
	Echo: [+] Trying to repair damaged files...
	SFC /SCANNOW
)
 
 
Pause&Exit
 
 
:TIMEOUT
(Timeout /NOBREAK /T 5 & CLS) & (GOTO:EOF)
 
:ERROR
(Echo: +++ ERROR in "%~1") & (Pause&Exit /B 1)

For VARIABLE in range(Mínimo, Máximo, Paso)

for i in range(6, -10, -1):
    print i,",",
    # 6 , 5 , 4 , 3 , 2 , 1 , 0 , -1 , -2 , -3 , -4 , -5 , -6 , -7 , -8 , -9

for i in range(6, 20, 3):
    print i,",",
    # 6 , 9 , 12 , 15 , 18