在startup目录里创建快捷方式不行,不需要提权的目录创建快捷方式没问题。
运行st.vbs后并没有创建出快捷方式。- Set objShell = CreateObject("Shell.Application")
- objShell.ShellExecute "wscript.exe", Chr(34) & "E:\FDownload\wscript_createShortcut.vbs" & Chr(34) & " Run", , "runas", 1
复制代码 下面是创建快捷方式的vbs- name="start.lnk"
- src="D:\wgf\My Documents\Dropbox\Archive\.bat\start.bat"
-
- Set WshShell = WScript.CreateObject("WScript.Shell")
- strStartup = WshShell.SpecialFolders("Startup") '特殊文件夹startup
- Rem 在启动文件夹创建一个start.bat快捷方式
- set oShellLink = WshShell.CreateShortcut(strStartup & "\" & name)
- oShellLink.TargetPath = src
- oShellLink.Save
复制代码
|