BinaryDevelop
  1. ホーム
  2. スクリプト・コラム
  3. 腹筋

vbs pingの2つの実装方法

2022-01-01 19:13:49

vbsでのpingの実装は、2つの方法があります。

  • 1.システムのpingコマンドを呼び出す。
  • 2、wmi クエリ pingstate クラスを使用して処理します。

1. システムのpingコマンドを呼び出す 

Set wshell = CreateObject("WScript.Shell")
wshell.run("ping 182.183.101.1",0.true)

上記の呼び出しについて、フィルタリングしたい場合は、runの結果をファイルにリダイレクトして、文字列に読み込み、その中にタイムアウトやタイムアウト文字がないか探して、タイムアウトかどうかを判断することが考えられます。直接コマンドをつなげてファイルにリダイレクトしようと思ったのですが、どうにもうまくいかないので、runがbatを呼び出し、そのbatが次のように言っています： ping 192.168.101.1 -n 1 -w 1200 

2. wmi query pingstate クラスを使用して処理します。 

'url = "www.baidu.com"
url = "119.75.217.109"
strComputer = ". "
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}! \\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
For Each objPing in colPings
MsgBox url & " responded to ping." & vbcrlf &_
"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_
"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_
"Bytes Sent: " & objPing.BufferSize & vbcrlf &_
"Time: " & objPing.ResponseTime & " ms"
Next

これは、vbsのpingの実装例に関するこの記事の終わりです、より関連するvbsのpingの内容は、スクリプトハウスの前の記事を検索してくださいまたは次の関連記事を閲覧を継続し、あなたが将来的にスクリプトハウスをよりサポートすることを願っています

関連

最新

おすすめ

について
/
プライバシー・ポリシー
/
お問い合わせ
© 2022 BinaryDevelop. すべての権利は、それぞれの所有者に帰属します