windows脚本创建桌面快捷图标方式

一、示例为创建记事本的快捷方式到桌面

set path=%WINDIR%\notepad.exeset topath=%USERPROFILE%\桌面\记事本.urlecho %topath%echo URL=%path% %topath%echo IconIndex=0 %topath%echo IconFile=%path% %topath%

二、利用批处理创建桌面快捷方式

goto :eofRem 以下为VbScript脚本Set WshShell = WScript.CreateObject(WScript.Shell)strDesktop = WshShell.SpecialFolders(Desktop) :特殊文件夹“桌面”Rem 在桌面创建一个记事本快捷方式set oShellLink = WshShell.CreateShortcut(strDesktop \记事本.lnk)oShellLink.TargetPath = notepad.exe : 目标oShellLink.WindowStyle = 3 :参数1默认窗口激活，参数3最大化激活，参数7最小化

oShellLink.Hotkey = Ctrl+Alt+e : 快捷键oShellLink.Ic : 图标oShellLink.Description = 记事本快捷方式 : 备注oShellLink.WorkingDirectory = strDesktop : 起始位置oShellLink.Save : 创建保存快捷方式Rem 在桌面创建一个 腾讯QQ 2007set oShellLink = WshShell.CreateShortcut(strDesktop \腾讯QQ 2007 .lnk)oShellLink.TargetPath = D:\Tencent\QQ\QQ.exe : 目标oShellLink.WindowStyle = 3 :参数1默认窗口激活，参数3最大化激活，参数7最小化oShellLink.Hotkey = Ctrl+Alt+q : 快捷键oShellLink.Ic : 图标oShellLink.Description = 腾讯QQ 2007 : 备注oShellLink.WorkingDirectory = strDesktop : 起始位置oShellLink.Save : 创建保存快捷方式Rem 在桌面创建一个“微软中国”的Url快捷方式set oUrlLink = WshShell.CreateShortcut(strDesktop \百度搜索.url)oUrlLink.TargetPath = http://www.baidu.com/

三、批处理桌面创建快捷方式

EXE型

S batecho off clsecho create_shortcutstart wscript -e:vbs %~f0Exit SEnd S

Set WshShell = WScript.CreateObject(WScript.Shell)strDesktop = WshShell.SpecialFolders(Desktop)set oShellLink = WshShell.CreateShortcut(strDesktop \QQ.lnk)oShellLink.TargetPath = d:\QQ\QQ.exeoShellLink.WindowStyle = 3oShellLink.Hotkey = Ctrl+Alt+eoShellLink.IconLocation = d:\QQ\QQ.exe, 0oShellLink.Description = 快捷方式oShellLink.WorkingDirectory = d:\QQoShellLink.Save

P型

S batecho off clsecho create_shortcutstart wscript -e:vbs %~f0Exit SEnd S

Set WshShell = WScript.CreateObject(WScript.Shell)strDesktop = WshShell.SpecialFolders(Desktop)set oShellLink = WshShell.CreateShortcut(strDesktop \学习天地.lnk)oShellLink.TargetPath = http://localhost:81oShellLink.WindowStyle = 3oShellLink.Hotkey = Ctrl+Alt+eoShellLink.IconLocation = %SystemRoot%ystem32\url.dll, 0oShellLink.Description = 快捷方式oShellLink.WorkingDirectory = C:\Program Files\Internet ExploreroShellLink.Save