set WshShell = Wscript.CreateObject("Wscript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\\测试快捷方式.lnk") '创建一个快捷方式对象,其在桌面上显示的名字为"测试快捷方式" oShellLink.TargetPath = "C:\\test.VBs" '设置快捷方式的执行路径 oShellLink.WindowStyle = 1 '运行方式oShellLink.Hotkey = "Ctrl+Alt+e" '设置快捷方式的快捷键 oShellLink.IconLocation = "shdoclc.dll" '设置快捷方式的图标路径 oShellLink.Description = "测试快捷方式的描述 " '设置快捷方式的描述 oShellLink.WorkingDirectory = "C:\" '起始位置oShellLink.Save
