wifi接続のドロップアウトを監視するスクリプト

ISPが提供するルーターを数週間使用すると、WiFiのドロップアウト（WiFiが「制限付き」に切り替えられた）に見舞われました。その後、ネットワーク機器をアップグレードしました。WiFi接続を数日間監視して、正しく接続されているかどうかを確認したいと思います。アップグレード以来、ドロップアウトに気づいていませんが、100％確実であることを望みます。（奇妙なことに、私のWindowsラップトップだけがドロップアウトに見舞われました-私の家のiPadとiPhoneは大丈夫でした。）

WiFi接続の状態を監視する方法を知っている人はいますか？1分ごとに確認して、スクリプトを数日間実行したままにしておきます。私はWindowsがあまり得意ではないので、何かお勧めがあればスクリプトから遠ざかりたいです。

注： Windows 8.1 x64です。私はそれがわずかに曖昧であることを知っていますが、どこから始めればいいのか分かりません。

ルーター自体は切断イベントを記録しませんか？とにかく、次のスクリプトを試すことができます。

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLog = objFSO.CreateTextFile("C:\NetLog.txt", False)
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
    Set strLatestEvent = colMonitoredEvents.NextEvent
    objLog.Write "[" & Date & " " & Time & "] A network connection has been lost: " & strLatestEvent.InstanceName & vbCrLf
Loop

NetCheck.vbsなどの名前で保存して実行し、ルーターの電源をオフにして、切断が適切に記録されているかどうかを確認します。ロギングを終了するには、タスクマネージャーを介してWscript.exeを強制終了します。