求教：如何用ACCESS网络连接测试

vwindfox

想做一个内网计算机连接记录程序，不知道怎么实现检测某一IP计算机是否在线。
请教下用什么方法能实现。
比如说怎么检测192.168.1.10这个IP地址当前是否在线。

Grant

Function Pings(strMachines As String) As Boolean
aMachines = Split(strMachines, ";")
Pings = True
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
Debug.Print ("machine " & machine & " is not reachable")
Pings = Pings And False
Else
Pings = Pings And True
End If
Next
Next
End Function


If Pings("计算机1的IP") Then MsgBox "计算机1在线。"
If Pings("计算机2的IP") Then MsgBox "计算机2在线。"

yanghua1900363

Grant 发表于 2012-2-7 20:41
Function Pings(strMachines As String) As Boolean
aMachines = Split(strMachines, ";")
Pings = Tru ...

提示“aMachines ”未定义

Grant

定义变量aMachines 或者去除强制声明

bbpst

学习