减小字体
增大字体- ·上一篇文章：用VBS写网吧游戏公告
- ·下一篇文章：VBS定时关机
- ·百度中搜索更多的关于“查看系统环境变量（IE）版”相关内容
- ·谷歌中搜索更多的关于“查看系统环境变量（IE）版”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
查看系统环境变量（IE）版
Dim oIE, doc1
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"
oIE.Visible = 1
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.Width=750
oIE.Height=700
Do While (oIE.Busy): Loop
Set doc1 = oIE.Document
doc1.open
doc1.writeln "<html><head><title>显示系统环境变量</title></head>"
doc1.writeln "<body bgcolor=\'silver\'><pre><center><font color=red size=5>系统环境变量</font></center><p><font color=blue size=3>"
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
doc1.writeln enOutSYSTEM&enOutPROCESS&enOutUSER&enOutVOLATILE
doc1.writeln "</font></p></pre></body></html>"
doc1.close
set wshshell=nothing
set oIE=nothing
