vbs中怎么实现枚举网络连接,相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。
代码如下:
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中怎么实现枚举网络连接的方法了吗?如果还想学到更多技能或想了解更多相关内容,欢迎关注编程网行业资讯频道,感谢各位的阅读!