WIN11新版系统中由于安全性微软已经移除或禁用了一些脚本的运行
比如mshta VBScript:Execute脚本在WIN11.25H2-WIN26H1-WIN11.26H2就已经失效
一般一些绿化脚本中利用mshta VBScript:Execute来创建快捷方式，如：
SET "UserStartMenuPATH=%AllUsersProfile%\Microsoft\Windows\Start Menu\Programs\CorelDRAW 2025"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CorelDRAW 2025.lnk""):b.TargetPath=""%CD%\Programs64\CorelDRW.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%UserStartMenuPATH%"" & ""\CorelDRW 2025.lnk""):b.TargetPath=""%CD%\Programs64\CorelDRW.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
以上脚本就是对脚本目录下的Programs64\CorelDRW.exe在用户桌面和开始菜单中分别创建快捷方式
我们可以用其他方式来代替，这里简单介绍2方式：
方法1、vbs方式，将以上代码修改为：
set SCRIPT=%TEMP%\%RANDOM%-%RANDOM%-%RANDOM%-%RANDOM%.vbs
set UserStartMenuPATH=%ProgramData%\Microsoft\Windows\Start Menu\Programs
set Desktop=%PUBLIC%\Desktop
echo Set oWS = WScript.CreateObject("WScript.Shell") > "%SCRIPT%"
echo sLinkFile = "%UserStartMenuPATH%\CorelDRAW 2025\CorelDRW 2025.lnk" >> "%SCRIPT%"
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> "%SCRIPT%"
echo oLink.TargetPath = "%CD%\Programs64\CorelDRW.exe" >> "%SCRIPT%"
echo oLink.IconLocation = "%CD%\Programs64\CorelDRW.exe" >> "%SCRIPT%"
echo oLink.WorkingDirectory = "%CD%\Programs64" >> "%SCRIPT%"
echo oLink.Save >> "%SCRIPT%"
echo sLinkFile = "%Desktop%\CorelDRW 2025.lnk" >> "%SCRIPT%"
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> "%SCRIPT%"
echo oLink.TargetPath = "%CD%\Programs64\CorelDRW.exe" >> "%SCRIPT%"
echo oLink.IconLocation = "%CD%\Programs64\CorelDRW.exe" >> "%SCRIPT%"
echo oLink.WorkingDirectory = "%CD%\Programs64" >> "%SCRIPT%"
echo oLink.Save >> "%SCRIPT%"
cscript /nologo "%SCRIPT%"
del /f /q "%SCRIPT%" >nul 2>&1
方法2、利用scut.exe小工具创建快捷方法
先将scut.exe放于脚本同级目录
然后修改以上脚本为：
set UserStartMenuPATH=%ProgramData%\Microsoft\Windows\Start Menu\Programs
set Desktop=%PUBLIC%\Desktop
"%CD%\scut.exe" -create "%Desktop%\CorelDRAW 2025.lnk" -target "%CD%\Programs64\CorelDRW.exe"
"%CD%\scut.exe" -create "%UserStartMenuPATH%\CorelDRAW 2025\CorelDRAW 2025.lnk" -target "%CD%\Programs64\CorelDRW.exe"
这样的方式适合大批量的创建快捷方式