TestComplete实现简单ping功能（vbs）

作用：ping实际ip是否可以连通

function pingtest(strcommand)
Set ws = CreateObject("WScript.Shell")
set e=ws.exec("cmd.exe")
set aa =ws.exec("ping -n 1 "&strcommand)
values=aa.StdOut.readall

'msgbox values

  if(instr(1,values,"Reply from ",1)) then
      msgbox strcommand&" ip 可以 ping 通"
   else
      msgbox  values
   end if
end function



pingtest("xx.xx.xx.xx")