国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

上次用s掃描器掃到了一些1433端口的IP段掃到一些IP但這些IP段不是連續(xù)的這樣每次連接前要看看這些IP的主機(jī)是否在線采用ping的方法就會(huì)很麻煩每次要在命令提示符中不斷輸入IP號(hào)，于是想想能不能用bat來(lái)批處理，但再寫(xiě)的時(shí)候發(fā)現(xiàn)有些批處理命令不能直接調(diào)用使用，于是想到了vbs！最終寫(xiě)成了一個(gè)vbs來(lái)實(shí)現(xiàn)這個(gè)功能！

現(xiàn)在把這個(gè)vbs發(fā)給大家分享一下！

代碼：

Dim a,b
set a=wscript.CreateObject("wscript.shell")
a.run "cmd"
a.AppActivate "c:\windows\system32\cmd.exe"
wscript.Sleep 400
a.sendkeys "{@}color 1a{enter}"
a.sendkeys "for /f "&chr(34)&"delims="&chr(34)&" {%}i in {(}IP.txt{)} do ping {%}i /n 2 {enter}"
wscript.quit

現(xiàn)在來(lái)來(lái)看看運(yùn)行界面！

如下我們用ping如下的IP段

在腳本如圖:

運(yùn)行如圖：