16,554
社区成员
发帖
与我相关
我的任务
分享
SELECT GETDATE() AS sys_Sqlser_time
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