Dim nX As Integer = 0
Dim thecomp As String
Dim theshell As String
thecomp = "//computername"
thecomp = "//192.168.1.3"
theshell = "net time " & Chr(34) & thecomp & Chr(34) & " /set /yes"
nX = Shell(theshell)
这里thecomp可以是机器名,也要吧是IP地址