Public Sub SetDwordKeyValueObject(RegPath As String, Value As String)
Dim ws As Object
Set ws = CreateObject("Wscript.Shell")
ws.regwrite RegPath, Value, "REG_DWORD"
Set ws = Nothing
Exit Sub
End Sub
命令例如：call SetDwordKeyValueObject("HKEY_LOCAL_MACHINE\SYSTEM\WPA\PosReady\Installed",2)
报错为：70 拒绝的权限
我是administrator，没有任何权限问题。win7 x64位电脑。

你编译成【EXE】文件后，再右键→【以管理员身份运行】试试