vbs 创建快捷方式

@echo off
del tmp.vbs /s /q
cls
set fileName="C:/Apache Software Foundation/Tomcat 5.0/bin/startup.bat"
set fileNameWork="C:/Apache Software Foundation/Tomcat 5.0/bin"
set shortCutPath="%USERPROFILE%/桌面/spifhi.lnk"
echo Dim WshShell,Shortcut>>tmp.vbs
echo Dim path,fso>>tmp.vbs
echo path=%fileName%>>tmp.vbs
echo pathWork=%fileNameWork%>>tmp.vbs
echo Set fso=CreateObject("Scripting.FileSystemObject")>>tmp.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell")>>tmp.vbs
echo Set Shortcut=WshShell.CreateShortCut(%shortCutPath%)>>tmp.vbs
echo Shortcut.TargetPath=path>>tmp.vbs
echo Shortcut.WorkingDirectory=pathWork>>tmp.vbs
echo Shortcut.Save>>tmp.vbs
"%SystemRoot%/System32/WScript.exe" tmp.vbs
del tmp.vbs /s /q
cls