VBScriptで、複数台の端末に対して同時にpingを実行したいのですが、
表示結果をコマンドプロンプトではなく、
ブラウザのテキストエリア内に、リアルタイムに表示
する方法はあるのでしょうか?
イメージとしては、以下の通りになります。
----------------------------------------------------
PC1 Reply from 192.168.1.1: bytes=32 time<1ms TTL=128
PC2 Reply from 192.168.1.2: bytes=32 time<1ms TTL=128
PC3 Request timed out.
PC4
・
・
・
----------------------------------------------------
お分かりの方がいらっしゃいましたら、教えて頂けますでしょうか?
No.1ベストアンサー
- 回答日時:
だいたいこんな感じでしょうか
----------------------------------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=SHIFT_JIS">
<title>ping sample</title>
<script language="VBScript">
<!--
Sub send(f)
Dim WshShell, oExec, pingList, x
pingList = Array("192.168.0.1", "localhost")
Set WshShell = CreateObject("WScript.Shell")
for each x in pingList
Set oExec = WshShell.Exec("ping " & x )
f.RESULT.value=f.RESULT.value & oExec.StdOut.ReadAll()
next
End Sub
'-->
</script>
</head>
<body>
<form name="FORM1">
Ping<button type="button" onclick="javascript:send(this.form)">実行</button><br>
<br>
結果:<br>
<textarea name="RESULT" cols="72" rows="25">
</textarea>
</form>
</body>
</html>
この回答への補足
>>BLUEPIXYさん
返答ありがとうございました。
丁寧にスクリプトを記述して頂き、大変参考になりました。
私の質問内容が不十分だった為、もしご存知でしたらあらためてお聞きしたいのですが、
ping x.x.x.x -t
のように、pingを実行し続けた場合に
(1)Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
(2)Request timed out.
(1)か(2)だけを常にテキストエリアに表示し続ける事は可能でしょうか?
宜しくお願い致します。
No.2
- 回答日時:
>ping x.x.x.x -t
>のように、pingを実行し続けた場合に
>…
>(1)か(2)だけを常にテキストエリアに表示し続ける事は可能でしょうか?
実行結果から、適当な部分を抜き出すことはできると思いますが
ping x.x.x.x -t
のようにしてしまったら、エンドレスになってしまうので、
質問文の様に複数のPCに(1つのPCへのpingが終わらないので)できなくなるような気がしますが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(インターネット接続・インフラ) ブラウザにIPアドレス入力した時 1 2022/06/16 19:08
- その他(ブラウザ) ブラウザを再起動してください 1 2023/06/22 09:05
- モニター・ディスプレイ ネット接続を重ねると画面がブラックアウトする 8 2023/05/01 15:21
- Yahoo!メール ヤフーメールから送られてくる画像付きメールの画像が表示されません 3 2022/05/27 07:13
- Instagram ブラウザからインスタにログインできなくなりました 2 2022/10/07 09:33
- ネットワーク 瞬快 コンソール操作 ローカル端末のファイルをリモート端末にコピーする方法がない? 1 2023/03/17 18:56
- Chrome(クローム) googleカレンダー(ブラウザ)が同期しません。 2 2023/08/10 14:40
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Windows 10 Windows PC 「スタート」の表示 1 2022/05/14 14:27
- HTML・CSS 分数が正常に表示されない。 6 2022/05/09 18:53
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
HTMLファイル同士での値渡し
-
テキストボックスのフォーカス移動
-
テキストエリアに履歴を残したい
-
VBScriptでpingを実行(ブラウザ...
-
フォーカスが外れた時の入力チ...
-
マイナスなら赤字で表示したい...
-
JSで子ページから親ページのラ...
-
VBSからjavascript
-
ロストフォーカスしたフォーム...
-
画像の表示非表示について質問です
-
指定時間からの経過時間をリア...
-
プルダウンで選択された値を別...
-
テキストボックスに入力した色...
-
GetElementByIdがうまく取得で...
-
残り時間カウントダウン表示 ...
-
ページ間で変数を保持したい
-
TextBoxに半角数字以外を入れた...
-
JavaScriptが動かない原因
-
入力された全角英数字だけを見...
-
プルダウン 項目が多いので先頭...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
TextBoxに半角数字以外を入れた...
-
HTMLファイル同士での値渡し
-
ページ間で変数を保持したい
-
マイナスなら赤字で表示したい...
-
プルダウンで選択された値を別...
-
HTMLとJavaScriptで作った表示...
-
テキストエリアに履歴を残したい
-
フォームの内容でリンク先URLの...
-
tabindexの取得
-
テキストボックスに入力した色...
-
VBscriptの配列変数をJavascrip...
-
GetElementByIdがうまく取得で...
-
javascriptのちょっとした動作...
-
どちらかひとつのテキストボッ...
-
大文字か小文字かを判断する方法
-
VBScriptでpingを実行(ブラウザ...
-
フォーカス設定について教えて...
-
フォーカスが外れた時の入力チ...
-
jQueryのdatepickerの日付が選...
-
JavaScriptからphp関数の呼び出し
おすすめ情報