用vbs实现枚举网络连接的代码

描述

检索有关计算机上所有活动网络连接的信息。

有关在这段代码中使用的 win32_networkconnection 类别的更多信息，请单击 。

支持平台

windows server 2003	是
windows xp	是
windows 2000	是
windows nt 4.0	yes, with wmi installed

脚本代码

on error resume next 
strcomputer = "." 
set objwmiservice = getobject("winmgmts:\\" & strcomputer & "\root\cimv2") 
set colitems = objwmiservice.execquery("select * from win32_networkconnection") 
for each objitem in colitems 
    wscript.echo "access mask: " & objitem.accessmask 
    wscript.echo "caption: " & objitem.caption 
    wscript.echo "connection state: " & objitem.connectionstate 
    wscript.echo "connection type: " & objitem.connectiontype 
    wscript.echo "description: " & objitem.description 
    wscript.echo "display type: " & objitem.displaytype 
    wscript.echo "local name: " & objitem.localname 
    wscript.echo "name: " & objitem.name 
    wscript.echo "persistent: " & objitem.persistent 
    wscript.echo "provider name: " & objitem.providername 
    wscript.echo "remote name: " & objitem.remotename 
    wscript.echo "remote path: " & objitem.remotepath 
    wscript.echo "resource type: " & objitem.resourcetype 
    wscript.echo "user name: " & objitem.username 
    wscript.echo 
next