Set objshell = createobject("wscript.shell")

' aqui estar en el escritorio

Objshell.sendkeys "{PRTSC}"
Set paint = objshell.exec("mspaint")
Wscript.sleep 1000
Objshell.appactivate paint.processid
Objshell.sendkeys "^V"

@echo off

::           ...
::   aqui tu codigo
::           ...

call :bytes TU_ARCHIVO.txt
pause>nul
exit

:bytes
if ["%~z1"] GTR ["1"] (
echo.Es mayor de 1 byte, tiene %~z1
) else (
echo.Es menor de 1 byte, tiene %~z1
)
goto:eof

exit /b

exit /b 0

exit /b %t%

echo.exit /b + errorlevel
echo.
exit /b 69

@echo off
call code.bat
echo.Errorlevel: %errorlevel%
pause>nul
exit