批处理脚本(vbs)创建快捷方式

 

@echo off
rem oLink.Arguments
rem oLink.Description
rem oLink.HotKey
rem oLink.IconLocation
rem oLink.WindowStyle
rem oLink.WorkingDirectory

set SCRIPT="%TEMP%\%RANDOM%-%RANDOM%-%RANDOM%-%RANDOM%.vbs"

echo Set oWS = WScript.CreateObject("WScript.Shell") >> %SCRIPT%
echo sLinkFile = "%cd%\agvtask.lnk" >> %SCRIPT%
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %SCRIPT%
echo oLink.TargetPath = "%cd%\bin\agvtask.exe" >> %SCRIPT%
echo oLink.IconLocation = "%cd%\bin\agvtask.exe" >> %SCRIPT%
echo oLink.Save >> %SCRIPT%

echo sLinkFile = "%cd%\app.lnk" >> %SCRIPT%
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %SCRIPT%
echo oLink.TargetPath = "%cd%\bin\AGVApp.exe" >> %SCRIPT%
echo oLink.IconLocation = "%cd%\bin\AGVApp.exe" >> %SCRIPT%
echo oLink.Save >> %SCRIPT%

echo sLinkFile = "%cd%\vcar.lnk" >> %SCRIPT%
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %SCRIPT%
echo oLink.TargetPath = "%cd%\virtualcar\agv-VirtualCarForm.exe" >> %SCRIPT%
echo oLink.IconLocation = "%cd%\virtualcar\agv-VirtualCarForm.exe" >> %SCRIPT%
echo oLink.Save >> %SCRIPT%

cscript /nologo %SCRIPT%
del %SCRIPT%