通过网络得到另外电脑系统时间

一成不变变

如下代码，A1电脑打开A2电脑的共享文件夹下的dm工作表，运行代码，我想得到A2电脑的系统时间应怎样写代码？谢谢
代码所在工作薄放在A1电脑或放在A2电脑上运行代码，各有什么优缺点，请说说，谢谢
Sub df()
             wy = Format(Date, "m") & "月.xlsx" '月
             wr = Format(Date, "d")
             Set ww = GetObject("F:\费用\" & wy) '后台打开xlsx
             Set dm = ThisWorkbook.Sheets("wr") 工作表
             ww.Worksheets(wr).Range("B2") = dm.Range("D3")
             dm.Range("D4") = Format(Now, "yyyy年m月d日 h:mm")
End Sub