イベントにスクリプトブロックを指定する

PowerShellでもイベントを使えないかと思いネットで調べてみました。
できるだろうなぁ、と思っていましたが、できるようです。
こちらのサイトに、たいへん分かりやすくまとめられています。

結論のみ書かせていただきますと、以下のように書けばよいです。
[オブジェクト]. add_[イベント名]( スクリプトブロック )

何故イベントの事を調べていたかといえば、
ファイルのバックアップについて、
「更新されたファイルのみをバックアップできない？？」
と知人より質問を受けたのがきっかけになります。
やり口としては、こちらのサイトに紹介されている、
FileSystemWatcherオブジェクトを使用する方法が良さそうなのですが、
ここでイベントを使う必要があるわけです。

勉強がてら、PowerShellで作ってみようとしてます。
勢いでファイルの更新情報を拾う部分だけ書いてみました。
動きはするようなので、サンプルコードとして晒してみます。

サンプルコード：

#FileWatchSample.ps1
param
( [string]$Directory = "D:\", [switch]$IncludeSubDirectory = $true )

#制御用フォーム準備
$label = New-Object -TypeName "System.Windows.Forms.Label"
$label.Text = "監視終了時は、このフォームを閉じてください。"
$label.Size = New-Object -TypeName "System.Drawing.Size" `
                         -ArgumentList @( $label.PreferredWidth, $label.PreferredHeight )
                         
$form = New-Object -TypeName "System.Windows.Forms.Form"
$form.Text = "ファイル監視中"
$form.AutoSize = $true
$form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::Fixed3D
[void]$form.Controls.Add( $label )

#FileSystemWatcher準備
$fileSystemWatcher = New-Object -TypeName "System.IO.FileSystemWatcher" `
                -ArgumentList @( $Directory )
$fileSystemWatcher.IncludeSubdirectories = $IncludeSubDirectory
$fileSystemWatcher.NotifyFilter = [System.IO.NotifyFilters]::CreationTime.value__ `
                    -bor [System.IO.NotifyFilters]::FileName.value__
$fileSystemWatcher.Filter = "*.*"

$fileSystemWatcher.add_Changed( `
    { Write-Host ( "{0} changed: {1}" -f [DateTime]::Now.ToString(), $_.FullPath ) } )
$fileSystemWatcher.add_Created( `
    { Write-Host ( "{0} created: {1}" -f [DateTime]::Now.ToString(), $_.FullPath ) } )
$fileSystemWatcher.add_Deleted( `
    { Write-Host ( "{0} deleted: {1}" -f [DateTime]::Now.ToString(), $_.FullPath ) } )
$fileSystemWatcher.add_Renamed( `
    { Write-Host ( "{0} renamed: {1} => {2}" `
                        -f [DateTime]::Now.ToString(), $_.OldFullPath, $_.FullPath ) } )
$fileSystemWatcher.SynchronizingObject = $form

#ファイル監視開始
$fileSystemWatcher.EnableRaisingEvents = $true
#終了時はフォームを閉じること。
$form.ShowDialog() | Out-Null

参照リンク
PowerShell Memo : VisualBaiscとPowerShellのイベント処理の比較
present : ファイルの作成・削除・変更をイベントで知る方法
MSDN : FileSystemWatch

参考コマンド

PowerShellからWin32APIを使う

つい最近の話ですが、
PowerShellからiniファイルのデータを拾いたいと思う事がありました。
Win32APIのGetPrivateProfileString関数を
使えれば早いのですがそんなことが可能なのか。。。

実は、.NET FrameworkのP/Invoke（Platform Invokeの略？）の
仕組み機能を使用することで、PowerShellからWin32APIを使用できます。
例によって、.NET FrameworkをPowerShellから呼び出します。

今回のは、.NETにそんなに詳しくない身としては少々ハードルが高く、
一から実装することは難しいですので、
今回はこちらのサイトからソースコードを拝借しました。
ありがとうございます！

単にコードを示すだけでは私自身の勉強にならないため、
MSDNのクラスライブラリ等を使い、なるべくコードの意味を調べるようにしました。
関連リンクは後ほど。。。

サンプルコード：

# PowerShellからのPlatform APIの呼び出しは、
# .NET Frameworkの提供するP/Invoke機能を介して実施することができる。
# Invoke-Win32では、P/Invokeを実行用に一時的な型を定義し、
# そこに実装したStaticなメソッドを介してPlatformAPIを実行する。
function Invoke-Win32()
{
    param
    ( [string]$dllName, [Type]$returnType, [string]$methodName, [Object[]]$parameterInfos )
   
   $parameterTypes = $parameterInfos | %{ $_[ 0 ] }
   $parameters = $parameterInfos | %{ $_[ 1 ] }

   # カレントのアプリケーションドメインに、
   # P/Invokeを実行するメソッドを持つ独自の型を定義する。
   $domain = [AppDomain]::CurrentDomain
   $name = New-Object Reflection.AssemblyName 'PInvokeAssembly'
   $assembly = $domain.DefineDynamicAssembly( $name, 'Run' )
   $module = $assembly.DefineDynamicModule( 'PInvokeModule')
   $type = $module.DefineType( 'PInvokeType', "Public,BeforeFieldInit" )

   # P/Invokeを呼び出すためのパラメーターを準備する。
   # PlatformAPIに渡すパラメーターを保持する配列
   $inputParameters = @() 
   # PSReference型パラメーターの位置を保持する配列
   $refParameters = @()
  
   for( $counter = 0; $counter -lt $parameterTypes.Length; $counter++ )
   {
      # パラメーターの型が「PSReference」のものについては、関数から戻ってきた値を拾えるようにする必要がある。
      if( $parameterTypes[ $counter ] -eq [Ref] )
      {
         # 呼び出しの際に[out]をつける必要があるため、そのパラメーターの位置を退避しておく。
         # 配列の数より1つ大きな数を保持しておく必要がある。（理由は後述）
         $refParameters += $counter

         # PSReference型を、.NETオブジェクトの参照型に書き換える。
         $parameterTypes[ $counter ] = $parameters[ $counter ].Value.GetType().MakeByRefType()
         
         # 関数呼び出し時に使用するパラメーター一覧に値を追加する
         $inputParameters += $parameters[ $counter ].Value
      }
      # そうでないものについては、関数呼び出し時に使用するパラメーター一覧にただ追加するのみ
      else
      {
         $inputParameters += $parameters[ $counter ]
      }
   }

   # アセンブリーの動的メソッドとして、PlatformAPIを定義する
   $method = $type.DefineMethod( $methodName, `
                                 'Public,HideBySig,Static,PinvokeImpl', `
                                 $returnType, `
                                 $parameterTypes )
   # PSReference型のパラメーターは、out属性のパラメーターとする。
   foreach( $refParameter in $refParameters )
   {
       # 0番目の要素は戻り値の情報になるため、配列の要素番号+1を指定する必要がある。
      $method.DefineParameter( ( $refParameter + 1 ), "Out", $null )
   }

   # P/Invokeのコンストラクターを設定する
   $ctor = [Runtime.InteropServices.DllImportAttribute].GetConstructor( [string] )
   $attr = New-Object Reflection.Emit.CustomAttributeBuilder $ctor, $dllName
   $method.SetCustomAttribute( $attr )
    
   # 一時的な型を作成し、そのメソッドとしてPlatformAPIを実行する。
   $realType = $type.CreateType()
   $returnObject = $realType.InvokeMember( $methodName, `
                                           'Public,Static,InvokeMethod', `
                                           $null, `
                                           $null, `
                                           $inputParameters )
    
   # PSReference型で受け取ったパラメーターの値を更新する。
   foreach( $refParameter in $refParameters )
   {
      $parameterInfos[ $refParameter ][ 1 ].Value = $inputParameters[ $refParameter ]
   }
   # PlatformAPIの戻り値を返す
   return $returnObject
}

# GetPrivateProfileStringを呼び出してみる。
$iniFilePath = 'C:\test.ini'
$returnValue = New-Object System.Text.StringBuilder 500
$parameterInfos = @( @( [string], [string]"FrontOtherService1" ), `
                     @( [string], [string]"Name" ), `
                     @( [string], [string]"" ), `
                     @( [System.Text.StringBuilder], [System.Text.StringBuilder]$returnValue ), `
                     @( [int], [int]$returnValue.Capacity ), `
                     @( [string], [string]$file ) )

$returnValue = Invoke-Win32 -dllName "kernel32.dll" `
                            -returnType ( [UInt32] ) `
                            -methodName "GetPrivateProfileString" `
                            -parameterInfos $parameterInfos
$returnValue.ToString()

他にもいろいろなWin32API関数が使えるはずです。
その際、.NET上で動くコード（マネージコード）と
Win32APIを動かすときのコード（ネイティブコード）との対応を
理解しておく必要がありますが、ツールで調べることもできます
（P/Invoke Interop Assistant）。

で、今新たに知りたいと思っているのは、
PowerShellからDelegateを使用する方法です。
イベントを使ったり、マルチスレッドを実装する場合には欠かせません。
これについても、おいおい勉強していければいいかなぁ。。。

参考コマンド：


参考リンク：
Precision Computing : Get the Owner of a Process in PowerShell – P/Invoke and Ref/Out Parameters
MSDN : A Closer Look at Platform Invoke
P/Invoke.NET
CodePlex : P/Invoke Interop Assistant

関連投稿：
PowerShellから.NETのアセンブリを呼ぶ

修正履歴：

PowerShellでファイルを圧縮！（zipファイル）

システムの運用をしていく中で、
ファイルを圧縮して保存することは、よくある話です。
ログファイルなんかは結構小さくなりますしね。

PowerShell Community Extensionsで提供されるコマンドレットに、
Zipファイルを作成するコマンドレットが含まれますので、
これを使うのが一番簡単じゃないかと思います。

が、この手のモノを使っちゃいけないような場合についても、
Comオブジェクトを使用してさっくりと実装することが可能です。

実装例：
Zipファイルを作成します。
Zipファイルの直下に同一名称のアイテムを配置しようとすると
ポップアップウィンドウが出て困るので、
重複した場合には処理を中止し、zipファイルも消します。

# Zip-Item.ps1
$ZipFilePath = "D:\testzip.zip" # zipファイル作成先
$TargetItems = "D:\test","D:\*.rb" # 圧縮対象ファイルとかフォルダとか

# Zipファイル作成（同一名称ファイルが存在する場合には予め削除する）
if(Test-Path -Path $ZipFilePath)
{
    Remove-Item -Path $ZipFilePath
}
([char]80 + [char]75 + [char]5 + [char]6).ToString() + ([char]0).ToString()*18 | `
New-Item -Path $ZipFilePath -Type File

# Zipファイルにファイルおよびフォルダを投入
$shell = New-Object -com Shell.Application
$zipfile = $shell.NameSpace($ZipFilePath)
$archivedItems = New-Object Collections.ArrayList
foreach($item in ($TargetItems | %{Get-Item -Path $_}))
{
    # 同一名称のアイテムが存在した場合、zipファイルを削除して例外をスロー
    foreach($archivedItem in $archivedItems)
    {
        if($item.Name -eq $archivedItem.Name)
        {
            Remove-Item -Path $ZipFilePath
            throw "ファイル名またはフォルダ名が重複しています：" `
                      + $archivedItem.FullName + "," + $item.FullName
        }
    }

    # ファイルまたはフォルダをZipファイルに投入。圧縮処理は非同期なので、その終了を待つ。
    $archivedItems.Add($item) | Out-Null
    $zipfile.CopyHere($item.FullName)
    while($true)
    {
        if($archivedItems.Count -eq $zipfile.Items().Count)
        {
            break
        }
    Start-Sleep -Seconds 1
    }
}
return $archivedItems.ToArray()

参考サイト：
Jeans & Development : VBScript での zip ファイルの作成

修正履歴：
2010/1/28 サンプルコードのコメントを緑色にしてみた。