'strMachines = "192.168.1.1;202.103.44.5"'aMachines = split(strMachines, ";")'For Each machine in aMachinesFor i= 1 to 100 machine="192.168.1." & i Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._ ExecQuery("select * from Win32_PingStatus where address = '"_ & machine & "'") For Each objStatus in objPing If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 'msgbox "连接" & machine & "失败",48,""str=str & "连接" & machine & "失败" & vbcrlf Elsestr=str & "连接" & machine & "失败" & vbcrlf End If NextNextset fso=createobject("scripting.filesystemobject")set file1=fso.opentextfile("d:\ping.txt",8,true)msgbox "ok"

(1440) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的