VBS往C盘复制文件提示权限不够

iverking

往C盘路径：C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
复制文件

源码：
Const OverwriteExisting = True
fso.CopyFile pathdesktop &"\JY.url" , "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp", OverwriteExisting
我需要把VBS文件做成自解压的文件 让用户运行，请教怎么能做到提升权限？

Batcher

回复 1# iverking


Const OverwriteExisting = True
FSO.CopyFile FolderDesktop & "\JY.url", "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\", OverwriteExisting

Batcher

回复 1# iverking

1. If Not WScript.Arguments.Named.Exists("RunAsAdmin") Then
   
2.   CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /RunAsAdmin", "", "runas", 1
   
3.   WScript.Quit
   
4. End If
   
5. 
   
6. Set Shell = CreateObject("WScript.Shell")
   
7. FolderDesktop = Shell.SpecialFolders("Desktop")
   
8. Set FSO = CreateObject("Scripting.FileSystemObject")
   
9. Const OverwriteExisting = True
   
10. FSO.CopyFile FolderDesktop & "\JY.url", "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp", OverwriteExisting

复制代码