【PowerShell】Ping実行ウィンドウを作ってみる

2018年8月4日 2018年8月5日

Warning: preg_match(): Compilation failed: unrecognized character follows \ at offset 1 in /home/r5652521/public_html/soma-engineering.com/wp-content/themes/affinger/functions.php on line 1548

Warning: preg_match(): Compilation failed: unrecognized character follows \ at offset 1 in /home/r5652521/public_html/soma-engineering.com/wp-content/themes/affinger/functions.php on line 1548

Warning: preg_match(): Compilation failed: unrecognized character follows \ at offset 1 in /home/r5652521/public_html/soma-engineering.com/wp-content/themes/affinger/functions.php on line 1548

Warning: preg_match(): Compilation failed: unrecognized character follows \ at offset 1 in /home/r5652521/public_html/soma-engineering.com/wp-content/themes/affinger/functions.php on line 1548

Warning: preg_match(): Compilation failed: unrecognized character follows \ at offset 1 in /home/r5652521/public_html/soma-engineering.com/wp-content/themes/affinger/functions.php on line 1548

Warning: preg_match(): Compilation failed: unrecognized character follows \ at offset 1 in /home/r5652521/public_html/soma-engineering.com/wp-content/themes/affinger/functions.php on line 1548

こんにちは！SE ブログの相馬です。

PowerShell で画面が作れると知って、前回はメッセージボックスを作りましたので、もう少し高度なもので実用的なものを作りたいと思いました。

メッセージボックスを表示する

PowerShell は .NET Framework のライブラリを利用できスクリプト内で書けます。下は @IT の記事を引用させていただきました。

PowerShellではただコマンドレットから返されるオブジェクトを利用できるばかりではない。自ら.NET Frameworkが提供するクラスをインスタンス化して、スクリプトの中で利用することも可能だ。これによって、スクリプト上でVisual BasicやC#と限りなく同等の操作を行うことができる点は、PowerShellを利用する最大のメリットであるともいえるだろう。

PowerShellスクリプティングの第一歩（後編） (5/5)　|　@IT

という事で、今回は Ping ができて、結果も確認できるツールを作ってみました。完成形としてはこんな感じです。

PowerShell で画面が作れると、ユーザー向けや管理者向けに便利なツールが作れる事が分かったので、社内 SE をやっている方であれば仕事で実用化できると思います。

では早速始めてみましょう。

フォームウィンドウ

まずはフォームの外枠をつくってゆきます。必要なアセンブリを読み込んでから、オブジェクトを生成します。オブジェクトを生成するためには New-Object コマンドレットを使います。＠IT の記事で分かり易い説明がありましたのでリンクを貼っておきますね。

PowerShellスクリプティングの第一歩（後編） (5/5)　|　@IT

フォームを作るオブジェクトを作成したら、また New-Object コマンドレットでウィンドウのサイズを指定して、Form の Size プロパティに代入します。その後にフォームを表示し、フォームをアクティブにします。

# アセンブリの読み込み
[void] [System.Reflection.Assembly]::LoadWithPartialName(&quot;System.Drawing&quot;)
[void] [System.Reflection.Assembly]::LoadWithPartialName(&quot;System.Windows.Forms&quot;)
# オブジェクトを生成
$Form = New-Object System.Windows.Forms.Form
# フォームのサイズ
$Form.Size = New-Object System.Drawing.Size(600,400)
# フォームのテキスト
$form.Text = &quot;PINGツール&quot;
# フォームを表示
$Form.Add_Shown({$Form.Activate()})
# フォームをアクティブ
[void] $Form.ShowDialog()

# アセンブリの読み込み

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

# オブジェクトを生成

$Form = New-Object System.Windows.Forms.Form

# フォームのサイズ

$Form.Size = New-Object System.Drawing.Size(600,400)

# フォームのテキスト

$form.Text = "PINGツール"

# フォームを表示

$Form.Add_Shown({$Form.Activate()})

# フォームをアクティブ

[void] $Form.ShowDialog()

フォームの外枠ができました。

テキストボックス

入力テキストボックス

次に、一行のテキストボックスを作成します。フォーム内にオブジェクトを作ります。全て入力テキストボックスに関するものです。

# テキストボックスの作成
$InputBox = New-Object System.Windows.Forms.TextBox
# テキストボックスの表示場所を指定
$InputBox.Location = New-Object System.Drawing.Size(10,60)
# テキストボックスをのサイズを指定
$InputBox.Size = New-Object System.Drawing.Size(150,20)
# $Form の Controls プロパティで、引数である $InputBox に対して Add メソッドを使い、ウィンドウ内で 入力テキストボックスを有効にします。
$Form.Controls.Add($InputBox)

# テキストボックスの作成

$InputBox = New-Object System.Windows.Forms.TextBox

# テキストボックスの表示場所を指定

$InputBox.Location = New-Object System.Drawing.Size(10,60)

# テキストボックスをのサイズを指定

$InputBox.Size = New-Object System.Drawing.Size(150,20)

# $Form の Controls プロパティで、引数である $InputBox に対して Add メソッドを使い、ウィンドウ内で入力テキストボックスを有効にします。

$Form.Controls.Add($InputBox)

表示用のテキストボックス

次に表示用のテキストボックスを作成します。入力テキストボックスと同様、フォーム内にオブジェクトを作ります。

# 表示用のテキストボックス
$OutputBox = New-Object System.Windows.Forms.TextBox
# 表示用のテキストボックスの表示場所
$OutputBox.Location = New-Object System.Drawing.Size(10,150)
# 表示用のテキストボックスのサイズ
$OutputBox.Size = New-Object System.Drawing.Size(490,180)
# 表示用のテキストボックスを複数行にする
$OutputBox.MultiLine = $True
# 表示用のテキストボックスにスクロールバーを付ける
$OutputBox.ScrollBars = &quot;Vertical&quot;
# $Form の Controls プロパティで、引数である $OnputBox に対して Add メソッドを使い、ウィンドウ内で 表示用のテキストボックスを有効にします。
$Form.Controls.Add($outputBox)

# 表示用のテキストボックス

$OutputBox = New-Object System.Windows.Forms.TextBox

# 表示用のテキストボックスの表示場所

$OutputBox.Location = New-Object System.Drawing.Size(10,150)

# 表示用のテキストボックスのサイズ

$OutputBox.Size = New-Object System.Drawing.Size(490,180)

# 表示用のテキストボックスを複数行にする

$OutputBox.MultiLine = $True

# 表示用のテキストボックスにスクロールバーを付ける

$OutputBox.ScrollBars = "Vertical"

# $Form の Controls プロパティで、引数である $OnputBox に対して Add メソッドを使い、ウィンドウ内で表示用のテキストボックスを有効にします。

$Form.Controls.Add($outputBox)

テキストラベル

入力テキストボックスに表示させるラベルを作成します。

# フォントの設定
$Font = New-Object System.Drawing.Font(&quot;ＭＳ ゴシック&quot;,11)
# ラベルの設定
$Label = New-Object System.Windows.Forms.Label
# ラベルの表示場所
$Label.Location = New-Object System.Drawing.Point(10,30)
# ラベルの表示サイズ
$Label.Size = New-Object System.Drawing.Size(500,20)
# ラベルの文字
$Label.Text = &quot;マシン名を入力して[PING]ボタンを押ください。&quot;
# ラベルの色
$Label.Forecolor = #000
# フォントの設定をラベルに代入
$Label.Font = $Font
# ラベルを有効にする
$Form.Controls.Add($label)

# フォントの設定

$Font = New-Object System.Drawing.Font("ＭＳゴシック",11)

# ラベルの設定

$Label = New-Object System.Windows.Forms.Label

# ラベルの表示場所

$Label.Location = New-Object System.Drawing.Point(10,30)

# ラベルの表示サイズ

$Label.Size = New-Object System.Drawing.Size(500,20)

# ラベルの文字

$Label.Text = "マシン名を入力して[PING]ボタンを押ください。"

# ラベルの色

$Label.Forecolor = #000

# フォントの設定をラベルに代入

$Label.Font = $Font

# ラベルを有効にする

$Form.Controls.Add($label)

ボタン

テキストボックスが出来たら、ボタンを作ります。テキストボックスと同様、フォーム内にオブジェクトを作ります。

# ボタンを作成
$Button = New-Object System.Windows.Forms.Button
# ボタンの表示場所を指定
$Button.Location = New-Object System.Drawing.Size(390,60)
# ボタンのサイズを指定
$Button.Size = New-Object System.Drawing.Size(110,80)
# ボタンに表示する文字列
$Button.Text = &quot;Action&quot;
# ボタンをクリック
$Button.Add_Click({})
# ボタンを有効にする
$Form.Controls.Add($Button)

# ボタンを作成

$Button = New-Object System.Windows.Forms.Button

# ボタンの表示場所を指定

$Button.Location = New-Object System.Drawing.Size(390,60)

# ボタンのサイズを指定

$Button.Size = New-Object System.Drawing.Size(110,80)

# ボタンに表示する文字列

$Button.Text = "Action"

# ボタンをクリック

$Button.Add_Click({})

# ボタンを有効にする

$Form.Controls.Add($Button)

Ping

入力テキストボックスにマシン名を入力して、Ping した結果を表示用テキストボックスに表示する処理を関数で書きます。

function pingInfo {
    # 入力テキストボックスに入力した値を $machineName に代入
    $machineName = $InputBox.text
    # $machineName に Ping した結果データを $pingResult に代入
    $pingResult = ping $machineName | Format-List | Out-String
    # 表示用のテキストボックスに Ping した結果データを代入
    $outputBox.text = $pingResult
}

function pingInfo {

# 入力テキストボックスに入力した値を $machineName に代入

$machineName = $InputBox.text

# $machineName に Ping した結果データを $pingResult に代入

$pingResult = ping $machineName | Format-List | Out-String

# 表示用のテキストボックスに Ping した結果データを代入

$outputBox.text = $pingResult

}

最後に、上で作成した関数を $Button.Add_Click({}) に入れます。

$Button.Add_Click({pingInfo})

1	$Button.Add_Click({pingInfo})

全てできあがったら、コードをまとめます。

[void] [System.Reflection.Assembly]::LoadWithPartialName(&quot;System.Drawing&quot;)
[void] [System.Reflection.Assembly]::LoadWithPartialName(&quot;System.Windows.Forms&quot;)

$Form = New-Object System.Windows.Forms.Form
$Form.Size = New-Object System.Drawing.Size(600,400)
$Form.Text = &quot;PINGツール&quot;

$InputBox = New-Object System.Windows.Forms.TextBox
$InputBox.Location = New-Object System.Drawing.Size(10,60)
$InputBox.Size = New-Object System.Drawing.Size(150,20)
$Form.Controls.Add($InputBox)

$OutputBox = New-Object System.Windows.Forms.TextBox
$OutputBox.Location = New-Object System.Drawing.Size(10,150)
$OutputBox.Size = New-Object System.Drawing.Size(490,180)
$OutputBox.MultiLine = $True
$OutputBox.ScrollBars = &quot;Vertical&quot;
$Form.Controls.Add($outputBox)

$Font = New-Object System.Drawing.Font(&quot;ＭＳ ゴシック&quot;,11)
$Label = New-Object System.Windows.Forms.Label
$Label.Location = New-Object System.Drawing.Point(10,30)
$Label.Size = New-Object System.Drawing.Size(500,20)
$Label.Text = &quot;マシン名を入力して[PING]ボタンを押ください。&quot;
$Label.Forecolor = #000
$Label.Font = $Font
$Form.Controls.Add($label)

$Button = New-Object System.Windows.Forms.Button
$Button.Location = New-Object System.Drawing.Size(390,60)
$Button.Size = New-Object System.Drawing.Size(110,80)
$Button.Text = &quot;Action&quot;
$Button.Add_Click({})
$Form.Controls.Add($Button)

function pingInfo {

    $machineName = $InputBox.Text
    $pingResult = ping $machineName | Format-List | Out-String
    $outputBox.Text = $pingResult

}

$Button.Add_Click({pingInfo})

$Form.Add_Shown({$Form.Activate()})
[void] $Form.ShowDialog()

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

$Form = New-Object System.Windows.Forms.Form

$Form.Size = New-Object System.Drawing.Size(600,400)

$Form.Text = "PINGツール"

$InputBox = New-Object System.Windows.Forms.TextBox

$InputBox.Location = New-Object System.Drawing.Size(10,60)

$InputBox.Size = New-Object System.Drawing.Size(150,20)

$Form.Controls.Add($InputBox)

$OutputBox = New-Object System.Windows.Forms.TextBox

$OutputBox.Location = New-Object System.Drawing.Size(10,150)

$OutputBox.Size = New-Object System.Drawing.Size(490,180)

$OutputBox.MultiLine = $True

$OutputBox.ScrollBars = "Vertical"

$Form.Controls.Add($outputBox)

$Font = New-Object System.Drawing.Font("ＭＳゴシック",11)

$Label = New-Object System.Windows.Forms.Label

$Label.Location = New-Object System.Drawing.Point(10,30)

$Label.Size = New-Object System.Drawing.Size(500,20)

$Label.Text = "マシン名を入力して[PING]ボタンを押ください。"

$Label.Forecolor = #000

$Label.Font = $Font

$Form.Controls.Add($label)

$Button = New-Object System.Windows.Forms.Button

$Button.Location = New-Object System.Drawing.Size(390,60)

$Button.Size = New-Object System.Drawing.Size(110,80)

$Button.Text = "Action"

$Button.Add_Click({})

$Form.Controls.Add($Button)

function pingInfo {

$machineName = $InputBox.Text

$pingResult = ping $machineName | Format-List | Out-String

$outputBox.Text = $pingResult

}

$Button.Add_Click({pingInfo})

$Form.Add_Shown({$Form.Activate()})

[void] $Form.ShowDialog()

いかがでしょうか。

まだまだ PowerShell で画面を作ることを学び始めたばかりですが、こうやってフロント的なツールが作れると面白いですね。私は Web フロントの HTML や CSS が好きなので、こういうものを作るのが以外と好きなのかもしれません。

色々作れるようになれば、ヘルプデスクや社内 SE として仕事していれば、色々と役に立つものが作れるかと思いますし、作る事によって PowerShell の技術スキルも向上すると思います。

では最後までお読みいただきありがとうございました！

そーまん

セキュリティエンジニアやってます。
ブログ歴3年。PVは月15万PV程度。
趣味はボクシング、筋トレ、登山です。
穏やかで人見知りな性格です。

コメントコメントをキャンセル

同じカテゴリーでおすすめの記事

【PowerShell】連想配列(hash_table)についてまとめ

こんにちは！そーまんです。今回は、連想配列について書いてみました。人の名前で言えばニックネームが添え字でそこから実際の名前を連想できるようなイメージだと思っていただければ分かりやすいかもしれません。連想配列の概要配列のキー（インデックス）が文字列となったものを連想配列といいます。ちなみに配列について未だ知識がない方は以下の記事を見て頂けます参考になるかと思います。復習になりますが、配列を作成した時に、キー（インデックス）は 0 から順に振られます。配列のインデックスと値について（上がインデッ ...

【PowerShell】ADのユーザーのパスワードをリセットする方法

こんにちは！そーまんです。今回は、PowerShell で Active Directory のユーザーのパスワードをリセットしてみました。多くの場合、パスワードのリセットは Active Directory ユーザーとコンピューターからユーザーを検索してリセットする方法が一般的で皆さんもそうされているかと思っています。ただし、複数ユーザーのパスワードをリセットする場合はなかなか面倒ですよね。多くの新入社員が入った時や、プロジェクトなどで短期間で多くのユーザーが入ったりとか、そういった場合は Pow ...

【PowerShell】スクリプトに署名する方法について

【PowerShell】Ping実行ウィンドウを作ってみる

フォームウィンドウ

テキストボックス

入力テキストボックス

表示用のテキストボックス

テキストラベル

ボタン

Ping

【Active Directory】PCに適用されているGPOを確認する方法

【Windows10】sysprepとは何か？

【Active Directory】ユーザーにローカル管理者権限を持たせる

【Windows10】一時ユーザープロファイルの問題を解決する

【Windows10】ユーザープロファイルを削除する

【PowerShell】繰り返し文(While, For)について

【Windows10】コマンドでPCの負荷状況を確認する

【PowerShell】プログラムと機能にあるアプリの一覧を表示する

【Active Directory】Group Policyが適用されない場合の対処方法

【Windows Server 2019】NTPサーバーと同期する方法

【PowerShell】Ping実行ウィンドウを作ってみる

フォームウィンドウ

テキストボックス

入力テキストボックス

表示用のテキストボックス

テキストラベル

ボタン

Ping

関連記事