命令行创建快捷方式

[转]命令行创建快捷方式的批处理脚本
http://blog.csdn.net/tan_jianhui/article/details/5969496

批处理中直接执行vbs的方法_DOS/BAT_脚本之家


命令行创建快捷方式.bat

:On Error Resume Next
Sub bat
echo off & cls
start wscript -e:vbs "%~f0"
Exit Sub
End Sub

MsgBox "This is vbs"

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "/myQQ.lnk")
oShellLink.TargetPath = "C:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe"
oShellLink.WindowStyle = 3
oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.IconLocation = "C:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe, 0"
oShellLink.Description = "快捷方式"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save