Office中国论坛/Access中国论坛

标题: 求教：如何用ACCESS网络连接测试 [打印本页]

作者: vwindfox 时间: 2012-2-7 15:23
标题: 求教：如何用ACCESS网络连接测试
想做一个内网计算机连接记录程序，不知道怎么实现检测某一IP计算机是否在线。
请教下用什么方法能实现。
比如说怎么检测192.168.1.10这个IP地址当前是否在线。

作者: Grant 时间: 2012-2-7 20:41
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在线。"

作者: bbpst 时间: 2012-2-8 08:26
学习

作者: yanghua1900363 时间: 2012-2-8 11:08

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

提示“aMachines ”未定义

作者: Grant 时间: 2012-2-8 11:21
定义变量aMachines 或者去除强制声明

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)