vba获取服务器信息及日期,VBA如何提取网络服务器上的北京时间

各位大侠，最近在网上找了一段代码，提取网络服务器上的时间。运行后提取的不是北京时间，也不是服务器上的系统时间。代码中取的是"http://www.163.com"的时间，代码在我单位内部网上可以运行，两者提的均不是当前的北京时间。求大侠看一下代码，帮忙改一下。十分感谢！

Private Sub 提取网络服务器北京时间()

Dim obj, OBJStatus, url, GetText, i

Dim Retrieval

url = "http://www.163.com"

'判断网络是否连接

If url <> "" Then

Set Retrieval = GetObject("winmgmts:\\.\root\cimv2")

Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = '" & Mid(url, 8) & "'")

For Each OBJStatus In obj

If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then

Exit Sub

Else

Exit For '已连接则继续

End If

Next

End If

'通过下载网页头信息获取网络时间

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

<