一段批处理生成的快捷方式 - 中国DOS联盟论坛

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")
strDesktop = WshShell.SpecialFolders("Desktop") :'
特殊文件夹“桌面”
Rem 在桌面创建一个记事本快捷方式
set oShellLink = WshShell.CreateShortcut( strDesktop &
"\CATOS\Berth Planning.lnk")
oShellLink.TargetPath = "C:\Program Files\CATOS\Berth Planning.exe"
: '目标
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参
数7最小化
oShellLink.IconLocation = "C:\Program Files\CATOS\Berth
Planning.exe, 0" : '图标
oShellLink.WorkingDirectory = "C:\Program Files\CATOS" : '起始位置
oShellLink.Save : '创建保存快捷方式
--------------------------------------------------------------------------------------------
我想把快捷方式放到allusersprofile里面中的"桌面/CATOS"文件夹下,但按照上面的代码只能把快捷方式COPY到当前的用户文件夹中,那这个allusersprofile应放去哪里呢?

第1楼　Standley	发表于 2007-09-19 22:58
新手上路　发帖 3　积分 7
[讨论]一段批处理生成的快捷方式 SET link=%UserProfile%\桌面\catos\manage\war3.url ECHO [InternetShortcut]>"%link%" ECHO URL=File:///F:/war3/Warcraft III/Warcraft III/Frozen Throne.exe>>"%link%" ECHO WorkingDirectory=F:/war3/Warcraft III/Warcraft III>>"%link%" ECHO ShowCommand=7>>"%link%" ECHO IconFile=F:\war3\Warcraft III\Warcraft III\Frozen Throne.exe>>"%link%" ECHO IconIndex=^0>>"%link%" ECHO HotKey=1601>>"%link%" --------------------------------------------------------------------------------------- 以上代码是在网上找回来的,但是他这里生成的快捷方式是INTERNET快捷方式,不用INTERNET方式那应该怎么修改呢?

第2楼　HAT	发表于 2007-09-20 05:20
版主　发帖 5,017　积分 9,023
批处理创建快捷方式 http://www.cn-dos.net/forum/viewthread.php?tid=25494&fpage=1&highlight=%2B%E5%BF%AB%E6%8D%B7%E6%96%B9%E5%BC%8F%2B&page=1

第3楼　Standley	发表于 2007-09-20 23:13
新手上路　发帖 3　积分 7
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") strDesktop = WshShell.SpecialFolders("Desktop") :' 特殊文件夹“桌面” Rem 在桌面创建一个记事本快捷方式 set oShellLink = WshShell.CreateShortcut( strDesktop & "\CATOS\Berth Planning.lnk") oShellLink.TargetPath = "C:\Program Files\CATOS\Berth Planning.exe" : '目标 oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化 oShellLink.IconLocation = "C:\Program Files\CATOS\Berth Planning.exe, 0" : '图标 oShellLink.WorkingDirectory = "C:\Program Files\CATOS" : '起始位置 oShellLink.Save : '创建保存快捷方式 -------------------------------------------------------------------------------------------- 我想把快捷方式放到allusersprofile里面中的"桌面/CATOS"文件夹下,但按照上面的代码只能把快捷方式COPY到当前的用户文件夹中,那这个allusersprofile应放去哪里呢?

第4楼　Standley	发表于 2007-09-20 23:57
新手上路　发帖 3　积分 7
结题咯，终于知道怎么搞，YEAH~