[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS往C盘复制文件提示权限不够

往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文件做成自解压的文件 让用户运行,请教怎么能做到提升权限?

回复 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. Set Shell = CreateObject("WScript.Shell")
  6. FolderDesktop = Shell.SpecialFolders("Desktop")
  7. Set FSO = CreateObject("Scripting.FileSystemObject")
  8. Const OverwriteExisting = True
  9. FSO.CopyFile FolderDesktop & "\JY.url", "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\", OverwriteExisting
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 1# iverking


Const OverwriteExisting = True
FSO.CopyFile FolderDesktop & "\JY.url", "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\", OverwriteExisting
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表