You will need the System.Management assembly referenced, and the appropriate
Imports
statement.
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