批处理创建快捷方式

说到创建快捷方式我们都知道如何创建，但如何利用自动创建快捷方式更好的提高工作效率是我们值得思考的一件事，比如说我们单位有很多业务软件都是安装在统一的目录下，业务软件都是绿色软件，没有自动创建快捷方式，导致用户在使用计算机上需要一个个目录查找很不方便。IT人员如果一台台得去给用户手动创建那也是不明智的，如果有几千台计算机或者是域环境中用户都是随机选择登录的，估计你要崩溃，现在提到这个是为后面的加域脚本文章作铺垫，更能自动化工作，以下是创建业务软件快捷方式的范例，可以通过域组策略中的用户登录脚本制定用户标准化得桌面快捷方式，但注意以下快捷方式等同于在电脑桌面上右击创建快捷方式，然后指定程序对象所在位置路径，不同于“右击文件或程序—发送到桌面”创建的桌面快捷方式，至于有哪些不同请自己斟酌：

@echo off
echo [InternetShortcut] >财富账户专业版.url
echo URL=C:\WINDOWS\system32\CMBPBWA.exe >>财富账户专业版.url
echo IconIndex=2 >>财富账户专业版.url
echo IconFile=C:\windows\system32\shell32.dll >>财富账户专业版.url

echo [InternetShortcut] >电子汇兑前台4.0.url
echo URL=C:\Program Files\CMB\STLFront\STLFront.exe >>电子汇兑前台4.0.url
echo IconIndex=2 >>电子汇兑前台4.0.url
echo IconFile=C:\windows\system32\shell32.dll >>电子汇兑前台4.0.url
exit

下面给的创建桌面快捷方式vb脚本，等同于“右击程序或文件发送到桌面”创立的快捷方式，创建脚本文件2.vbs的桌面快捷方式：2.lnk，2.vbs文件位于服务器上的共享文件夹加域脚本里，此处忽略客户端访问服务器共享文件的方式。

set WshShell = WScript.CreateObject("WScript.Shell") 

strDesktop = WshShell.SpecialFolders("Desktop")

set oShellLink = WshShell.CreateShortcut(strDesktop & "\2.lnk") 

oShellLink.TargetPath = \\192.168.1.51\加域脚本\2.vbs '快捷方式里的“目标”

oShellLink.WorkingDirectory = "\\192.168.1.51\加域脚本" '快捷方式里的“起始位置”

oShellLink.Save

下面给出上面的批处理脚本，作用相同：

cd.>fn.vbs
for /f "usebackq skip=4 tokens=*" %%a in (%0) do @echo %%a>>fn.vbs
fn.vbs&del fn.vbs /q
goto :eof
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\2.lnk")
oShellLink.TargetPath = "\\192.168.1.51\加域脚本\2.vbs" '快捷方式里的“目标”
oShellLink.WorkingDirectory = "\\192.168.1.51\加域脚本"  '快捷方式里的“起始位置”
oShellLink.Save

注意：附件为自己私用已设密码，请勿下载！