Board logo

标题: [问题求助] WIN7系统执行VBS修改注册表时提示 根路径无效 [打印本页]

作者: lqh123108    时间: 2015-1-30 16:16     标题: WIN7系统执行VBS修改注册表时提示 根路径无效

我的WIN7操作中心,帐户控制开的比较高,
即UAC

这样一来凡是修改注册表的VBS都没有权限了,怎么办呀?
作者: CrLf    时间: 2015-1-30 16:20

要是那么容易搞定 uac,微软发明它干嘛
作者: lqh123108    时间: 2015-1-30 16:24

关键是BAT右健有以管理员权限运行
作者: Batcher    时间: 2015-1-30 17:05

自己的电脑开什么UAC,果断关闭。
作者: yu2n    时间: 2015-1-31 20:31

  1. RunAsAdmin
  2. Msgbox "Run As Admin!"
  3. ' 以管理员身份运行 By Yu2n
  4. Sub RunAsAdmin()
  5.   Dim objItems, objItem, strVer, nVer
  6.   Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
  7.   For Each objItem In objItems
  8.     strVer = objItem.Version
  9.   Next
  10.   nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)
  11.   If nVer >= 60 Then
  12.     Dim oShell, oArg, strArgs
  13.     Set oShell = CreateObject("Shell.Application")
  14.     If Not WScript.Arguments.Named.Exists("ADMIN") Then
  15.       For Each oArg In WScript.Arguments
  16.         strArgs = strArgs & " """ & oArg & """"
  17.       Next
  18.       strArgs = strArgs & " /ADMIN:1"
  19.       Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)
  20.       Set oShell = Nothing
  21.       WScript.Quit(0)
  22.     End If
  23.     Set oShell = Nothing
  24.   End If
  25. End Sub
复制代码

作者: doswork    时间: 2016-7-2 16:27

回复 5# yu2n


    非常感谢!  您的代码是正确的,好用!
    我网上找的和您的很相似,第一次搜索到您的帖子看“一样”就没仔细看……
作者: kaze    时间: 2018-11-22 12:40

回复 5# yu2n


    你好,不知道有没有 vbs以管理员静默运行程序的方法(不点击确认,或者自动点击确认)




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2