4,008
社区成员
发帖
与我相关
我的任务
分享
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("net time \\机器名")
Do While oExec.Status = 0
WScript.Sleep 100
Loop
WScript.Echo oExec.StdOut.ReadAll()
c = Now()
y = Year(c)
m = Month(c)
d = Day(c)
h = Hour(c)
n = Minute(c)
s = Second(c)