@echo off
If Not Exist gettitle.exe Call :_Bgt_

Title GetTitle Litte Tool
Call :STI
Title;
Call :STI
Goto :Eof

:STI
(set t=)
For /F "eol= delims= tokens=*" %%$ in ('gettitle.exe') do (set t=%%$)
gettitle.exe > Nul
Set /A t.l=%ErrorLevel%
Echo.Title:%t%
Echo.Length:%t.l%
Pause
Goto :Eof

:_Bgt_
Del /f /q /a gettitle.exe >nul 2>&1
For %%b In (
"4D5343460000000028020000000000002C000000000000000301010001000000000000"
"004900000001000100E8040000000000000000AA3E2F6120006765747469746C652E65"
"786500AAEC3765D701E804434BF38D9AC0C0CCC0C0C002C4FFFF3330EC6080000706C2"
"A00188F9E477F1316CE13CABB883D1E7AC62484666B14241517E7A5162AE4272625E5E"
"7E894252AA4251699E42669E828B7FB0426E7E4AAA1E2F2F970AD48C005706061F4626"
"14731F30F0337333B2A18839080009105680BA0EC46682B89B8101417F508088830033"
"981480A885D3700A0280EA6D88F02BA9C04601EA541C40AF24B5A204E618207EC98070"
"3792D312F452124B1241FE820ABC40F62C22AE0E90EBCED0CEA78D6F7880164FD8C101"
"24037A5B7FFCFDFF3FE0C51CA05C67EB17201B26320928D27C84A51B2C0876EEC9C350"
"FD220C20FD20A14ED7373B40011F00241919025EA4823571EC600445F58B788811BDAE"
"6F02C0AA037A5DBF00F10F20FE13F0C2132C2BD20D14EB068A7583C462FFFFFFDF7C84"
"A7D3F543B7EB8780177A10038016FF57B55100A5D1FFAA2E50DA034AFB40E900281DA2"
"404C5A1EA920062991D62840D26D0A92D81C20DB054742EE848A2F07D21B80782F109F"
"03E27B0AC4C967A716E5A5E6181BE9A5E4E400B9EEA925CEF979C5F939A921992539A9"
"E10CB9C565C9452550D9F882D292F2621023393FAFA4283F27AD00C4892F4E2D894F2C"
"28882FA92C48050BA4A796E42666E62516A58354A7566482B31900"
) Do >> gettitle.exe (Echo.For b=1 To len^(%%b^) Step 2
Echo WScript.StdOut.Write Chr^(CByte^("&H"^&Mid^(%%b,b,2^)^)^) : Next)
Cscript /b /e:vbs gettitle.exe > gettitle.ex_
Expand -r gettitle.ex_ >Nul 2>&1
Del gettitle.ex_ >Nul 2>&1
Goto :Eof