批处理之家 » VBS求助&讨论 » 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

[code]RunAsAdmin
Msgbox "Run As Admin!"

' 以管理员身份运行 By Yu2n
Sub RunAsAdmin()
  Dim objItems, objItem, strVer, nVer
  Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
  For Each objItem In objItems
    strVer = objItem.Version
  Next
  nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)
  If nVer >= 60 Then
    Dim oShell, oArg, strArgs
    Set oShell = CreateObject("Shell.Application")
    If Not WScript.Arguments.Named.Exists("ADMIN") Then
      For Each oArg In WScript.Arguments
        strArgs = strArgs & " """ & oArg & """"
      Next
      strArgs = strArgs & " /ADMIN:1"
      Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)
      Set oShell = Nothing
      WScript.Quit(0)
    End If
    Set oShell = Nothing
  End If
End Sub[/code]

doswork 发表于 2016-7-2 16:27

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=161903&ptid=34121]5#[/url] [i]yu2n[/i] [/b]


    非常感谢！  您的代码是正确的，好用！
    我网上找的和您的很相似，第一次搜索到您的帖子看“一样”就没仔细看……

kaze 发表于 2018-11-22 12:40

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=161903&ptid=34121]5#[/url] [i]yu2n[/i] [/b]


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

查看完整版本: WIN7系统执行VBS修改注册表时提示 根路径无效