flashercs

@echo off
for /f "delims=" %%A in ('mshta vbscript:Execute("On Error Resume Next:Dim str,fso:str=InputBox(""请输入备份理由:"",""重命名"",""理由...""):Set fso=CreateObject(""Scripting.FileSystemObject""):fso.GetStandardStream(1).Write(str):Set fso=Nothing:close"^)') do (
    echo Your input is:%%A
)
pause
exit /b
复制代码