请问如何增加一下系统变量

Question

请问如何计算机的环境变量，增加一个系统变量，并赋值

Answer 1

'增加一个环境变量vbtest，赋值为test ok
Private Sub Form_Load()
    Dim sysenv As Object
    Set sysenv = CreateObject("WScript.Shell").Environment("system")
    MsgBox sysenv("vbtest")
    sysenv("vbtest") = "test ok"
    MsgBox sysenv("vbtest")
End Sub

Answer 2

另外好像还可以通过shell调用cmd的set方法设置。

Answer 3

还想问下，怎样获取指定用户的环境变量呢（如Adminsitrator的环境变量）

Answer 4

Private Sub Command1_Click()
Dim obj As Object
Set obj = CreateObject("wscript.shell").environment("user")
obj("tt") = "abc"
End Sub
这里是用户的，如果删除还不会

Answer 5

Set obj = CreateObject("wscript.shell").environment("user")
obj.Remove "tt"
解决了。