怎样判断局域网内某台计算机是否存在？

bjcompass

能够利用窗体的打开事件判断局域网内某台计算机是否已经开机吗？比如某台计算机名为“abc”
如果可以，那么代码如何写呢？谢谢

开心二点

来学习学习

开心二点

用ping命令看看

盗梦

用cmd命令 ping一下，判断结果

盗梦

例如 shell "cmd.exe /c ping 电脑名 >>" & currentproject.path & "\ip.txt"执行完之后，access所在的位置就会出现ip.txt 这个文件
当然，最好循环判断文件是否存在
当文件存在了，就打开读取里面的内容，如果读取到 Lost = 4 (100% loss)
说明，网络不通，或者电脑没开，或者不存在这个电脑

bjcompass

谢谢网友回答，
我的本意是这样的：
在局域网A电脑上有一个共享文件夹，共享名 “data”
我想在B电脑access数据库的窗体打开事件中建立网络映射磁盘“ W” 指向共享文件夹 “data”。
在窗体打开事件代码中写了：Shell "net use w: \\A计算机名\Data " 一句代码，可以正常在B机中设置映射磁盘。
但是如果A计算机没有开机，B计算机有时就会出现DoS命令行窗口而且较长时间不能关闭。
希望在运行 Shell "net use w: \\A计算机名\Data "代码之前判断A机没有开机，然后进行提示并退出。
望各位指教！

cgsilicone

不必使用Shell，以下代码实现连接并返回连接结果
Function 连接计算机 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As 连接数据, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Type 连接数据
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    lpLocalName As String
    lpRemoteName As String
    lpComment As String
    lpProvider As String
End Type

Public Function 是否开机(路径, 盘符, 密码, 用户名) As Boolean
Dim 连接参数 As 连接数据
连接参数.lpLocalName = 盘符
连接参数.lpRemoteName = 路径
连接参数.dwType = &H1
连接结果 = 连接计算机(连接参数, 密码, 用户名, 0)
Select Case 连接结果
  Case 1203:
       是否开机 = False
       MsgBox "无任何网络提供程序接受指定的网络路径（包括电脑未开机，路径错误）"
  Case 0:
       是否开机 = True
       MsgBox "连接成功"
  Case Else:
       是否开机 = True
       MsgBox "对方电脑在线（有些其他情况）"
End Select
End Function

starscr

ping命令就可以做到呀

bjcompass

谢谢网友回答，受益了！

好运牛

学习学习