WIN7系统执行VBS修改注册表时提示根路径无效

lqh123108 · 发表于 2015-1-30 16:16:55

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

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

CrLf · 发表于 2015-1-30 16:20:44

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

lqh123108 · 发表于 2015-1-30 16:24:15

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

Batcher · 发表于 2015-1-30 17:05:20

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

yu2n · 发表于 2015-1-31 20:31:11

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

复制代码

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

回复 5# yu2n

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

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

回复 5# yu2n

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

		自动登录	找回密码
密码			注册

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

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