pcl_test

回复 15# nevergiveup520

保存为vbs运行，把结果贴出来

Set objws = wscript.CreateObject("Wscript.Shell")
msgbox "桌面："& objws.SpecialFolders("Desktop")&vbCrLf&"VBS所在路径："& objws.CurrentDirectory
复制代码

nevergiveup520

回复 18# pcl_test

nevergiveup520

回复 11# ygqiang

pcl_test

回复 18# nevergiveup520

居然没有权限，试试以管理员身份运行或者换到其他盘，再或者看看D:\Users\Desktop文件夹，右键，属性>安全，添加当前用户并赋予相应权限

nevergiveup520

回复 19# pcl_test

？？？？你是说的是你给我的两行查询桌面路径的的那个？这个不需要管理员运行啊，右键没有这个以管理员权限运行这个选项啊！其他软件右键有的，以上的脚本我都试过以管理员权限运行过的，都没有成功！

下面是我换成其他盘设置的。

pcl_test

回复 20# nevergiveup520


    不是，说的是你生成快捷方式的批处理

9zhmke

自己写个递归吧，直接在VBS调用这段就可以了：

Function Shortcut(Short_name,path_and_name) '为在桌面创建一个快捷方式
    strDesktop = WshShell.SpecialFolders("AllUsersDesktop") '在桌面创建一个快捷方式
    set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & Short_name & ".lnk")   '名称
    oShellLink.TargetPath = path_and_name      '目标
    oShellLink.WindowStyle = 1    '窗口样式  1默认窗口激活，参数3最大化激活，参数7最小化
    oShellLink.Hotkey = ""         '快捷键
    oShellLink.IconLocation = path_and_name & ",0"     '第几个图标
    oShellLink.Description = Short_name      '备注
    oShellLink.WorkingDirectory = left(path_and_name,InStrRev(path_and_name,"\")-1)   '起始位置
    oShellLink.Arguments = ""    '参数
    oShellLink.Save     '保存
End Function
复制代码

nevergiveup520

回复 21# pcl_test


    若不用管理员权限运行的话 ，窗口一闪而过。我是用管理员权限运行的！

pcl_test

回复 23# nevergiveup520

保存为vbs运行

Set objws = wscript.CreateObject("Wscript.Shell")
'换到其他盘试试
Set objLink = objws.CreateShortcut("E:\123.lnk")
objLink.Save
复制代码

nevergiveup520

回复 24# pcl_test
    运行正常

但是我下面的一段批处理没有在运行的当前目录下创建，而是在C:\Windows\System32的程序创建快捷方式了，请问怎么回事？如图：

@echo off 

echo set ws = createobject("wscript.shell")>lnk.vbs
echo set lnk=ws.createshortcut(wscript.arguments(0))>>lnk.vbs
echo lnk.targetpath=(wscript.arguments(1))>>lnk.vbs
echo lnk.save>>lnk.vbs

for /f "delims=*" %%i in ('dir /a /b/on *.exe') do (
lnk.vbs "D:\Users\Desktop\1\%%~ni.lnk" "%%~fi"
)

del lnk.vbs
复制代码

nevergiveup520

回复 22# 9zhmke


   看不大明白，大神能否说的详细点！

pcl_test

保存为vbs运行，测试对桌面文件夹是否有相应权限

Set objws = wscript.CreateObject("Wscript.Shell")
desktop = objws.SpecialFolders("Desktop")
Set objLink = objws.CreateShortcut(desktop&"\123测试.lnk")
objLink.Save
msgbox "桌面："& desktop
复制代码

pcl_test

保存为bat运行，对照检测用

' 2>nul 3>nul&cls&@echo off
'&for /f "delims=" %%i in ('dir /a-d /b *.exe') do cscript -nologo -e:vbscript "%~f0" "%%~ni" "%%~fi"
'&pause&exit /b

Set objws = wscript.CreateObject("Wscript.Shell")
Desktop = objws.SpecialFolders("Desktop")

'在H盘创建快捷方式
Set objLink1 = objws.CreateShortcut("H:\" & WScript.Arguments(0) & ".lnk")
objLink1.TargetPath = WScript.Arguments(1)
objLink1.Save

'在桌面创建快捷方式
Set objLink2 = objws.CreateShortcut(Desktop & "\" & WScript.Arguments(0) & ".lnk")
objLink2.TargetPath = WScript.Arguments(1)
objLink2.Save
复制代码

nevergiveup520

保存为bat运行，对照检测用
pcl_test 发表于 2016-1-4 16:44

版主啊  按照你给的代码，我试过了  你给的两个路径，可以正常生成快捷方式，但是没有在我需要的

pcl_test

回复 29# nevergiveup520

' 2>nul 3>nul&cls&@echo off
'&echo;批处理所在路径：%~pd0
'&for /f "delims=" %%i in ('dir /a-d /b *.exe') do cscript -nologo -e:vbscript "%~f0" "%%~ni" "%%~fi"
'&pause&exit /b
Set objws = wscript.CreateObject("Wscript.Shell")
Desktop = objws.SpecialFolders("Desktop")

'在桌面创建快捷方式
lnk = Desktop & "\" & WScript.Arguments(0) & ".lnk"
Set objLink = objws.CreateShortcut(lnk)
objLink.TargetPath = WScript.Arguments(1)
WSH.echo lnk & vbCrLf &"程序所在路径：" &WScript.Arguments(1)
objLink.Save
复制代码