关于CMD命令返回值的判断

东海扬尘

Dim strReturn As String=Sys.ExeCMD("ping -n 1 192.168.1.10")
比如这句代码是ping远程计算机网络是否通，如果能通就执行对应代码，否则跳过。
要如何写这个代码呢？

admin

If Sys.Network.Ping("192.168.1.10",1000) Then

Else

End If

东海扬尘

admin 发表于 2023-12-24 13:10
If Sys.Network.Ping("192.168.1.10",1000) Then

Else

不错，这个很好用；
如果想获得局域网计算机名要如何改这个？
Dim ip As String = "192.168.1.14"
Dim name As String = System.Net.Dns.GetHostName

admin

我目前没有局域网环境，你自己测试一下
System.Net.Dns.GetHostName("192.168.1.14")
或者
System.Net.Dns.GetHostEntry("192.168.1.14").HostName

东海扬尘

admin 发表于 2023-12-24 20:35
我目前没有局域网环境，你自己测试一下
System.Net.Dns.GetHostName("192.168.1.14")
或者

System.Net.Dns.GetHostEntry("192.168.1.14").HostName
这个可以，多谢

东海扬尘

admin 发表于 2023-12-24 20:35
我目前没有局域网环境，你自己测试一下
System.Net.Dns.GetHostName("192.168.1.14")
或者

1. If dr("计算机名称").ToString.Length>0 Then
   
2.                                                
   
3.                                                 Else
   
4.                                                         dr("计算机名称") = System.Net.Dns.GetHostEntry(ip).HostName
   
5.                                         End If

复制代码

试了下，当去获取各别计算机名称时会报错，导致后面代码都无法执行，能否加个判断，如果出错就跳过，继续执行后面的代码

admin

用异常捕捉代码处理异常问题。

If dr("计算机名称").ToString.Length>0 Then
        
Else
        Try
                dr("计算机名称") = System.Net.Dns.GetHostEntry(ip).HostName
        Catch ex As Exception
                
        End Try
End If
复制代码