How to get date and time from another computer in LAN network ?

Dim pc As String = "REMOTEPC"
Dim remotePath As String = String.Format("\\{0}\root\CIMV2", pc)
Dim ms As New ManagementScope(remotePath)
ms.Connect()

Dim oq As New ObjectQuery("SELECT * FROM Win32_LocalTime")

Dim mos As New ManagementObjectSearcher(ms, oq)

For Each obj As ManagementObject In mos.[Get]()
    Console.WriteLine("{0}-{1}-{2} {3}:{4}:{5}", obj("Year"), obj("Month"), obj("Day"), obj("Hour"), obj("Minute"), _
        obj("Second"))
Next