ネットワーク障害の早期発見やサーバ死活確認を自動化したい場合、
PowerShellを使えばシンプルに実現できます。

本記事では、ICMPが禁止されている環境でも動作するPowerShell監視スクリプトを紹介します。
定期実行により、Web・DB・APIサーバなどの稼働状態を自動でチェック可能です。

🧭 概要

多くの企業ネットワークでは、セキュリティ上の理由から ICMP（ping）通信が遮断 されています。
そのため、従来の ping コマンドによる監視が使えないケースもあります。

しかし PowerShell 7 以降の Test-Connection -Port を使えば、
TCPレベルでの疎通確認 が可能です。
これを活用して、ping不要の自動監視スクリプトを構築していきます。

⚙️ 1. 監視対象リストの作成

まず、監視対象となるホストとポートを配列として定義します。

$targets = @(
    @{Name="Web"; Host="web01"; Port=443},
    @{Name="DB"; Host="db01"; Port=1433},
    @{Name="API"; Host="api01"; Port=8080}
)

🧩 2. TCPレベルの疎通チェック

Test-Connection -Port を利用して、ポート単位で死活確認を行います。
ICMPが禁止されていても、TCP通信が通れば「OK」と判定できます。

foreach ($t in $targets) {
    $result = Test-Connection $t.Host -Port $t.Port -Quiet
    $status = if ($result) { "OK" } else { "NG" }
    Write-Output "$(Get-Date -Format 'yyyy/MM/dd HH:mm:ss') $($t.Name): $status"
}

出力例：

2025/11/01 08:30:00 Web: OK
2025/11/01 08:30:00 DB: NG
2025/11/01 08:30:00 API: OK

📦 3. ログファイルへの出力

監視結果をファイルに追記して履歴に残します。

$logPath = "C:\Scripts\NetworkMonitor.log"
foreach ($t in $targets) {
    $result = Test-Connection $t.Host -Port $t.Port -Quiet
    $status = if ($result) { "OK" } else { "NG" }
    "$((Get-Date).ToString('yyyy/MM/dd HH:mm:ss')),$($t.Name),$($t.Host),$($t.Port),$status" | Out-File -Append -FilePath $logPath
}

結果例（CSV形式）：

2025/11/01 08:30:00,Web,web01,443,OK
2025/11/01 08:30:00,DB,db01,1433,NG
2025/11/01 08:30:00,API,api01,8080,OK

📬 4. メール通知を追加（オプション）

障害検知時に自動メール通知する場合はSend-MailMessageを使います。

if ($status -eq "NG") {
    Send-MailMessage `
        -From "monitor@domain.local" `
        -To "admin@domain.local" `
        -Subject "【アラート】$($t.Name) サーバ接続不可" `
        -Body "Host: $($t.Host) Port: $($t.Port) がNGです。" `
        -SmtpServer "mail.domain.local"
}

💡 TeamsやSlackに通知する場合は、Webhook URLにInvoke-RestMethodを使えばOKです。

⏰ 5. 定期実行（Windowsタスクスケジューラ）

作成したスクリプトを.ps1ファイルとして保存し、
タスクスケジューラで自動実行を設定します。

これで、サーバの死活状態が定期的に監視され、
障害発生時は即座に検知できます。

🧠 応用：HTTPレスポンス監視

Webサーバの応答確認にはInvoke-WebRequestを使う方法も有効です。

$response = Invoke-WebRequest "https://example.com" -UseBasicParsing -ErrorAction SilentlyContinue
if ($response.StatusCode -eq 200) {
    "Webサーバ稼働中"
} else {
    "応答異常：$($response.StatusCode)"
}

StatusCode 200 が返れば正常稼働。
API監視やWebアプリ死活確認にも応用可能です。

🔗 関連記事

• ICMP禁止環境で疎通確認する3つの方法
• Test-Connectionの基本使い方｜Pingとの違いと応用
• netstatで通信ポートを確認する方法
• PowerShellでログ出力を自動化する方法（予定）

🧾 まとめ

• Test-Connection -Portを使えば、ICMP禁止環境でも死活確認可能
• ログ出力やメール通知で、自動監視をシンプルに構築可能
• スケジューラ設定で運用自動化が実現

PowerShellは「運用監視の自動化ツール」としても強力です。
小さく始めて、徐々にログ解析・通知連携などに拡張していきましょう。

ネットワークの疎通確認といえば「ping」。
しかし、セキュリティポリシーの厳しい環境では ICMP（ping通信）がファイアウォールで禁止 されているケースも少なくありません。

この記事では、そんな「pingが通らない環境」で通信確認を行う方法を3つ紹介します。
Test-Connection -Port の活用例を中心に、実務で役立つ切り分けテクニックを解説します。

🚫 なぜpingが通らないのか？

ping は ICMP（Internet Control Message Protocol）を利用して通信確認を行います。
多くのFWやルータでは、セキュリティ上の理由からこのICMP通信が遮断されています。

• ICMPを許可すると、ネットワーク構成の推測（ポートスキャン）に悪用される恐れ
• 外部からのDoS攻撃（ICMP Flood）対策のため

結果として、pingが「Request timed out」になっても、実際はTCP通信が正常に行えている場合があります。

✅ 方法①：PowerShellのTest-Connection -Portを使う

PowerShell 7以降で利用可能な Test-Connection -Port は、TCPレベルで疎通確認を行えます。
つまり、ping(ICMP)が禁止されていても、対象ポートが開いていれば通信可能です。

例：Web・DB・SSHなどの確認

Test-Connection web01 -Port 80
Test-Connection web01 -Port 443
Test-Connection db01 -Port 1433
Test-Connection server01 -Port 22

結果：

TcpTestSucceeded : True
ComputerName     : web01
RemotePort       : 443
RoundtripTime    : 12

🧩 方法②：アプリ層でのHTTP通信テスト（Invoke-WebRequest）

Webサーバの応答を確認したい場合は、HTTPリクエストを送る方法もあります。

Invoke-WebRequest https://www.google.com -UseBasicParsing

• ステータスコード 200 OK → 正常応答
• ステータスコード 403 / 500 → Webアプリまたは認証エラー

💡 Invoke-WebRequest はAPIやWebシステムの死活確認にも活用できます。

🧠 方法③：特定ポートの開閉を確認（Test-NetConnection）

もう1つの便利なコマンドがTest-NetConnection (Windows標準搭載)。
PowerShell 5以降で利用でき、ICMPが使えない環境でもポートを指定して通信確認が可能です。

Test-NetConnection db01 -Port 1433

結果：

ComputerName     : db01
RemoteAddress    : 192.168.1.100
RemotePort       : 1433
TcpTestSucceeded : True

→ TcpTestSucceeded : Trueで疎通成功。
アプリケーション層(DBサーバやAPIサーバなど)との通信可否を簡単に判定できます。

🔍 実務での切り分けシナリオ

💻 自動監視スクリプト例（PowerShell）

以下のスクリプトをタスクスケジューラに登録しておけば、ミドルウェアの死活を定期的チェックできます。

$targets = @(
    @{Name="Web"; Host="web01"; Port=443},
    @{Name="DB"; Host="db01"; Port=1433},
    @{Name="API"; Host="api01"; Port=8080}
)

foreach ($t in $targets) {
    $result = Test-Connection $t.Host -Port $t.Port -Quiet
    $status = if ($result) { "OK" } else { "NG" }
    Write-Output "$(Get-Date -Format 'yyyy/MM/dd HH:mm:ss') $($t.Name): $status"
}

出力例：

2025/11/01 08:30:00 Web: OK
2025/11/01 08:30:00 DB: NG
2025/11/01 08:30:00 API: OK

🔗 関連記事

• Test-Connectionの基本使い方｜Pingとの違いと応用
• netstatで通信ポートを確認する方法
• PowerShellでネットワーク監視を自動化する方法

🧾 まとめ

ファイアウォールでICMPが禁止されている環境でも、
PowerShellのTest-Connection -PortやTest-NetConnectionを使えば、
TCPレベルでの疎通確認が可能です。

pingが通らない = 通信できない ではない！
TCPポートが開いているかどうかを確認することで、正確な原因切り分けができます。

どうも！リョクちゃです。

これまで学んだ STP（ループ防止）、リンクアグリゲーション（帯域とL2冗長）、VRRP（ゲートウェイ冗長） を組み合わせることで、より実用的で強固なネットワークを設計できます。
本記事では、L2・L3を跨いだ冗長化設計の基本と、実務で注意すべきポイントを解説します。

なぜ複合的な冗長設計が必要か

単一の冗長技術では、以下のような課題が残ります。

• STPだけ → 帯域が使い切れず片系が待機状態になる
• LAGだけ → ゲートウェイ機能が単一機器に依存する
• VRRPだけ → L2のループや単一リンク障害に弱い

これらを組み合わせることで、停止リスクを最小化しつつ帯域を最大活用できます。

設計の基本パターン

1. アクセス層（L2）での冗長化

• リンクアグリゲーション（LAG / EtherChannel） でスイッチ間を束ねて帯域を拡張
• STPのRootブリッジを意図的に決定し、予期しない経路の変化を防止

👉 Rootブリッジをコアルータ側に設定するのがベストプラクティス。

2. コア層（L3）での冗長化

• VRRP / HSRP を利用し、デフォルトゲートウェイを冗長化
• 各VLANごとにVRRPグループを作り、Active/Standbyを振り分けることでトラフィックを分散可能

例：

• VLAN10 → CoreSW1をMaster
• VLAN20 → CoreSW2をMaster

実務でのベストプラクティス

• RootブリッジとVRRP Masterの整合性
  STPのRootとVRRPのMasterは同じスイッチにすると経路が安定。

• LACPを利用した安全なリンク集約
  静的設定よりもLACP推奨。リンク異常検知と自動除外が効く。

• テスト環境で障害シナリオを確認
  ケーブル抜きテストやMasterダウンテストを事前に実施。

• 監視とログ収集を導入
  show spanning-tree, show etherchannel summary, show vrrp などを監視で活用。

トラブル例と対策

まとめ

• L2（STP＋LAG）とL3（VRRP）を組み合わせることで、高可用性かつ高効率なネットワークが構築できる
• RootブリッジとVRRP Masterの整合性を取ることが設計の要
• 障害発生時の動作をテストすることで実運用に強いネットワークを実現

👉 次回は、より実務寄りの「障害シナリオと切り分けの実践」へ進みます。

今回は、Windowsフォームアプリケーションのフォーム画面に

既に配置されたTableLayoutPanelの中に動的にコントロールを

追加し、画面をカスタマイズしていく方法を紹介していきます。

あらかじめコントロールを配置するのではなく、プログラムの条件によって

画面を変更するアプリケーションが作れるようになります。

ちなみに前回の記事はこちら

【VB.Net】好きな場所にフォルダを作成するWindowsフォームアプリを作る

Windowsフォームアプリケーションで好きな場所にフォルダを作成するアプリを簡単に作成してみたので紹介しています。VB.Netでフォルダ操作をする際の参考になれば嬉しいです。小さなことからコツコツと始めてみます。

dreamparadaisu.com

2021-08-12 04:31

TableLayoutPanel

以前にTableLayoutPanelについては下記の記事で紹介をしていました。

その時はTableLayoutPanelの使い方どまりでした。

【VB.Net】TableLayoutPanelの使い方～画面レイアウトを工夫してみた～

Windowsフォームアプリケーションの画面レイアウトでコンポーネントの配置が整わない、綺麗に配置できないといった悩みはありませんか？そんな時に使える、TableLayoutPanelについて例を交えて紹介しています。初学者の参考になれば。

dreamparadaisu.com

2020-11-22 18:50

今回はステップアップしたTableLayoutPanelの使い方になります。

フォーム画面の作成

まず、最初に以下のフォーム画面を作成します。

このフォームを使って、TableLayoutPanelのレイアウトなどを

動的に変更していきたいと思います。

コントロールの配置については下記の表になります。

実行環境

筆者の実行環境は、

• VisualStudio2019
• Windows 10 64bit
• .Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

TableLayoutPanelの列と行を動的に追加

追加したTableLayoutPanelに動的に列や行を追加するには、下記のコードで行います。

列を追加する場合

行を追加する場合

これを使って、試しに5個の列と行を追加していきます。

' 列と行を5個追加
Dim colAndRowNum As Integer = 5
Me.tlpMain.RowCount = colAndRowNum
Me.tlpMain.ColumnCount = colAndRowNum

これを実行すると、

うーん、よくわかりませんね、追加できたかどうか。。。

これをわかりやすくするために、境界線の設定を行っていきます。

こちらも動的に行っていきます。

境界線の設定

境界線の設定には2種類あり、

• TableLayoutPanelの境界線
• TableLayoutPanelの各部屋(セル)の境界線

の設定の2種類があります。

(これが主に使うであろう境界線の設定になります。)

それぞれ

TableLayoutPanelの境界線

設定したい境界線には3種類あります。

• BorderStyle.None  ‘ 境界線なし
• BorderStyle.FixedSingle  ‘ 1重線の境界線
• BorderStyle.Fixed3D  ‘ 3Dの境界線

デフォルトだと、Noneが割り当てられています。

TableLayoutPanelの各部屋(セル)の境界線

設定したい境界線には、7種類あります。

• TableLayoutPanelCellBorderStyle.None ‘ 境界線無し
• TableLayoutPanelCellBorderStyle.Single ‘ 1重線の境界線
• TableLayoutPanelCellBorderStyle.Inset ‘ 1重線のくぼんだ境界線
• TableLayoutPanelCellBorderStyle.InsetDouble  ‘ 2重線のくぼんだ境界線
• TableLayoutPanelCellBorderStyle.Outset ‘ 1重線の浮出した境界線
• TableLayoutPanelCellBorderStyle.OutsetDouble ‘ 2重線の浮出した境界線
• TableLayoutPanelCellBorderStyle.OutsetPartial ‘ 浮出した部分を含む1重線の境界線

先ほど追加した列と行数に対して、下記のように設定します。

' 追加した行や列がわかりやすいように境界線のスタイルを設定
Me.tlpMain.BorderStyle = BorderStyle.FixedSingle
Me.tlpMain.CellBorderStyle = TableLayoutPanelCellBorderStyle.Inset

今回は、TableLayoutPanelのBorderStyleには1重線の境界線

TableLayoutPanelの各部屋の境界線には1重線のくぼんだ境界線を設定しています。

これを実行すると、

わかりやすくはなりましたが、各部屋のサイズが微妙ですね。

TableLayoutPanelの各部屋のサイズの設定

各部屋のサイズが微妙なので、こちらも動的に設定してみます。

サイズを設定するには、行と列にそれぞれ行う必要があります。

列の場合

行の場合

• SizeType.AutoSize  ‘ 他の行や列と猟奇を共有するように自動的に設定
• SizeType.Absolute  ‘ 行または列のサイズは、正確なピクセル数に設定
• SizeType.Percent  ‘ 行または列のサイズは、親コンテナのパーセントとして設定

サイズモードの設定によって、サイズの指定などがオプションとして付加できたりします。

例えば、SizeType.Percentにすると、

New RowStyle(SizeType.Percent, width)となります。

widthにサイズを指定することができます。

ここでは下記のようにコードを書いてみます。

' 追加した列と行のサイズを変更
For col As Integer = 0 To Me.tlpMain.ColumnCount
    Me.tlpMain.ColumnStyles.Insert(col, New ColumnStyle(SizeType.Percent, 50))
Next col

For row As Integer = 0 To Me.tlpMain.RowCount
    Me.tlpMain.RowStyles.Insert(row, New RowStyle(SizeType.Percent, 50))
Next row

それぞれ列と行ごとにサイズの設定をしています。

これを実行すると、

綺麗になりました。

ちゃんと5行5列に区切ることができています。

これを全体に表示するには、Dockプロパティを設定します。

こちらも動的に行っていきます。

フォームへドッキング

Dockプロパティを設定するには、

ドッキングモードには、6種類あります。

• None  ‘ なし
• Top  ‘ 格納する側のコントロールの上端にドッキング
• Bottom  ‘ 格納する側のコントロールの下端にドッキング
• Left  ‘ 格納する側のコントロールの左端にドッキング
• Right  ‘ 格納する側のコントロールの右端にドッキング
• Fill  ‘ 格納する側のコントロールの四辺にドッキング且つ適切なサイズに自動調整

今回はFillにして、フォーム全体にドッキングし、適切なサイズに自動で調整をさせます。

' TableLayoutPanelをフォームにドッキングする。
Me.tlpMain.Dock = DockStyle.Fill

これを実行すると、

見やすくなりました。

それでは、ここからいよいよコントロールを動的に追加していきます。

TableLayoutPanelに動的にコントロールを追加

よく使うであろうコントロールをここでは動的に追加していく方法を紹介します。

TableLayoutPanelにコントロールを追加するには、

ラベル(Label)

ラベルを追加するには、

とし、

となります。

例として、2列目の1行目にボタンを追加します。

わかりやすいように、作成したラベルには”こんにちは”と表示させています。

' ラベルを2列目の1行目に配置
Dim lblControl As New Label
lblControl.Text = "こんにちは"
Me.tlpMain.Controls.Add(lblControl, 1, 0)

ここで行番号と列番号の始まりは1からではなく、0からになるので注意が必要です。

これを実行すると、

追加することができました。

ボタン(Button)

ボタンを追加するには、

として、インスタンス化しておく必要があります。

これも例として、

2列目の2行目に追加してみます。

わかりやすいようにテキストには”押してみて”と表示させてみます。

' ボタンを2列目の2行目にを配置
Dim btnControl As New Button
btnControl.Text = "押してみて"
Me.tlpMain.Controls.Add(btnControl, 1, 1)

実行すると

テキストボックス(TextBox)

テキストボックスを追加するには、

例として、

3列目の1行目に追加してみます。

' テキストボックスを3列目の1行目に配置
Dim tbxControl As New TextBox
Me.tlpMain.Controls.Add(tbxControl, 2, 0)

これを実行すると、

チェックボックス(CheckBox)

チェックボックスを追加するには、

例として、

3列目の4行目に追加してみます。

' チェックボックスを3列目の4行目に配置
Dim cbxControl As New CheckBox
cbxControl.Text = "チェックしてみて"
Me.tlpMain.Controls.Add(cbxControl, 2, 3)

これを実行すると、

ラジオボタン(RadioButton)

ラジオボタンを追加するには、

例として、

4列目の4行目に追加してみます。

' ラジオボタンを4列目の4行目に配置
Dim rbtControl As New RadioButton
rbtControl.Text = "Apple"
Me.tlpMain.Controls.Add(rbtControl, 3, 3)

これを実行すると、

このようにして各種コントロールを動的に追加することもできます。

動的に追加したコントロールでイベントを発生させて処理を行いたい場合については、

次回以降の記事で触れていこうと思います。

まとめ

TableLayoutPanelに動的にコントロールを追加する方法について紹介しました。

プログラム実行中に画面をカスタマイズしたい、そんなときにおススメです。

最後までお読みいただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/13 06:25時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/13 06:25時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/13 06:25時点)

楽天ブックス