欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-10 08:01:33
描述 检索有关计算机上所有活动网络连接的信息。 有关在这段代码中使用的 win32_networkconnection 类别的更多信息,请单击 。 支持平台...

描述

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

有关在这段代码中使用的 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