-
山青豆
发布于 2008-12-01 11:14
-
收藏
复制代码 代码如下:strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i = 1 To 254 strComputer = strSubNet & i blnResult = Ping(strComputer) If..