批处理之家 » VBS求助&讨论 » WIN7系统执行VBS修改注册表时提示根路径无效

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

返回列表发帖

Rank: 4

帖子: 100
积分: 307
技术: 0
捐助: 0
注册时间: 2008-11-25

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2015-1-30 16:16 | 只看该作者

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

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

这样一来凡是修改注册表的VBS都没有权限了，怎么办呀？

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

2楼

发表于 2015-1-30 16:20 | 只看该作者

要是那么容易搞定 uac，微软发明它干嘛

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 4

帖子: 100
积分: 307
技术: 0
捐助: 0
注册时间: 2008-11-25

3楼

发表于 2015-1-30 16:24 | 只看该作者

关键是BAT右健有以管理员权限运行

Rank: 12

帖子: 14760
积分: 45931
技术: 846
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2015-1-30 17:05 | 只看该作者

自己的电脑开什么UAC，果断关闭。

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 5 Rank: 5

帖子: 715
积分: 1295
技术: 150
捐助: 0
注册时间: 2012-11-1

5楼

发表于 2015-1-31 20:31 | 只看该作者

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
复制代码

1 评分人数

doswork: 新手没什么分，还被扣分…… 原谅下，谢谢 ...技术 + 1

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

Rank: 1

帖子: 57
积分: 76
技术: 2
捐助: 0
注册时间: 2016-6-30

6楼

发表于 2016-7-2 16:27 | 只看该作者

回复 5# yu2n

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

Rank: 1

帖子: 74
积分: 96
技术: 0
捐助: 0
注册时间: 2016-5-30

7楼

发表于 2018-11-22 12:40 | 只看该作者

回复 5# yu2n

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