如何判断文件共享服务器是否在线？ [复制]

Question

如果我想检查服务器的可用性，但我不知道它的共享，我可以在 Windows 资源管理器窗口中输入它的 UNC 名称（或 IP 地址），即使 没有服务器共享目录：： p>

如何在 .NET 中以编程方式使用它来验证服务器是否在线？我正在尝试

My.Computer.FileSystem.DirectoryExists(UNCPath)

但这仅适用于\\MY_SERVER\Users 等UNC 路径，不适用于\\MY_SERVER。

我想避免 Ping 并坚持使用在文件系统工作时有效的功能，因为出于安全原因，某些服务器可能会禁用 ICMP_ECHO。

（如果您想发布一些代码，请随意选择 VB 或 C#。）

Answer 1

编辑： 我被告知这可能与Q/A mentioned elsewhere 的解决方案重复。不同之处在于，另一个问题接受对我来说真的不起作用的答案，我有理由认为在这种情况下使用 WMI 是一种限制方法（它需要凭据， 见下文）。在这个答案中，我给出了一种真正适合我的方法。 但是，如果您真的认为它是重复的，请继续将其标记为关闭，我会将整个问题删除为不必要的。

---

我继续学习和尝试，最后我确定使用TCP port 139，同样是used by file sharing mechanism。将以下源视为草稿（不要忘记处理异常等），但最后我可以得到一段似乎对我有用的代码：

Public Shared Function IsFileShareServerOnline(PCName As String,
                                               Timeout as Integer) As Boolean

    Const Port As Integer = 139 'port for file sharing service

    Dim IsOnline As Boolean = False
    Dim IP As Net.IPAddress = Net.Dns.GetHostAddresses(PCName)(0)
    Dim Address As Net.IPAddress = Net.IPAddress.Parse(IP.ToString())
    Dim Socket As Net.Sockets.TcpClient = New Net.Sockets.TcpClient(Address.AddressFamily)
    Dim Connect = Socket.BeginConnect(Address, Port, Nothing, Nothing)
    Dim WaitingResult = Connect.AsyncWaitHandle.WaitOne(Timeout, False)

    If (Connect.IsCompleted) Then
        If WaitingResult Then
            Socket.EndConnect(Connect)
            IsOnline = True
        End If
    End If
    Socket.Close()
    Return IsOnline

End Function

代码有一个问题，即在首次运行时它无法检测到远程计算机，即使可用。重试后它可以工作。只要在较长时间后尝试连接，问题就会更新（一次错误检测）。我不是 TCP/IP 专家，无法理解原因，也许我使用的超时时间太短（1 秒）。一种解决方法是至少进行 2 次连接尝试。

在尝试这种方法之前，我还实现并测试了基于 WMI 的查询，但是如果没有在远程计算机上事先进行身份验证，它们就无法工作，这在我的场景中是非常无用的。