[VBS]使用环境变量

Dim strDeskTop, strPath, objWsh

'Read Environment String--1
set objWsh=CreateObject("WScript.Shell")
strDeskTop=objWsh.ExpandEnvironmentStrings("%dt%") 
strPath=objWsh.ExpandEnvironmentStrings("%path%")
Wscript.echo strDeskTop
Wscript.echo strPath

'Read Enviroment String--2
Dim wshSysEnv,wshUserEnv
set wshSysEnv=objWsh.Environment("SYSTEM")
set wshUserEnv=objWsh.Environment("USER")
strDeskTop=wshUserEnv("dt")
strPath=wshSysEnv("path")
Wscript.echo strDeskTop
Wscript.echo strPath
set wshSysEnv=Nothing
set wshUserEnv=Nothing