Set objWSH =  CreateObject("WScript.Shell") 
Set objUserVariables = objWSH.Environment("USER")
For Each Var In objUserVariables
    WScript.Echo Var
Next
WScript.Echo objUserVariables("TEMP")
WScript.Echo objUserVariables.Item("TEMP")

WScript.Echo objUserVariables.Length

objUserVariables("MYVAR1") = "oops"
objUserVariables.Item("MYVAR2") = 1

WScript.Echo objUserVariables.Count

objUserVariables.Remove("MYVAR1")
objUserVariables.Remove("MYVAR2")

WScript.Echo objUserVariables.Count