VB知道局域网计算机名，ping是否在线。

Question

VB软件编写代码：
知道局域网计算机名为‘’wujinku‘’ping是否在线。
在线提示‘’在线‘’，
不在线提示‘’不在线‘’

ip没有问题，主要主机IP有时会变动。

wujinku计算机名称一直不变

所有我想ping 计算机名称 并提示是否在线。

If SocketsInitialize() Then
Label1.Caption = ""
success = Pings("192.168.0.9", MyIP, ECHO)
If success = 0 Then
Label1.Caption = "恭喜,主机在线!"
Label1.BackColor = vbWhite
Command2.Enabled = True
Else
Label1.Caption = "抱歉,主机不在线!"
Label1.BackColor = vbRed
Command2.Enabled = False
End If
SocketsCleanup
End If
请问代码怎么写？？

Answer 1

知道对方ip查看对方的计算机名
方法： 开始->运行->cmd->nbtstat -a 对方ip
开始->运行->cmd->net view 对方ip
知道对方计算机名查看对方ip
方法：开始->运行->cmd->ping 对方计算机名
或者 开始->运行->cmd->nbtstat -a 对方计算机名