实例二（使用.bat 批处理程序）
----------------------------------------------------------
@echo off
if exist "%test.url" echo 链接 "%test.url" 已创建！ & goto :eof
if exist "%~f2" echo 目标 "%~f2" 不存在！ & goto :eof
echo [InternetShortcut] > "%test.url"
echo URL=%~f2 >> "%test.url"
echo IconIndex=0 >> "%test.url"
echo IconFile=%~f2 >> "%test.url"

实例三（使用.vbs 程序）
----------------------------------------------------------
Dim WSHShell, fs
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Function

MakeDesktopShortcut "Shortcut to Notepad", "C:\Windows\Notepad.exe"

实例四（使用.vbs 程序）
----------------------------------------------------------
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")  '获得桌面目录
set oShellLink = WshShell.CreateShortcut(strDesktop & "\qq.lnk")  '快捷方式存放目录及名称
oShellLink.TargetPath = "C:\Program Files\Tencent\QQ\CoralQQ.exe"  '指向的可执行文件
oShellLink.WindowStyle = 1  '运行方式
oShellLink.Hotkey = "CTRL+SHIFT+F"  '快捷键
oShellLink.IconLocation = "C:\Program Files\Tencent\QQ\QQ.exe, 0"  '图标
oShellLink.Description = "qq"  '备注
oShellLink.WorkingDirectory = "C:\Program Files\Tencent\QQ\"  '起始目录
oShellLink.Save  '创建快捷方式