vbs教程《环境变量》

set ws = createobject("wscript.shell")

rem 获取环境变量值
rem msgbox(ws.expandenvironmentstrings("%path%"))
rem msgbox(ws.expandenvironmentstrings("%xiaohei_path%"))

rem 系统环境变量对象集合
rem set envs = ws.environment("system")

rem 用户环境变量对象集合
set envs = ws.environment("user")

rem 设置环境变量
rem envs("test_path_1") = "e:\test"

rem 获取环境变量值
rem msgbox(envs("test_path_1"))

rem 删除环境变量
rem envs.remove("test_path_1")

rem 遍历环境变量
rem for each env in envs
rem 	msgbox(env)
rem next

set ws = nothing