vbs中怎么实现枚举网络连接，相信很多没有经验的人对此束手无策，为此本文总结了问题出现的原因和解决方法，通过这篇文章希望你能解决这个问题。

创新互联建站一直通过网站建设和网站营销帮助企业获得更多客户资源。 以"深度挖掘，量身打造，注重实效"的一站式服务，以成都网站建设、成都网站设计、移动互联产品、网络营销推广服务为核心业务。10年网站制作的经验，使用新网站建设技术，全新开发出的标准网站，不但价格便宜而且实用、灵活，特别适合中小公司网站制作。网站管理系统简单易用，维护方便，您可以完全操作网站资料，是中小公司快速网站建设的选择。

 代码如下:

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

看完上述内容，你们掌握vbs中怎么实现枚举网络连接的方法了吗？如果还想学到更多技能或想了解更多相关内容，欢迎关注创新互联行业资讯频道，感谢各位的阅读！

文章标题：vbs中怎么实现枚举网络连接-创新互联
文章起源：http://scyanting.com/article/gcsge.html