运行此代码时:
CreateObject("WScript.Shell").RegWrite "HKLM\Whatever\", "MyValue", "REG_SZ"
我.RegWrite
只在出现错误的 Windows 8 上遇到问题:
“注册表项中的根无效”。
好吧,由于错误描述如此无益,我需要做一些测试以找出这是权限问题。但是,提升脚本可以解决这个问题。为了做出这个真正的答案,我应该发布我所做的,对吧?
Call ElevateUAC
' ---------------------------
' my duty task goes here...
' ---------------------------
Sub ElevateUAC
If Not WScript.Arguments.Named.Exists("elevated") Then
'Launch the script again as administrator
With CreateObject("Shell.Application")
.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """ /elevated", "", "runas", 1
WScript.Quit
End With
End If
End Sub