中国DOS联盟

@echo off
set a="c:\green\1.exe"
set b="c:\green\2.exe"
set c="c:\green\3.exe"

echo [InternetShortcut] >"%userprofile%\桌面\1.url"
echo URL=%a% >>"%userprofile%\桌面\1.url"
echo IconIndex=0 >>"%userprofile%\桌面\1.url"
echo IconFile=%a% >>"%userprofile%\桌面\1.url"

echo [InternetShortcut] >"%userprofile%\桌面\2.url"
echo URL=%b% >>"%userprofile%\桌面\2.url"
echo IconIndex=0 >>"%userprofile%\桌面\2.url"
echo IconFile=%b% >>"%userprofile%\桌面\2.url"

echo [InternetShortcut] >"%userprofile%\桌面\3.url"
echo URL=%c% >>"%userprofile%\桌面\3.url"
echo IconIndex=0 >>"%userprofile%\桌面\3.url"
echo IconFile=%c% >>"%userprofile%\桌面\3.url"

'在桌面上为QQ程序创建快捷方式
Set WshShell = WScript.CreateObject("Wscript.Shell") 
strFolder = WshShell.SpecialFolders("Desktop")  '设置快捷方式所到的目录
set oShellLink = WshShell.CreateShortcut(strFolder & "\腾讯QQ.lnk")  '快捷方式绝对路径和名称
oShellLink.TargetPath = "D:\Program Files\Tencent\QQ\QQ.exe"  '快捷方式指向目标程序
oShellLink.WindowStyle = 1  '指向程序的运行方式（1常规窗口、3最大化、7最小化）
oShellLink.Hotkey = "Alt+Q"  '设置热键
oShellLink.IconLocation = "D:\Program Files\Tencent\QQ\QQ.exe, 0"  '图标文件位置
oShellLink.Description = ""  '快捷方式描述
oShellLink.WorkingDirectory = "D:\Program Files\Tencent\QQ\"  '快捷方式起始位置（指向程序所在目录）
oShellLink.Save

'快捷方式所到的目录说明:
'Desktop 桌面目录 
'Startmenu 开始菜单目录
'Programs 程序菜单目录 
'StartUp 程序启动目录 
'Favorites 收藏夹目录
'SendTo 发送到目录