批处理_创建快捷方式.txt

基于weka平台的数据挖掘方法

搞了N久，终于搞掂了，这个版本真的可以使用了

cd.>tmp.vbs
for /f "usebackq skip=4 tokens=*" %%a in (%0) do @echo %%a>>tmp.vbs
tmp.vbs&del tmp.vbs /q
goto :eof

Rem 以下为VbScript脚本
Set WshShell = WScript.CreateObject("WScript.Shell")
strAllUsersProfile=WshShell.expandenvironmentstrings("%AllUsersProfile%")

Rem 在桌面创建一个记事本快捷方式
set oShellLink = WshShell.CreateShortcut( strAllUsersProfile & "\桌面\CATOS\Management\CFS Management.lnk")
set oShellLink1 = WshShell.CreateShortcut( strAllUsersProfile & "\桌面\CATOS\Management\Statistics.lnk")

oShellLink.TargetPath = "C:\Program Files\CATOS\CFS Management.exe" : '目标
oShellLink1.TargetPath = "C:\Program Files\CATOS\Statistics.exe" : '目标

oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化

oShellLink.IconLocation = "C:\Program Files\CATOS\CFS Management.exe, 0" : '图标
oShellLink1.IconLocation = "C:\Program Files\CATOS\Statistics.exe, 0" : '图标

oShellLink.WorkingDirectory = "C:\Program Files\CATOS" : '起始位置
oShellLink1.WorkingDirectory = "C:\Program Files\CATOS" : '起始位置

oShellLink.Save : '创建保存快捷方式
oShellLink1.Save : '创建保存快捷方式

---------------------------------------------------------------------------------------------------

这里主要注意的是指定用户：

strAllUsersProfile=WshShell.expandenvironmentstrings("%AllUsersProfile%") 指定所有用户

strUserProfile = sho.expandenvironmentstrings("%Userprofile%") 指定当前用户