版本一：


         set WshShell = WScript.CreateObject("WScript.Shell")  '设置CreateObject 方法

         strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径

         set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk")  '设置快捷方式将要保存到的路径和快捷方式名,你也可以指定一个真实存在的路径，这个范例是创建到桌面

         oShellLink.TargetPath = "d:\qq\QQ***清除.vbs" '快捷方式里的“目标”

         oShellLink.WindowStyle = 1  '快捷方式里的“运行方式”

         oShellLink.Hotkey = "Ctrl+Alt+e"  '快捷方式里的“快捷键”

         oShellLink.IconLocation = "d:\qq\qq.exe, 0"  '快捷方式的图标

         oShellLink.Description = "腾讯QQ"  '快捷方式里的“备注”

         oShellLink.WorkingDirectory = "d:\qq"  '快捷方式里的“起始位置”

         oShellLink.Save '建立快捷方式


版本二：


        如果是创建程序的快捷方式，以下代码即可：

         set WshShell = WScript.CreateObject("WScript.Shell")  '设置CreateObject 方法

         strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径

         set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk")  '设置快捷方式将要保存到的路径和快捷方式名,你也可以指定一个真实存在的路径，这个范例是创建到桌面

         oShellLink.TargetPath = "d:\qq\QQ***清除.vbs" '快捷方式里的“目标”

         oShellLink.WorkingDirectory = "d:\qq"  '快捷方式里的“起始位置”

         oShellLink.Save '建立快捷方式