通过QTP脚本修改环境变量

Question

我有管理员权限，例如，我可以直接修改系统变量。但我没有通过像

这样的VB脚本来做同样的事情

On error resume next
Dim objShell, RegLocate 
Set objshell =CreateObject("WScript.Shell")  
Set objEnv=objShell.Environment("System")
msgbox objEnv("USERNAME")
objEnv("USERNAME")="SAI"
msgbox objEnv("USERNAME")
Msgbox err.number&"msg::"&err.description
Set objshell = Nothing 

输出

error 70.permission denied 

请帮助我理解