[Win8]VBS怎样在startup目录里创建快捷方式？

wgf4242

在startup目录里创建快捷方式不行，不需要提权的目录创建快捷方式没问题。

运行st.vbs后并没有创建出快捷方式。

1. Set objShell = CreateObject("Shell.Application")
   
2. objShell.ShellExecute "wscript.exe", Chr(34) & "E:\FDownload\wscript_createShortcut.vbs" & Chr(34) & " Run", , "runas", 1
   

复制代码

下面是创建快捷方式的vbs

1. name="start.lnk"
   
2. src="D:\wgf\My Documents\Dropbox\Archive\.bat\start.bat"
   
3. 
   
4. Set WshShell = WScript.CreateObject("WScript.Shell")
   
5. strStartup = WshShell.SpecialFolders("Startup") '特殊文件夹startup
   
6. Rem 在启动文件夹创建一个start.bat快捷方式
   
7. set oShellLink = WshShell.CreateShortcut(strStartup & "" & name)
   
8. oShellLink.TargetPath = src
   
9. oShellLink.Save
   

复制代码