当前位置:DOS资源站资料中心VBS脚本 → VBS脚本显示计算机环境变量

VBS脚本显示计算机环境变量

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-4-4 22:55:46

Set wshshell = CreateObject("WScript.Shell")
For Each EnvirSYSTEM In wshshell.Environment("SYSTEM")
enOutSYSTEM=enOutSYSTEM&"当前"&EnvirSYSTEM&vbCrlf
Next

For Each EnvirPROCESS In wshshell.Environment("PROCESS")
enOutPROCESS=enOutPROCESS&"当前"&EnvirPROCESS&vbCrlf
Next

For Each EnvirUSER In wshshell.Environment("USER")
enOutUSER=enOutUSER&"当前"&EnvirUSER&vbCrlf
Next

For Each EnvirVOLATILE In wshshell.Environment("VOLATILE")
enOutVOLATILE=enOutVOLATILE&"当前"&EnvirVOLATILE&vbCrlf
Next
WScript.Echo  enOutSYSTEM&enOutPROCESS&enOutUSER&enOutVOLATILE
set wshshell=nothing