用vbs实现枚举网络连接的代码
用vbs实现枚举网络连接的代码
发布时间:2016-12-28 来源:查字典编辑
摘要:描述检索有关计算机上所有活动网络连接的信息。有关在这段代码中使用的Win32_NetworkConnection类别的更多信息,请单击此处。...

描述

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

有关在这段代码中使用的 Win32_NetworkConnection 类别的更多信息,请单击 此处。

支持平台

Windows Server 2003

Windows XP

Windows 2000

Windows NT 4.0

Yes, with WMI installed

脚本代码

复制代码 代码如下:

OnErrorResumeNext

strComputer="."

SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkConnection")

ForEachobjItemincolItems

Wscript.Echo"AccessMask:"&objItem.AccessMask

Wscript.Echo"Caption:"&objItem.Caption

Wscript.Echo"ConnectionState:"&objItem.ConnectionState

Wscript.Echo"ConnectionType:"&objItem.ConnectionType

Wscript.Echo"Description:"&objItem.Description

Wscript.Echo"DisplayType:"&objItem.DisplayType

Wscript.Echo"LocalName:"&objItem.LocalName

Wscript.Echo"Name:"&objItem.Name

Wscript.Echo"Persistent:"&objItem.Persistent

Wscript.Echo"ProviderName:"&objItem.ProviderName

Wscript.Echo"RemoteName:"&objItem.RemoteName

Wscript.Echo"RemotePath:"&objItem.RemotePath

Wscript.Echo"ResourceType:"&objItem.ResourceType

Wscript.Echo"UserName:"&objItem.UserName

Wscript.Echo

Next

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新vbs学习
热门vbs学习
脚本专栏子分类