求助，怎么在VBA中检测一个IP地址是否连通？

yiranai · 发表于 2004-11-7 11:30

我想在Visio中做个网络拓扑图，再做个VBA检测网络设备是否通的，然后在拓扑图中显示出来，

要知道一个IP地址是否通，VBA怎么写？

lfspecter · 发表于 2004-11-14 01:41

Sub GetMyIP() Dim strComputer As String Dim objWMI As Object Dim colIP As Object Dim IP As Object Dim i As Integer

strComputer = "." Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colIP = objWMI.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IP In colIP If Not IsNull(IP.IPAddress) Then For i = LBound(IP.IPAddress) To UBound(IP.IPAddress) MsgBox IP.IPAddress(i), vbInformation, IP.Description(i) Next End If Next

End Sub

黑色幽默 · 发表于 2004-11-15 19:57

[em17]

高手，只是看不懂。

唉。。。羡慕ING……

whc780 · 发表于 2008-11-23 16:05

不错,谢谢了

风格色耳 · 发表于 2008-12-5 22:23

要知道一个IP地址是否通，VBA

		自动登录	找回密码
密码			免费注册

求助，怎么在VBA中检测一个IP地址是否连通？

OK