请问如何获取远程服务器(远程计算机)上的日期和时间

[FrankyChan]

请问如何获取远程服务器(远程计算机)上的日期和时间?

我写的是LAN的window form程序.

[apollolb2005]

方法很多
1.如果可以连接远程计算机的数据库，可以查数据库的sysdate
2.通过Tcp/IP发个询问时间的电文，之后接收电文并解释，当然服务器端要做接收电文，并回复。
3.用remoting，做个函数查时间
.....

[wulingyigu1]

up

[wulingyigu1]

帮你顶起

[水如烟]

简单些

Public Class GetOtherComputerTime
    Public Shared Sub [Get](ByVal computer As String)
        Dim tmpText As String = "tmpppmt.txt"
        Dim cmd As String = System.Environment.GetEnvironmentVariable("ComSpec")
        Dim arguments As String = " /c NET TIME \\{0} >" & tmpText
        Dim fullCmd As String = String.Concat(cmd, String.Format(arguments, computer))

        Console.WriteLine(fullCmd)

        Shell(fullCmd, AppWinStyle.Hide, True)

        Process.Start(tmpText)
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetOtherComputerTime.Get("192.168.1.11")
    End Sub

[lingxyd_0]

不懂我就顶！

[marongc]

SELECT GETDATE() AS sys_Sqlser_time

[wuyq11]

通过Socket或WMI实现
参考
http://www.cnblogs.com/hzuIT/articles/682686.html
http://www.cnblogs.com/ncowboy/archive/2004/09/27/47079.aspx

[zyclove2008]

顶
关注中~~~

[wzuomin]

[Quote=引用 4 楼 lzmtw 的回复:]
简单些


VB.NET codePublic Class GetOtherComputerTime
Public Shared Sub [Get](ByVal computer As String)
Dim tmpText As String = "tmpppmt.txt"
Dim cmd As String = System.Environment.GetEnvironmentVariable("ComSpec")
Dim arguments As String = " /c NET TIME \\{0} >" & tmpText
Dim fullCmd As String = String.Concat(cmd, String.Format(arguments, computer))
…
[/Quote]


强，这是什么原理？从没接触过这个呢。

[wangjuenhui520]

看结构应该是调用了windows 命令提示符的net time 命令. 返回本机或指定计算机的系统时间并写入到一个文件. 但是水兄的代码还缺点东西,即使在同一个局域网内，如果没有通过验证都是无法获取的。

[zlb789]

webservice

[nmd002]

4楼的是用VB代码执行了命令控制台(DOS环境)的操作,使用"NET TIME"操作,获得指定IP的时间.我还是头一看到这种代码,不清楚是否能成功运行出结果.而且这种命令受环境的限制非常大.如果局域网内的机器限制了访问或加了防火墙,我看也未必都能成功.

System.Environment.GetEnvironmentVariable("ComSpec")
这句没看懂,有必要请高人讲解一下原理

[yanlongwuhui]

mark

[zhp110]

顶一下，

[FrankyChan]

[Quote=引用 4 楼 lzmtw 的回复:]
简单些


VB.NET codePublic Class GetOtherComputerTime
Public Shared Sub [Get](ByVal computer As String)
Dim tmpText As String = "tmpppmt.txt"
Dim cmd As String = System.Environment.GetEnvironmentVariable("ComSpec")
Dim arguments As String = " /c NET TIME \\{0} >" & tmpText
Dim fullCmd As String = String.Concat(cmd, String.Format(arguments, computer))
…
[/Quote]

非常感谢你的帮忙. 十分适合使用.
也感谢其它纲友的回复.

[pengjianaiyy]

顶

[Daimon]

直接数据库,select times

[zhushoudong]

我觉得就用连接数库的系统时间获取也行