IPアドレス総合スレ

[過去ﾛｸﾞ] IPアドレス総合スレ (1001ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

162: W3K [sage] 02/02/22 01:55 ID:???

標準環境で使えそうな "簡易" スキャナを書いてみました。
かなり適当に作ったのでうまく動かないこともあるかも。
スクリプト自体は簡単なのでアレンジしてみてください。
（ツールを使っていないと言う条件は満たしているかな？）

ping コマンドと WSH の cscript.exe （あとメモ帳など）だけを使っています。
※ ただし WSH5.6以上じゃないとだめだった、それ以下の人はすまん。
最新版はこちらで入手しておくれ
http://www.microsoft.com/downloads/release.asp?ReleaseID=33248

(1) 以下のスクリプトを scan.vbs などの名前で抵当な場所に保存。
(2) コマンド プロンプト（DOS プロンプト） を起動して

cscript scan.vbs

と入力する。

※ IPアドレスのスコープは 「61.116.87.150-190」 を指定していますが意味はありません。

scan.vbs

=============================================================

Dim WshShell, oExec, regEx
Set WshShell = CreateObject("WScript.Shell")
Set regEx = New RegExp

For i = 150 To 190
Set oExec = WshShell.Exec("ping -n 1 61.116.87." & i)
Do While oExec.Status <> 1: WScript.Sleep 100: Loop
res = oExec.StdOut.ReadAll
regEx.Pattern = "Reply .* time.*"
regEx.IgnoreCase = True
Set Matches = regEx.Execute(res)

If Matches.Count > 0 Then
WScript.Echo Matches(0).Value
End If
Next

=============================================================

久しぶりにスクリプト書いてみました。。。

http://echo.5ch.io/test/read.cgi/hack/1010386844/162

上下前次 1-新書関写板覧索設栞歴

あと 834 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.020s