[Iska]

присвоить переменную »

Может быть — «присвоить переменной»?

Код:

@echo off
setlocal

for /f "tokens=2 delims=:" %%i in ('chcp') do (
    set sPrevCP=%%i
    chcp 1251 >nul
)

for /f "usebackq delims=" %%i in (
    `@"%systemroot%\system32\mshta.exe" "javascript:var s=clipboardData.getData('text'); {try {new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(s)} catch (e){}} close();" ^
    1^|more`
) do set share=%%i

chcp %sPrevCP% >nul

if defined share echo [%share%]

endlocal
exit /b 0