当前位置:DOS资源站资料中心VBS脚本 → 用VBS列出计算机管理工具

用VBS列出计算机管理工具

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

Const ADMINISTRATIVE_TOOLS = &H2f&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objTools = objFolder.Items
For i = 0 to objTools.Count - 1
    tools=tools&objTools.Item(i)&vbcrlf
Next
wscript.echo "有如下管理工具:"&vbcrlf&tools
set objShell=nothing
set objFolder=nothing
set objTools=nothing