怎么用VB编写一个扫描局域网的工具，高手进!

来源：百度知道 编辑：UC知道 时间：2024/07/03 11:19:22
我想查看局域网中的其他IP地址和计算机名称，我试过用批处理ping网段，可是太费时间了，我想要源码最好是自己写的，每句都有一个注释的那种。
先谢谢了。

我有个ping局域网（小型的路由器局域网）的模块。

Public Function Pings(ByVal strMachines As String) As Boolean '判断是否能ping通IP
aMachines = Split(strMachines, ";")
For Each machine In aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
Pings = False
Else
Pings = True
End If
Next
Next
End Function

'不过这个模块的效率实在不敢恭维，很慢的。
'仅供参考.

这么历害啊