批处理创建桌面快捷方式

一、VB脚本创建桌面快捷方式

1.创建lnk快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
Rem 特殊文件夹桌面
strDesktop = WshShell.SpecialFolders("Desktop") 
Rem ShortCutName表示桌面图标名称
set oShellLink = WshShell.CreateShortcut(strDesktop & "\ShortCutName.lnk")
Rem TargetProgramPath表示目标程序所在路径
oShellLink.TargetPath = "TargetProgramPath" 
Rem 参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.WindowStyle = 3
Rem ShortcutKey表示快捷键，示例：Ctrl+Alt+e
oShellLink.Hotkey = "ShortcutKey"
Rem IconLocation表示桌面快捷方式图标路径
oShellLink.IconLocation = “IconLocation”
Rem Remark表示桌面快捷方式备注
oShellLink.Description = "Remark"
Rem WorkingDirectory表示起始位置
oShellLink.WorkingDirectory = “WorkingDirectory”
Rem 保存快捷方式
oShellLink.Save

2.创建url快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
Rem 特殊文件夹桌面
strDesktop = WshShell.SpecialFolders("Desktop") 
Rem ShortCutName表示桌面图标名称
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\ShortCutName.url")
Rem TargetProgramPath表示目标程序所在路径，示例：http://www.baidu.com/
oUrlLink.TargetPath = "TargetProgramPath"
Rem 保存快捷方式
oUrlLink.Save

二、bat脚本示例：

:: 定义创建桌面快捷
:: -- %~1: 应用程序所在路径
:: -- %~2: 桌面快捷方式名称
:: -- %~3: 快捷方式图标目录
:create_desktop_shortcut
	IF NOT DEFINED WorkDir call:GetWorkDir "%~1" 
	(ECHO Set WshShell=CreateObject("WScript.Shell"^)
	ECHO strDesKtop=WshShell.SpecialFolders("DesKtop"^)
	ECHO Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%~2.lnk"^)
	ECHO oShellLink.TargetPath="%~1"
	ECHO oShellLink.WorkingDirectory=""
	ECHO oShellLink.IconLocation="%~3"
	ECHO oShellLink.WindowStyle=1
	ECHO oShellLink.Description=""
	ECHO oShellLink.Save)>makelnk.vbs
	ECHO 桌面快捷方式创建成功！
	makelnk.vbs
	DEL /f /q makelnk.vbs
GOTO:EOF