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

时间2024-02-11 08:51:02发布访客分类脚本浏览215

导读：收集整理的这篇文章主要介绍了用vbs实现枚举网络连接的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。描述检索有关计算机上所有活动网络连接的信息。有关在这段代码中使用的 Win3...

收集整理的这篇文章主要介绍了用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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

若转载请注明出处：用vbs实现枚举网络连接的代码
本文地址： https://pptw.com/jishu/609582.html