如何遍历windows的网络连接？在线等候！！

Question

我想要得到windows“网络连接”中所有连接的名称列表，有何可以实现？

Answer 1

'用wmi,系统要求xp以上：
Private Sub Command2_Click()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection")
For Each objItem In colItems
   Debug.Print "GUID: " & objItem.Guid
   Debug.Print "Is LAN Connection: " & objItem.IsLANConnection
   Debug.Print "Name: " & objItem.Name
   Debug.Print "Phone Book Path: " & objItem.PhoneBookPath
Next
End Sub