Local $ip = InputBox('', '请输入对方ip地址', '192.168.1.', ' m', 200, 100)
If @error Then Exit
Local $str = ''
Local $too = Run(@ComSpec & ' /c net time \\' & $ip, '', 0, 2)
While 1
Sleep(1)
$str &= StdoutRead($too)
If @error Then ExitLoop
WEnd
If $str <> '' Then MsgBox(0, $ip, StringRegExpReplace($str, '(?s).+(\d{4}\/.+?)\r.+', '$1'))