用脚本创建快捷方式

@echo off
set shortCutPath=C:\Documents and Settings\administrator\桌面
set shortCutName=报表
set StartPath=起始位置
set shortCutSource=目标
md "%shortCutSource%"
md "%StartPath%"
echo Dim WshShell,Shortcut>>tmp.vbs 
echo Dim path,path1,fso>>tmp.vbs 
echo path="%shortCutSource%">>tmp.vbs 
echo path1="%StartPath%">>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%\%shortCutName%.lnk")>>tmp.vbs 
echo Shortcut.TargetPath=path>>tmp.vbs 
echo Shortcut.WorkingDirectory=path1>>tmp.vbs 
echo Shortcut.Save>>tmp.vbs 
"%SystemRoot%\System32\WScript.exe" tmp.vbs 
@del /f /s /q tmp.vbs