czjt1234 当前在线
上尉
Set WMI = GetObject("Winmgmts:") t1 = Time() Set objPing = WMI.Get("Win32_PingStatus.Address='192.168.1.105'") Msgbox DateDiff("s", t1, Time()) Msgbox objPing.GetObjectText_()复制代码
TOP