[文件操作] 批处理如何运行此程序并自动获取当前路径创建快捷方式到桌面上

@echo off
for /f "tokens=2 delims==" %%i in ('wmic process where "name='uninstall.exe'" get executablepath /value') do (
    set FilePath=%%i
)
mshta VBScript:Execute("Set Wsh=CreateObject(""WScript.Shell""):Set Lnk=Wsh.CreateShortcut(""uninstall.lnk""):Lnk.TargetPath=""%FilePath%"":Lnk.Save:close")
pause
复制代码