風待ち

jrunscriptでGMailを送信してみる

2011-12-15T23:16:00.000+09:00

jrunscriptを使ってGMailを送信してみる。

まず、JavaでMailを送信するためのライブラリをダウンロードする。

JavaMail API 1.4.4
http://www.oracle.com/technetwork/java/javamail/index.html

ダウンロードした、”javamail1_4_4.zip”を解凍し、中から”mail.jar”だけ適当な場所にコピーする。

下記のコードのアドレスやパスワードを実際に自分の利用するGMailアドレスに変更して、”mail.jar”をコピーしたフォルダと同じ場所に置き、下記のように実行する。

> jrunscript.exe -cp mail.jar -f SendGMail.js

--- SendGMail.js ---

var user = "送信元アドレス@gmail.com";
var password = "パスワード";
var to = "送信先アドレス";
var subject = "件名";
var body = "本文";
var props = new java.util.Properties();
props.put("mail.smtp.host", "smtp.gmail.com");
props.put("mail.smtp.port", "587");
props.put("mail.smtp.auth", "true");
props.put("mail.smtp.starttls.enable", "true");
var session = Packages.javax.mail.Session.getInstance(props);
var mimeMessage = new Packages.javax.mail.internet.MimeMessage(session);
mimeMessage.setFrom(new Packages.javax.mail.internet.InternetAddress(user));
mimeMessage.setRecipient(Packages.javax.mail.Message.RecipientType.TO, new Packages.javax.mail.internet.InternetAddress(to));
mimeMessage.setSubject(subject, "ISO-2022-JP");
mimeMessage.setText(body, "ISO-2022-JP");
mimeMessage.setSentDate(new java.util.Date());
var transport = session.getTransport("smtp");
transport.connect(user, password);
transport.sendMessage(mimeMessage, mimeMessage.getAllRecipients());

jrunscriptで自作のstaticなクラスメソッドを呼んでみる

2011-11-06T21:44:00.000+09:00

足し算をするだけのstaticなクラスメソッドをjrunscriptで呼んでみる。

カレントフォルダに下に書いたMyMethod.javaがあるとしてコンパイルしてから、classpathの指定に”.（ピリオド）”でカレントフォルダにパスを通して利用する。

CMD > javac MyMethod.java
CMD > jrunscript -classpath .
js> Packages.MyMethod.add(1, 2);
3
js>

--- MyMethod.java ---

class MyMethod {
public static int add(int a, int b) {
return (a + b);
}
}

jrunscriptで複数のClass、複数のJarに同時にパスを通して使う

2011-11-06T21:35:00.001+09:00

前々回と前回でClassもJarも使えるようになった。
複数のClass、複数のJarを同時に使いたい時もあるので調べてみた。

複数にパスを通すには、”;（セミコロン）”でパスを区切ればいけそうだ。

通すファイルは前々回と前回に作ったClassとJar
ここではカレントフォルダのMy.classとMy.jarにパスを通して使う。

CMD > jrunscript -classpath ".;My.jar"
js> var myClass = new Packages.My("class");
js> myClass.getName();
class
js> var myJar = new Packages.foo.bar.My("jar");
js> myJar.getName();
jar
js>

jrunscriptで自作したJarを使ってみる

2011-11-06T21:26:00.000+09:00

自分で作ったJarをjrunscriptから使ってみる。
前回書いたClassとの違いはあまりないけど、1つだけ注意が必要。
クラスパスを通すとき、クラスを使う場合は、そのクラスファイルのあるフォルダを指定してパスを通してあげればよかったけど、Jarの場合は使いたいJarファイル自体のパスを引数に渡してやる必要がある。

Jarを作るところから順番に書いていく。

カレントフォルダの下に
foo
└─bar
└─My.java
があるとして

CMD > javac foo\bar\My.java
CMD > jar cvf My.jar foo\bar\*.class
マニフェストが追加されました。
foo/bar/My.class を追加中です。(入 = 446) (出 = 274)(38% 収縮されました)

CMD > jrunscript -classpath My.jar
js> var my = Packages.foo.bar.My();
js> my.setName("foo");
js> my.getName();
foo
js>

--- My.java ---

package foo.bar;
class My {
private String name;
public String getName() { return this.name; }
public void setName(String name) { this.name = name; }
public My() {
}
public My(String name) {
this.name = name;
}
}

jrunscriptで自作したClassを使ってみる

2011-11-06T21:14:00.000+09:00

自分で作ったBeansを使えれば既存のJavaコードを利用できるし、Webアプリの一部機能をバッチ化する場合に便利なので試してみた。
Javaの標準クラスを使うサンプルは多かったけど自作クラスを使うのは見当たらなかった。
いくつかのサイトを見て、どうやら使えるらしいということはわかっていたけど、どうやって使ったらいいのかよくわからなかった。
試行錯誤した結果、下の方法でなんとか使えるようになった。

jrunscriptでは自分で書いたクラスを使うには起動時に、使いたいクラスのパスを引数で渡してやる必要があるみたいだ。
jrunscript -classpath に ”.（ピリオド）” を渡すとカレントフォルダをクラスパスに指定できる。

カレントフォルダにMy.javaがあるとして、My.javaをコンパイルするところから使い方を順番に書いていく。

CMD > javac My.java
CMD > jrunscript -classpath .
js> var my = new Packages.My();
js> my.setName("foo");
js> my.getName();
foo
js> var my2 = new Packages.My("bar");
js> my2.getName();
bar
js>

--- My.java ---

class My {
private String name;
public String getName() { return this.name; }
public void setName(String name) { this.name = name; }
public My() {
}
public My(String name) {
this.name = name;
}
}

jrunscriptを試してみる

2011-11-06T20:59:00.000+09:00

WindowsでもLinuxでもSunOS（かなり古いが）でも、どこでも動くバッチが必要になったので”jrunscript”というJavaで動くJavaScriptを使ってみる。
知らなかったが、Java6からJDKに入ってるらしい。

少しだけ試してみた。

※JDKのbinフォルダにパスを通しておいたほうが楽。

■インタラクティブシェルで使う
CMD > jrunscript
js>print("Hello World!\n");
js>quit(); //終了

■ワンラインでスプリクトを実行する
CMD > jrunscript.exe -e "print('Hello World!\n');"

■スプリクトを書いたファイルを実行する
CMD > jrunscript -f helloworld.js
Hello World!

--- helloworld.js ---

print("Hello World!\n");

PowerShellでCD-ROMドライブを開閉する

2011-11-06T20:43:00.000+09:00

ドライブを開けることは知っていたけど、閉めることもできるんじゃないかと調べてみたらどうやらできるようだ。
⇒　http://thepowershellguy.com/blogs/posh/archive/2008/08/04/powershell.aspx

紹介されていたのは開閉どちらにでも使えるものだったけど、自分としては開ける、閉めるは別コマンドの方がよかったので分けてみた。
コードが重複しているけど、分けた方が使いやすいと思ったので。

--- Open-CDDrive.ps1 ---

$winnm = Add-Type -memberDefinition @"
[DllImport("winmm.dll", CharSet = CharSet.Ansi)]
public static extern int mciSendStringA(
string lpstrCommand,
string lpstrReturnString,
int uReturnLength,
IntPtr hwndCallback);
"@ -ErrorAction 'SilentlyContinue' -passthru -name mciSendString
$winnm::mciSendStringA("set cdaudio door open" ,$null ,0 ,0)

--- Closed-CDDrive.ps1 ---

$winnm = Add-Type -memberDefinition @"
[DllImport("winmm.dll", CharSet = CharSet.Ansi)]
public static extern int mciSendStringA(
string lpstrCommand,
string lpstrReturnString,
int uReturnLength,
IntPtr hwndCallback);
"@ -ErrorAction 'SilentlyContinue' -passthru -name mciSendString
$winnm::mciSendStringA("set cdaudio door closed" ,$null ,0 ,0)

VBScriptで数値を0で埋めて表示してみる

2011-10-12T23:01:00.000+09:00

VBScriptでは0埋めでフォーマットする関数は標準で用意されていないようだ。

こんな感じで書いて

Format("0000000000", 120)

0000000120

っと表示したかったけど楽にはできないみたい。

そこでちょっとしたものを書いてみた。

普通に0埋め用のフォーマットをする関数なら他でも紹介されていたので、ここではエラー処理などは無視して、関数にするほどもない、一箇所だけそんな0埋めでフォーマットをしたい人向けにした。

内容は単純で、

表示したい桁 - 数値の桁
その結果の数値をSpace関数で数値分の空白文字にする
空白文字をReplace関数を使って指定した文字に置き換える

っというのを一行でしているだけ。
VBScriptでちょっとしたバッチのために、だらだらと関数を書いたり、共通関数を外だしするのもなんだし。
小さいバッチはあっさりしてた方がメンテナンスも楽だからね。

'VBScriptで数値を0で埋めて表示する
'表示したい桁数
length = 10
'表示する数値
value = 120
'0で埋める
character = 0
'10桁表示で120を表し、空いている部分は0で埋める
result = Replace(Space(length - Len(value)) & value, Space(1), character)
WScript.Echo result ' => 0000000120

Windowsでvimのopsplorer.vimを使ってみた。

2011-10-10T20:26:00.000+09:00

vimをIDEっぽくできないかと探していると、opsplorer.vimなるものを見つけた。

vim onlineからダウンロード。リンク：opsplorer.vim
pluginフォルダにopsplorer.vimを配置。（KaoriYaのvimを使っているなら runtime/pluginの下）
vimを起動して :opsplorer

見つけたのはいいが、使ってみるも動かない。

どうやら、Windowsには対応していないようだ。

紹介サイトのスクリーンショットがMacばっかりだったからなんとなく察したけど。

他にも困っている人がいるだろうとさらに調べると対応版を作ってくれている人がいた。

mattn
opsplorer.vimをwin32でも動くようにしてみた。便利かどうかは知らない。http://gist.github.com/333696

十分に便利でありがたいです。

githubで公開されているようなのでダウンロードして、pluginフォルダにおいてみる。

起動するとうまく動いてくれたようだ。

が！

ここでちょっとした問題が・・・

フォルダの展開やファイルの選択系はWindowsに対応してくれたようだけど、コマンド系（ファイルのコピーやリネーム、削除）ができない。

ソースを見てみると、ファイルを削除しているであろう関数FileDelete()の中で呼び出してるコマンドが"rm"だった・・・

これはWindowsでは動かんだろうな。

system()関数で呼び出されるのは、たぶん、CMDのコマンドだろうからここは"del"でないといけないはず。

PowerShellを常時使ってるから、このあたりの機能はなくてもいいんだけど、連休中にやることもなかったので、vimマクロはほとんど触ったことがないけどいじってみた。

詳細は一番下にリンクを張ったコードをダウンロードして見てもらえばいいけど、外部コマンドを呼んでいるっぽいところを変更しただけ。

let i=system("rm -f ".filename)

↓

if has("win32")

let filename = substitute(filename,".*[\\/]",'','')

let i=system("del /Q ".filename)

else

let i=system("rm -f ".filename)

endif

Windowsならフォルダの区切り文字を整理して、"del"コマンドを呼ぶ。

削除、コピー、リネーム、移動を変更してみた。

大体動いているようだけど、なぜか移動だけは動かなかった。

わかる人、助けて下さいm(_ _)m

他にも困ってる人がいると思うので変更したソースを公開する。

本来はgithubを使ったほうがいいんだろうけど、アカウントを持ってないので今回はやめておく。

opsplorer.vim（Windows動く版）

Windows7のPowerShellでDVDドライブからのディスク取り出し

2011-07-18T15:44:00.007+09:00

Windows7を使い始めて、リムーバブルディスクの取り出しをやってみると動かなかったので修正。

前のようにWScript.Shellを使って

> $shell = New-Object -ComObject WScript.Shell

> $Shell.Application.NameSpace(17).ParseName('D:\').InvokeVerb("取り出し(&J)")

っとやろうとしたけどShellの下にApplication.NameSpaceってのがないらしく呼び出せなかった。

そこで調べてみるとWMPlayerの機能を呼び出しても取り出しができそうだったので、そっちでやってみた。

> $wmp = New-Object -ComObject WMPlayer.OCX.7

> $wmp.cdromCollection.Item(0).Eject()

自分の場合はドライブが1つしかないので試せないけど、複数ドライブなら”Item(0)”の部分を変えればいけると思う。

Oracle SQLでDATE型とUNIXタイムを相互に変換する

2011-05-04T00:10:00.003+09:00

SQLだけでやると一文が長くなってしまうので、頻繁に利用するなら

PL/SQLで関数を作っておいた方がいいと思う。

自分の場合は一回限りなのでSQLのみでやりたかった。

※Oracle XEで検証

-- DATE型からUNIXタイムに

select trunc(to_number(

to_date('調べたい日時を入れる', 'YYYY/MM/DD HH24:MI:SS')

- to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

) * (24 * 60 * 60)

) as unixtimestmp

from dual;

-- 例　２０１１年５月４日　午前１時２０分３０秒

select trunc(to_number(

to_date('2011/05/04 01:20:30', 'YYYY/MM/DD HH24:MI:SS')

- to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

) * (24 * 60 * 60)

) as unixtimestmp

from dual;

結果：　1304472030

-- UNIXタイムからDATE型に

-- ここではわかりやすいようにto_charで変換して出力している

select to_char((

to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

+ (調べたいUNIXタイムを入れる/ (24 * 60 * 60))

), 'YYYY/MM/DD HH24:MI:SS') as utc

from dual;

-- 例　1304472030 (２０１１年５月４日　午前１時２０分３０秒)

select to_char((

to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

+ (1304472030 / (24 * 60 * 60))

), 'YYYY/MM/DD HH24:MI:SS') as utc

from dual;

結果：　2011/05/04 01:20:30

-- 調べたいUNIXタイムが標準時で記録されていた場合

-- 日本標準時で出力したければ、９時間足す必要がある

select to_char((

to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

+ ((1304472030 + (9 * 60 * 60))/ (24 * 60 * 60))

), 'YYYY/MM/DD HH24:MI:SS') as jst

from dual;

結果：　2011/05/04 10:20:30

PowerShellで作成したフォルダに直ぐに移動（ただのメモ）

2010-12-01T22:07:00.003+09:00

フォルダを作成するとき、直ぐにそのフォルダに移動して作業をしたいことが多いと思う。

でも、フォルダが多い場所で作成すると、目的のフォルダに移動するのはなかなか時間がかかる。

特に日本語のフォルダに移動するときは、Ｔａｂを連打したり、フォルダ名の一部を入力、またはペースとして補完するなど、わりと面倒くさい。

そんな時、作成したフォルダに直ぐに移動するには、PowerShellでは以下のようにすればよい。

> mkdir "適当なフォルダ名" | cd $_

mkdirをすると、DirectoryInfoオブジェクトが返ってくるのでそれをパイプして移動する。

※単純だけど、なんとなく忘れてしまいそうなＴｉｐsなのでメモ

Pingの結果をPowerShellっぽく取得してみる

2010-11-30T21:08:00.003+09:00

PowerShellからＰｉｎｇ打つことはもちろんできるが、バッチファイルの中で利用すると結果が一々コンソールに出力されてちょっと邪魔な時がある。

バッチファイルの中で知りたいのは、そのＩＰのマシンが生きているかどうかなので、結果は「Ｔｒｕｅ」か「Ｆａｌｓｅ」で十分だ。

そこで、Ｐｉｎｇの結果をラップしてPowerShellで扱いやすいようにしてみる。

■使い方

> Get-PingResult www.google.com #成功時

Value Reply

----- -----

True {www.l.google.com [66.249.89.104]に ping を送...

> $a = Get-PingResult www.google.com #変数に入れてみる

> $a.Reply

www.l.google.com [66.249.89.104]に ping を送信しています 32 バイトのデータ:

66.249.89.104 からの応答: バイト数 =32 時間 =19ms TTL=57

66.249.89.104 からの応答: バイト数 =32 時間 =21ms TTL=57

66.249.89.104 からの応答: バイト数 =32 時間 =19ms TTL=57

66.249.89.104 からの応答: バイト数 =32 時間 =20ms TTL=57

66.249.89.104 の ping 統計:

パケット数: 送信 = 4、受信 = 4、損失 = 0 (0% の損失)、

ラウンドトリップの概算時間 (ミリ秒):

最小 = 19ms、最大 = 21ms、平均 = 19ms

> Get-PingResult www.google.coma #失敗時

Value Reply

----- -----

False ping 要求ではホスト www.google.coma が見つかり...

function Get-PingResult([String]$IP) {
　$reply = C:\Windows\System32\PING.EXE $IP
　#余分な空白行を削除する
　$reply = $reply | % { if ($_ -ne "") { $_ }}
　#上手くいったかどうかは結果の行数で判断する
　$success = 9
　$result = New-Object psobject
　if ($reply.Length -eq $success) {
　　$result | Add-Member -MemberType NoteProperty -Name "Value" -Value $true
　} else {
　　$result | Add-Member -MemberType NoteProperty -Name "Value" -Value $false
　}
　$result | Add-Member -MemberType NoteProperty -Name "Reply" -Value $reply
　return $result
}

PowerShellで文字列をバイトで区切って切り出す

2010-11-30T20:48:00.004+09:00

メールの本文を生成する場合などに、きれいにフォーマットするためスペースなどで埋めたり、文字数でカットして成形したい時がある。

ただ、PowerShellだと、半角の「ABCD」というのと、全角の「ＡＢＣＤ」はおなじ４文字としてカウントされる。

そこでVBのLeftBのようにバイト数で切り取ってみる。

■使い方

> Get-SubStringBytes "ABCD" 2 2 #半角文字を２バイト目から２バイト切り取る

> Get-SubStringBytes "ＡＢＣＤ" 2 2 #全角文字を・・・（略）

Ｂ

function Get-SubStringBytes([String]$Text, [int]$StartIndex = 0, [int]$Length = 0) {
$enc = [System.Text.Encoding]::Default
$bytes = $enc.GetBytes($Text)
return $enc.GetString($bytes, $StartIndex, $Length)
}

PowerShellでユーザー一覧に利用可能か無効を付けて出力する

2010-11-30T20:15:00.003+09:00

Windowsのサーバー管理をしていると、突然に利用しているユーザーの一覧を提出するように求められることがある。

そんな時、慌ててGUIの管理ツールからユーザー一覧をCSV形式やなんかでエクスポートすると、削除せずに無効にしているユーザーまで出力されてしまい、そのユーザーが現在利用可能かどうかなどの状態情報は出力されないので後で指摘されることがある。

そこで、現在利用可能か無効かの情報も一緒にユーザー一覧に付けて出力してみる。

> Get-WmiObject Win32_UserAccount | Select-Object -Property Status, Name, FullName, Description

Status　　　 Name　　　　　　FullName　　Description

------　　　　----　　　　　　　--------　　　-----------

Degraded 　 Administrator　　　　　　　　　コンピュータ/ドメイン...

Degraded 　Guest　　　　　　　　　　　　　　　コンピュータ/ドメイン...

OK 　　　　　ユーザー名

利用可能なユーザーは「Status」が「OK」になっている。

PowerShellでディスクトップのキャプチャを撮る

2010-10-19T20:29:00.005+09:00

わざわざキャプチャを撮るのにPowerShellを使っても仕方がないから、あまり使う機会はないかもしれない。

普通にPrintScreenキー押してMSBitmapに張り付ければいいからね。

ただ、サーバー管理なんかをしている人だと、サーバー側で現在のサーバー自身のディスクトップをキャプチャして、定期的にメールしてくるってのは、わりといいのではないかと思って作成してみた。

下のコードはコマンドを打つと、カレントフォルダに「out.jpg」ファイルができる感じです。

--- PrintScreen-Desktop.ps1 ---

param([string]$outImage = "out.jpg")
$b = New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height)
$g = [System.Drawing.Graphics]::FromImage($b)
$g.CopyFromScreen((New-Object System.Drawing.Point(0, 0)),(New-Object System.Drawing.Point(0, 0)), $b.Size)
$g.Dispose()
$b.Save((Join-Path $PWD $outImage))

PowerShellで「du」コマンド　その３

2010-10-07T21:07:00.003+09:00

【その２】の「du」だと、フルパスが長すぎるとうまく取得できない場合があるのでWSHの力を借りる。

やっていることは、カレントフォルダ内のフォルダを対象に、右クリックのプロパティで取得できるサイズをとっているだけ。

GeｔFolderのSizeを取っているだけなのであっさりと書けるのがよい。

速度も【その２】の時より早い。

簡単に計測したのでは、【13倍】の速さだった。

$fs = New-Object -ComObject Scripting.FileSystemObject

ls | % {

if ($_.PSIsContainer) {

$name = $_.name

$size = ($fs.GetFolder($_)).size / 1MB

Write-Host $name " : " $size.ToString("0.00") "MB"

}

PowerShellで「ユーザーは次回ログオン時にパスワードの変更が必要」を有効化するには

2010-06-18T23:33:00.003+09:00

サーバー管理をしていてリストにあるユーザー全員の「ユーザーは次回ログオン時にパスワードの変更が必要」を有効化しないといけなくなったので調べてみた。

手順としては、まずユーザー情報を取ってくる。

そのあと、有効化フラグである「1」を指定して反映させる。

PS> $username = ユーザーID

PS> $query "WinNT://./" + $username + ",user"

PS> $user = [ADSI]($query)

PS> $user.PasswordExpired = 1

PS> $user.SetInfo()

自分が実際にやった時には、CSVに書かれたユーザーIDをImport-CSVして一気に処理させたけどね;-)

PowerShellでダミーファイルを作る

2010-06-18T23:20:00.002+09:00

別にPowerShellでなくても普通にCMDでダミーファイルを作る時も同じだけど、

PS> fsutil.exe file createnew 1MBのダミーファイル 1048576

ファイル C:\Windows\system32\1MBのダミーファイルが作成されました

っとすると、１MBのファイルを作る事が出来る。

それをPowerShellでやると何が嬉しいかと言うと、引数に「1048576」じゃなくて「1MB」と指定しても作れるところだ。

PowerShellでは、

PS> fsutil.exe file createnew 1MBのダミーファイル (1MB)

ファイル C:\Windows\system32\1MBのダミーファイルが作成されました

っとすれば、作ることができる。これで、「１００MB」でも「1GB」でも簡単に作れそうだ。

ただ、「１MB」を括弧で囲んで「　（１MB）　」としないと、下のようにヘルプが表示されてしまう。

「１MB」が展開されずに「１MB」と文字列で渡されてしまうからだろう。

PS> fsutil.exe file createnew 1MBのダミーファイル 1MB

使用法 : fsutil file createnew <ファイル名> <長さ>

例 : fsutil file createnew C:\testfile.txt 1000

※ちなみに、Vistaだと管理者権限でPowerShellを起動しないと作れない。

PowerShellでLinuxの「du」コマンド　その２

2010-06-08T22:44:00.003+09:00

フォルダ容量を取得するくらいなら、PowerShellのコマンドレットだけでできるような気がしてたけど、実際にできたのでメモ。

っというか、前にブログを書いた時点で気付けたと思うんだけどね。まだまだだな俺。

binフォルダ以下の容量を取得ところ、「Sum」が合計

> Get-ChildItem -Path .\bin -Force -Recurse | Measure-Object -Property Length -Sum

Count : 13391

Average :

Sum : 1243746959

Maximum :

Minimum :

Property : Length

これだと、わかりにくいので、MBにする。

> Get-ChildItem -Path .\bin -Force -Recurse | Measure-Object -Property Length -Sum | ForEach-Object { $_.Sum / 1MB }

1186.12953090668

MBでもわかりにくかったのでGBで、

> Get-ChildItem -Path .\bin -Force -Recurse | Measure-Object -Property Length -Sum | ForEach-Object { $_.Sum / 1GB }

1.15832962002605

PowerShellでMACアドレスからメーカーを調べる

2010-06-01T22:50:00.006+09:00

PowerShellでMACアドレスからメーカー（ベンダー）を調べてみる。

まずは、MACアドレスを取得する。

MACアドレスの取り方はいろいろあるけど、ここでは、「nbtstat」コマンドを利用することにした。

まぁ一行であっさり書きたかっただけだけど。

--- Get-MACAddress.ps1 ---

param([string]$ip)
nbtstat -A $ip | ForEach-Object { if ( $_ -match "MAC") { $_ -replace " ","" -replace "MACアドレス=","" } }

次に、取得したMACアドレスからメーカーを調べる。

メーカーを調べるサイトは、ここを利用させてもらう。

MAC_Find- Vendor-Ethernet-Bluetooth MAC Address Lookup and Search

--- Find-MacAddressFromVendorName.ps1 ---

param([string]$macaddress)
[void]([Reflection.Assembly]::LoadWithPartialName("System.Web"))
$macaddress = [Web.HttpUtility]::UrlEncode($macaddress)
$webReq = [Net.HttpWebRequest]::Create("http://www.coffer.com/mac_find/?string=$macaddress")
$webReq.Method = "GET"
$webReq.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)"
$webRes = $webReq.GetResponse()
$sr = New-Object IO.StreamReader($webRes.GetResponseStream(), $webRes.ContentEncoding)
$content = $sr.ReadToEnd()
$sr.Close()
$webRes.Close()
$content = $content.Split("`n")
$result = $content | ForEach-Object {
if ($_ -match "table2" -and $_ -match "td") {
$_ -replace "<.*?>","" -replace "`t","" }
}
$obj = New-Object PSObject
$obj | Add-Member NoteProperty MacAddress $macaddress
$obj | Add-Member NoteProperty Vendor $result[1]
$obj

利用方法は、パスを通したところにスプリクトを保存しておいて、

> Find-MacAddressFromVendorName ( Get-MACAddress 192.168.0.1)

MacAddress 　　　　　　　　　　　Vendor

---------- 　　　　　　　　　　　　　　 ------

XX-XX-XX-XX-XX-XX　　　　　　　XXX

っといった感じ。

PowerShellでリモートPCのHDD容量を取得する

2010-05-28T23:19:00.001+09:00

　サーバーのHDD容量を、PowerShellで監視したかったので、書いてみた。

　PowerShellを使うと、わりとなんでも簡単にできるのから嬉しいが、だんだん手放せなってきているのがちょっと怖い。

$computer_name = "foo.bar.co.jp" #IPアドレスでもOK
$user_name = "administrator"
$password = ConvertTo-SecureString -String "hogehoge" -AsPlainText -Force
$credential = New-Object System.Management.Automation.PSCredential($user_name, $password)
Get-WmiObject -Class win32_logicaldisk -ComputerName $computer_name -Credential $credential

PowerShellでリモートのイベントログを取得する（その２）

2010-05-25T23:09:00.002+09:00

PowerShellでは以下のコマンドでリモートのイベントログを取得する事ができる。

> Get-EventLog -ComputerName コンピュータ名 -LogName ログ名

例えば、

> Get-EventLog -ComputerName foo.xx.co.jp -LogName application

とすると、「foo.xx.co.jp」のアプリケーションログを取得する事ができる。

でも、コンピュータ名@ドメイン名を入力するということは、DNSで名前解決できるマシンじゃないと駄目ということだ。

俺の環境では使えないか…

っと思っていたら、引数がコンピュータ名などとなっているのにもかかわらず、IPアドレスでもリモートのイベントログを取得できることが分かった。

> Get-EventLog -ComputerName 192.168.0.1 -LogName Application

だだし、指定したIPによっては以下のようなエラーとなるかもしれない。

> Get-EventLog -ComputerName 192.168.0.1 -LogName Application

Get-EventLog : 許可されていない操作を実行しようとしました。

発生場所　行:1 文字:13

+ Get-EventLog <<<< -ComputerName 192.168.0.1 -LogName Application

+ CategoryInfo : NotSpecified; (:) [Get-EventLog], UnauthorizedAccessException

+ FullyQualifiedErrorId : System.UnauthorizedAccessException,Microsoft.PowerShell.Commands. Get

EventLogCommand

そんな時は、単にそのマシンに対して権限がないだけの話なので、以下のように「net use」コマンドを利用して、管理者権限でそのIPのマシンに接続してしまえばOKだ。

> net use \\192.168.0.1 パスワード /user:administrator

あと、Get-Processも引数に -ComputerName をとるので、リモートで何台も管理している人は覚えておくと便利だと思う。

PowerShellでLinuxの「du」コマンド

2010-05-22T00:33:00.003+09:00

作ろうと思ったら、もう作っている人がいたので、メモ。

PowerShell version (sort of) of Unix’s du command

http://www.viveksharma.com/TECHLOG/archive/2008/11/24/powershell-version-sort-of-of-unixrsquos-du-command.aspx

PowerShellからLucene.netを使ってみる

2009-11-17T23:42:00.007+09:00

@ITのこの記事を見て使ってみたくなったのでさわってみた。

お試しなので単純にできるように、テキストファイル限定で中身を全文検索してファイル名を返すようにしようと思う。

まずは、DLLをダウンロードしてくる。場所は記事に書かれているところから飛べるのでそこから落としてくる。

落としてくるのは、Lucene.Netと記事の筆者が作成された日本語用のDLLがあるのでそちらも落としてる。

記事ではLucene.Net.Analysys.Ja.JapaneseAnalyereを使用しているけど、TokenStreamメソッドを使おうとすると下の例外が出て使えなかった。

"2" 個の引数を指定して "TokenStream" を呼び出し中に例外が発生しました: "保護されているメモリに読み取りまたは書き込み操作を行おうとしました。他のメモリが壊れていることが考えられます。"

発生場所行:1 文字:37

+ $tokenStream = $analyzer.TokenStream <<<< ("",$stringReader)

+ CategoryInfo : NotSpecified: (:) []、MethodInvocationException

+ FullyQualifiedErrorId : DotNetMethodTargetInvocation

できればJapaneseAnalyereを使って見たかったがしかたがない。今回はLuceneで全文検索をすることが目的なので、代わりにLucene.Net.Analysis.CJK.CJKAnalyzerの方を使う。

今度時間のある時に調べてみよう。N-gramより形態素解析の方が面白そうだからね。

Lucene.netを試してる時に、PowerShellからDLLのインナークラスの使い方がわからなかった。

「Lucene.Net.Documents.Field.Store.YES」と「Lucene.Net.Documents.Field.Index.TOKENIZED」は、ソースをみる限りでは、Lucene.Net.Documents.Fieldクラスのインナークラスみたいだけど、.（ドット）でつないだのではアクセスできなかった。

例外を出してその内容からわかった使い方は以下

[Lucene.Net.Documents.Field+Store]::YES

[Lucene.Net.Documents.Field+Index]::TOKENIZED

＋（プラス）ってなんだ??

よくわからんが、インナークラスを使う時は＋（プラス）でつなげるようだ。

一応、小さいインナークラスのDLLを作って試したけど、どうやらそうらしい。

しかし、これはildasmでDLLをみてもぱっと見わかんないな。

まぁDLLを読み込んだあとならPowerShellのTab補完が効くか効かないかで判断できるけど…in Actionに載ってたかなぁ…?

自分の試したサンプル下に貼っておく。

サンプルを実行するのに必要なDLLは下の二つなので、適当なフォルダにコピーしておく。

・Lucene.Net.dll

・Lucene.Net.Analysis.CJK.dll

そのフォルダに移動してから、サンプルをコピー＆ペーストしてPowerShellに読み込ませる。

（たぶん、単純にコピーすると行番号までついてくるのでメモ帳にでも貼って番号を削除してからコピーして貼り付ければいい）

使い方は、

インデックスフォルダとインデックスファイルのベースの作成する。

> Create-LuceneIndex -IndexPath C:\LuceneIndex

インデックスファイルに指定したファイルを追加する。インデックスに追加されるのは、ファイル名（フルパス）とテキストファイルの中身。

追加するファイルを渡す引数の型は「System.IO.FileInfo」なので、「ls」の結果を変数に詰めて渡すか。フルパスを書く必要がある。

> Add-LuceneDocument -IndexPath C:\LuceneIndex -file c:\hoge\foo.txt

検索する。ファイルのフルパスが返ってくる。

> Find-LuceneDocument -IndexPath C:\LuceneIndex -word foo

インデックスを削除する。

> Remove-LuceneDocument -IndexPath C:\LuceneIndex -file c:\hoge\foo.txt

他にも追加と削除を組み合わせて更新用の関数なんかもあれば便利だと思う。

このサンプルのままで日本語も検索できるから、あと実際の業務で使おうと思ったら、クローラとOffice系のファイルの読み込みが必要かな。

Office系のファイルの読み込みならAdd-LuceneDocument関数内の

$contents = Get-Content $file

の部分を変更して、xDoc2txtなどを使う必要があると思う。

まぁPowerShellならクローラは簡単だと思うし、拡張子を見て$contentに入れる中身を変えるのも難しくないだろう。

ちょっと長いけど、サンプル↓

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd Lucene.Net.dll))
[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd Lucene.Net.Analysis.CJK.dll))
# 元となるインデックスを作成する
function Create-LuceneIndex([string]$indexPath) {
# インデックスが存在した場合はフォルダを削除して作り直す
if (Test-Path $indexPath) {
if ([Lucene.Net.Index.IndexReader]::IndexExists($indexPath)) {
[void][System.IO.Directory]::Delete($indexPath, $true)
[void][System.IO.Directory]::CreateDirectory($indexPath)
}
}
$indexWriter = New-Object Lucene.Net.Index.IndexWriter($indexPath, ( New-Object Lucene.Net.Analysis.CJK.CJKAnalyzer ), $true)
$indexWriter.Close()
}
# インデックスにファイルを追加する
function Add-LuceneDocument([string]$indexPath, [System.IO.FileInfo]$file) {
# Documentオブジェクトの作成
$document = New-Object Lucene.Net.Documents.Document
# Fieldオブジェクトの作成
$fileName = $file.FullName
$contents = Get-Content $file
$fieldFileName = New-Object Lucene.Net.Documents.Field("filename", $fileName, [Lucene.Net.Documents.Field+Store]::YES, [Lucene.Net.Documents.Field+Index]::TOKENIZED)
$fieldContents = New-Object Lucene.Net.Documents.Field("contents", $contents, [Lucene.Net.Documents.Field+Store]::YES, [Lucene.Net.Documents.Field+Index]::TOKENIZED)
# Documentオブジェクトにフィールドを追加
$document.Add($fieldFileName)
$document.Add($fieldContents)
$indexWriter = New-Object Lucene.Net.Index.IndexWriter($indexPath, ( New-Object Lucene.Net.Analysis.CJK.CJKAnalyzer ), $false)
# インデックスにDocumentオブジェクトを追加
$indexWriter.AddDocument($document)
# インデックスを最適化する
$indexWriter.Optimize()
$indexWriter.Close()
}
# インデックスからファイルを削除する
function Remove-LuceneDocument([string]$indexPath, [System.IO.FileInfo]$file) {
# アナライザの準備
$analyzer = New-Object Lucene.Net.Analysis.CJK.CJKAnalyzer
# ファイル名を対象にクエリを作成
$queryPsr = New-Object Lucene.Net.QueryParsers.QueryParser("filename", $analyzer)
$word = $file.Name
$query = $queryPsr.Parse($word)
# インデックスからヒットするものを探す
$searcher = New-Object Lucene.Net.Search.IndexSearcher($indexPath)
$hits = $searcher.Search($query)
$target = $file.FullName
# ヒットしたものをインデックスから削除する
$indexReader = [Lucene.Net.Index.indexReader]::Open($indexPath)
for ($i = 0; $i -lt $hits.Length(); $i++) {
$doc = $hits.Doc($i)
# ファイルのフルパスと一致するものだけを削除する
if ($doc.Get("filename") -eq $target) {
$indexReader.DeleteDocument($hits.Id($i))
}
}
$indexReader.Close()
}
# インデックスから検索する
function Find-LuceneDocument([string]$indexPath, [string]$word) {
# アナライザの準備
$analyzer = New-Object Lucene.Net.Analysis.CJK.CJKAnalyzer
# ファイルの中身を対象にクエリを作成
$queryPsr = New-Object Lucene.Net.QueryParsers.QueryParser("contents", $analyzer)
$query = $queryPsr.Parse($word)
# インデックスからヒットするものを探す
$searcher = New-Object Lucene.Net.Search.IndexSearcher($indexPath)
$hits = $searcher.Search($query)
# Lucene.Net.Documents.Documentの配列を作成してヒットしたものを詰める
[Lucene.Net.Documents.Document[]]$docments = New-Object Lucene.Net.Documents.Document[]($hits.Length())
for ($i = 0; $i -lt $hits.Length(); $i++) {
$docments[$i] = $hits.Doc($i)
}
return ($docments | % { $_.Get("filename") })
}

PowerShellで動画の輪郭検出をしてみる

2009-11-14T10:32:00.001+09:00

OpenCVSharpを使用してWebカメラから動画をキャプチャーしながら輪郭検出をしてみる。
静止画と同じではつまらないので、円の中の４点を赤色にして、その４点の座標を緑の字でウィンドウ上に表示させてみる。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
$window = New-Object OpenCvSharp.CvWindow("SampleCapture")
$threshold = 128 #　白色か黒色かのしきい値
$smooth = 5 #　値が大きいほどぼかしが強い
$font = New-Object OpenCvSharp.CvFont([OpenCvSharp.FontFace]::HersheyComplex, 0.7, 0.7)
$point1 = New-Object OpenCvSharp.CvPoint(10,20)
$point25 = New-Object OpenCvSharp.CvPoint(10,45)
$point50 = New-Object OpenCvSharp.CvPoint(10,70)
$point75 = New-Object OpenCvSharp.CvPoint(10,95)
$colorString = [OpenCvSharp.CvColor]::Green
$colorPoint = [OpenCvSharp.CvColor]::Red
$colorLine = [OpenCvSharp.CvColor]::Blue
$size = New-Object OpenCvSharp.CvSize(15, 15)
#　この値が大きいほど輪郭が狭まる
$tremCriteria = New-Object OpenCvSharp.CvTermCriteria(300)
$alpha = [System.Single]0.45
$beta = [System.Single]0.35
$gamma = [System.Single]0.2
$srcSize = New-Object OpenCvSharp.CvSize($camera.FrameWidth, $camera.FrameHeight)
$srcIplImage = New-Object OpenCvSharp.IplImage( $srcSize, [OpenCvSharp.BitDepth]::U8, 1)
$dstIplImage = New-Object OpenCvSharp.IplImage( $srcSize, [OpenCvSharp.BitDepth]::U8, 1)
#　ポイントを配列で初期化　全部ゼロで初期化される
[OpenCvSharp.CvPoint[]]$contour = New-Object OpenCvSharp.CvPoint[](100)
#　ウィンドウの中心点を取得
$center = New-Object OpenCvSharp.CvPoint(($srcSize.Width / 2), ($srcSize.Height / 2))
while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
$iplImage = $camera.QueryFrame()
# 中心点を元にポイントの初期値を設定
for ($i = 0; $i -lt $contour.Length; $i++) {
$x = [int]($center.X * [System.Math]::Cos(2 * [System.Math]::PI * $i / $contour.Length) + $center.X)
$y = [int]($center.Y * [System.Math]::Sin(2 * [System.Math]::PI * $i / $contour.Length) + $center.Y)
$p = New-Object OpenCvSharp.CvPoint($x, $y)
$contour.Set($i, $p)
}
# グレースケールに変換
[OpenCvSharp.Cv]::CvtColor($iplImage, $srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
#　ぼかす
$srcIplImage.Smooth($srcIplImage, [OpenCvSharp.SmoothType]::Blur, $smooth)
# 二値化
$srcIplImage.Threshold($dstIplImage, $threshold, 255, [OpenCvSharp.ThresholdType]::Binary)
#　領域検知
$dstIplImage.SnakeImage($contour, $alpha, $beta, $gamma, $size, $tremCriteria, $true)
#　領域中の4点の座標を取得
$str1 = [String]::Format("1 : (x = {0}, y = {1})", $contour.Get(1).X, $contour.Get(1).Y)
$str25 = [String]::Format("25 : (x = {0}, y = {1})", $contour.Get(25).X, $contour.Get(25).Y)
$str50 = [String]::Format("50 : (x = {0}, y = {1})", $contour.Get(50).X, $contour.Get(50).Y)
$str75 = [String]::Format("75 : (x = {0}, y = {1})", $contour.Get(75).X, $contour.Get(75).Y)
#　ポイントを線で結んで描写
for ($i = 0; $i -lt ($contour.Length - 1); $i++) {
#　選んだ4点だけ　赤　それ以外は　青
if ($i -eq 1 -or $i -eq 25 -or $i -eq 50 -or $i -eq 75) {
$iplImage.Line($contour[$i], $contour[($i + 1)], $colorPoint, 6)
} else {
$iplImage.Line($contour[$i], $contour[($i + 1)], $colorLine, 3)
}
}
# 最初の点と最後の点を結ぶ
$iplImage.Line($contour[($contour.Length -1)], $contour[0], $colorLine, 3)
#　座標をウィンドウに描写
$iplImage.PutText($str1, $point1, $font, $colorString)
$iplImage.PutText($str25, $point25, $font, $colorString)
$iplImage.PutText($str50, $point50, $font, $colorString)
$iplImage.PutText($str75, $point75, $font, $colorString)
$window.Image = $iplImage
#　連続でループするとCPUをたくさん喰うので3秒間をあける
Start-Sleep 3
}
$iplImage.Dispose()
$srcIplImage.Dispose()
$dstIplImage.Dispose()
$window.Dispose()
$camera.Dispose()

PowerShellで静止画の輪郭検出をしてみる

2009-11-14T10:19:00.000+09:00

OpenCVSharpを使用して画像の中の輪郭？色の境界？を検出する。

処理のイメージは、画像の中心からいっぱいに一つの丸を描いて輪郭が出てくるまで徐々に狭めていく。

どれくらいまで敏感に輪郭に反応するかは、

$tremCriteria = New-Object OpenCvSharp.CvTermCriteria(270)

の値を大きくすれば、よりはっきりと囲まれる。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
#　グレースケールで読み込む
$srcIplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "src.jpg"), [OpenCvSharp.LoadMode]::GrayScale)
$dstIplImage = New-Object OpenCvSharp.IplImage($srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 3)
[OpenCvSharp.CvPoint[]]$contour = New-Object OpenCvSharp.CvPoint[] 100
#　中心点
$center = New-Object OpenCvSharp.CvPoint(($srcIplImage.Width / 2), ($srcIplImage.Height / 2))
#　全体をかこむ丸を作る
for ($i = 0; $i -lt $contour.Length; $i++) {
$contour[$i] = New-Object OpenCvSharp.CvPoint([int]($center.X * [System.Math]::Cos(2 * [System.Math]::PI * $i / $contour.Length) + $center.X), [int]($center.Y * [System.Math]::Sin(2 * [System.Math]::PI * $i / $contour.Length) + $center.Y))
}
$size = New-Object OpenCvSharp.CvSize(15, 15)
$tremCriteria = New-Object OpenCvSharp.CvTermCriteria(270)
$alpha = [System.Single]0.45
$beta = [System.Single]0.35
$gamma = [System.Single]0.2
#　輪郭を検出
$srcIplImage.SnakeImage($contour, $alpha, $beta, $gamma, $size, $tremCriteria, $true)
[OpenCvSharp.Cv]::CvtColor($srcIplImage, $dstIplImage, [OpenCvSharp.ColorConversion]::GrayToRgb)
#　赤で輪郭を描く
$color = [OpenCvSharp.CvColor]::Red
for ($i = 0; $i -lt ($contour.Length - 1); $i++) {
$dstIplImage.Line($contour[$i], $contour[($i + 1)], $color, 2)
}
$dstIplImage.Line($contour[($contour.Length -1)], $contour[0], $color, 2)
$dstIplImage.SaveImage((Join-Path $pwd "dst.jpg"))
$srcIplImage.Dispose()
$dstIplImage.Dispose()

PowerShellで動画の差分をとってみる

2009-11-13T23:15:00.001+09:00

OpenCVSharpを使用してWebカメラからキャプチャーして、差分を動画で表示する。

処理は、静止画の時とほぼ同じ。

一応より差分を分かりやすくするためにぼかしを入れている。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
# カメラの情報を取得
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
$window = New-Object OpenCvSharp.CvWindow("SampleCapture")
while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
$iplImage = $camera.QueryFrame()
$srcIplImage = New-Object OpenCvSharp.IplImage( $iplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
#　グレースケールに変換
[OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
$dstIplImage1 = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
#　ぼかし
$srcIplImage.Smooth($srcIplImage, [OpenCvSharp.SmoothType]::Blur, 5)
# 白黒に変換
$srcIplImage.Threshold($dstIplImage1, 128, 255, [OpenCvSharp.ThresholdType]::Binary)
#　差分出力先
$dstIplImage2 = New-Object OpenCvSharp.IplImage($dstIplImage1.Size, $dstIplImage1.Depth, $dstIplImage1.NChannels)
if ($tempIplImage -ne $null) {
#　差分をとる
[OpenCvSharp.Cv]::AbsDiff($dstIplImage1, $tempIplImage, $dstIplImage2)
#　差分を表示する
$window.Image = $dstIplImage2
}
#　今回の元データをTempに入れる
$tempIplImage = $dstIplImage1
}
$iplImage.Dispose()
$srcIplImage.Dispose()
$dstIplImage1.Dispose()
$dstIplImage2.Dispose()
$tempIplImage.Dispose()
$window.Dispose()
$camera.Dispose()

PowerShellで静止画の差分をとる

2009-11-13T22:16:00.003+09:00

OpenCVSharpを使用して二つの画像から差分をとって保存してみる。

同じ背景の画像を撮影して、一回目に撮ったものと二回目に撮ったものの差分をとる。

差分画像は、違う部分に色が付いていて、まったく同じ部分は黒で表示される。

ただ、それをそのまま見てもわかりにくかったので、二極化して白黒にした。

白黒にすると差分の部分だけが白くなるので見た目にわかりやすい。

ここでは、差分処理がどう動くのかを知りたかったので、差分画像を保存してから、それを読み込んで白黒にしてみた。

そのまま保存した画像と比較して見るとわかりやすいと思う。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
# 背景画像
$srcIplImage1 = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "a.jpg"))
#　背景の前に何か写した画像
$srcIplImage2 = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "b.jpg"))
#　差分出力先
$dstIplImage1 = New-Object OpenCvSharp.IplImage($srcIplImage1.Size, $srcIplImage1.Depth, $srcIplImage1.NChannels)
#　差分をとる
[OpenCvSharp.Cv]::AbsDiff($srcIplImage1, $srcIplImage2, $dstIplImage1)
# 差分の画像を保存　変わらなかったところは黒
$dstIplImage1.SaveImage((Join-Path $pwd "c.jpg"))
$srcIplImage1.Dispose()
$srcIplImage2.Dispose()
$dstIplImage1.Dispose()
#　2極化して白黒にした方がわかりやすい
#　差分の部分だけが白くなる
$srcIplImage3 = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "c.jpg"), [OpenCvSharp.LoadMode]::GrayScale)
$dstIplImage2 = New-Object OpenCvSharp.IplImage( $srcIplImage3.Size, $srcIplImage3.Depth, 1)
$srcIplImage3.Threshold($dstIplImage2, 128, 255, [OpenCvSharp.ThresholdType]::Binary)
$dstIplImage2.SaveImage((Join-Path $pwd "d.jpg"))
$srcIplImage3.Dispose()
$dstIplImage2.Dispose()

PowerShellでタスクトレイアイコンにバルーンウィンドウを表示してみる

2009-11-11T20:22:00.002+09:00

PowerShellでタスクトレイアイコンにバルーンウィンドウを表示させる。

あんまり使うことはないかもしれないけど、PowerShell 2.0からはバックグラウンドで処理を実行できるようになったので、それの終了を知らせるのには役に立つかもしれない。

下のコードを「Show-BalloonTip.ps1」という名前でパスの通ったところにおいて

> Show-BalloonTip -title ジョブ -body 処理が終了しました。 -toolTipIcon Info

っと実行する。ToolTipIconは「Info」「Warning「Error「None」の4つのアイコン（なにも表示されないのも含めて）を表示させることができる。

表示時間を1ミリ秒にしているけど、うちの環境では1ミリ秒でも長いこと表示されっぱなしになってた（笑）

-- Show-BalloonTip.ps1 --

param([int]$timeout = 1, [string]$tilte = "件名", [string]$body = "本文", [string]$toolTipIcon = "Info")
[Void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$notifyIcon = New-Object System.Windows.Forms.NotifyIcon
#　PowerShell.exeからアイコンを抽出する System.Drawing.Icon型
$powerShellExe = "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe"
$icon = [System.Drawing.Icon]::ExtractAssociatedIcon($powerShellExe)
$notifyIcon.Icon = $icon
$notifyIcon.Visible = $true
#　引数は、　表示時間（ミリ秒）　件名　本文　件名の前のアイコン（System.Windows.Forms.ToolTipIcon列挙体）
$notifyIcon.ShowBalloonTip($timeout, $tilte, $body, $toolTipIcon)

wgetの使い方メモ

2009-11-07T07:59:00.002+09:00

テキストファイルに一行毎に書かれたURLで同じフォルダ内にないファイルを三秒間隔をあけてダウンロードする。

> wget -nc -nv -w 3 -t 1 -i list.txt

たまにうまくいかない時があったので、PowerShellを使って一個づつダウンロードする場合。

> cat list.txt | % { wget $_ }

PowerShellでHTMLファイルから画像のURLを取り出す

2009-11-07T07:53:00.004+09:00

ワンライナーでできるのは便利。

なんとなく、もっと短くできそうな気がするけど、今の俺ではこの長さ。

正規表現の部分を変えれば、「zip」だけを返したりも出来る。ここでは、JPEG、GIF、PNG、BMPをマッチさせている。

抜きたかったHTMLでしかテストしてないから、上手くいかないサイトもあるかも。

Get-Content foo.html | % { if ( $_ -match "http://.*\.(jpg|jpeg|gif|png|bmp)") { $Matches.Values | % { $_.Split("`"") | % { if ($_ -match "\.(jpg|jpeg|gif|png|bmp)") { return $_ }}}}}

ついでに、某大きな掲示板用

本文に”ttp://～～～/～～～”が普通なので、最初にばっさりHTMLのタグを消してしまってから処理している。

(Get-Content foo.html) -replace "<.*?>","" | % { if ( $_ -match "ttp://.*\.(jpg|jpeg|gif|png|bmp)") { $Matches.values | % { $_.Split() | % { if ($_ -match "\.(jpg|jpeg|gif|png|bmp)") { return $_.Replace("ttp://","http://") }}}}}

PowerShellで画像の色をカウントする

2009-11-06T21:23:00.002+09:00

OpenCVSharpを使用して画像の白、黒、赤、青、緑、黄色、マゼンタ、シアン、その他の色に該当する色を数えてみる。

下のコードには、その色に該当するかについて、あそびをまったく入れていないのでほとんどが、その他の色になってしまう。

けど、今回は、白黒画像をカウントする事が目的で、白と黒だけちゃんと取れればよかっただけなのでこれで良しとする。

今度、ある程度まともな条件で取得できるようにしよう。

あと、この方法だとかなり遅いので、なにか別な取得方法がないかについても調べておこう。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
$iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"))
for ($x = 0; $x -lt $iplImage.Width; $x++) {
for ($y = 0; $y -lt $iplImage.Height; $y++) {
# CvColor型にキャスト
$cvColor = [OpenCvSharp.CvColor]$iplImage.Get2D($y, $x)
$count++
switch ($cvColor) {
{$_ -eq [OpenCvSharp.CvColor]::White} {
$white++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Black} {
$black++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Red} {
$red++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Blue} {
$blue++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Green} {
$green++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Yellow} {
$yellow++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Magenta} {
$magenta++
break
}
{$_ -eq [OpenCvSharp.CvColor]::Cyan} {
$cyan++
break
}
default {
$other++
}
}
}
}
Write-Host White = ($white / $count).ToString("00.0%")
Write-Host Black = ($black / $count).ToString("00.0%")
Write-Host Red = ($red / $count).ToString("00.0%")
Write-Host Blue = ($blue / $count).ToString("00.0%")
Write-Host Green = ($green / $count).ToString("00.0%")
Write-Host Yellow = ($yellow / $count).ToString("00.0%")
Write-Host Magenta = ($magenta / $count).ToString("00.0%")
Write-Host Cyan = ($cyan / $count).ToString("00.0%")
Write-Host Other = ($other / $count).ToString("00.0%")
$iplImage.Dispose()

PowerShellで動画を白黒でキャプチャー

2009-10-31T10:55:00.001+09:00

OpenCVSharpを使用して、動画を白黒でキャプチャーする。

グレースケールの時と同じで、読み込む→グレースケールに変換→白黒に変換の順に行う。

最後に変換したものをウィンドウに表示させる。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
# カメラの情報を取得
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
$window = New-Object OpenCvSharp.CvWindow("SampleCapture")
$threshold = 128 #　白色か黒色かのしきい値
while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
$iplImage = $camera.QueryFrame()
$srcIplImage = New-Object OpenCvSharp.IplImage( $iplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
#　グレースケールに変換
[OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
$dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
# 白黒に変換
$srcIplImage.Threshold($dstIplImage, $threshold, 255, [OpenCvSharp.ThresholdType]::Binary)
$window.Image = $dstIplImage
}
$iplImage.Dispose()
$srcIplImage.Dispose()
$dstIplImage.Dispose()
$window.Dispose()
$camera.Dispose()

PowerShellで動画をグレースケールでキャプチャー

2009-10-31T10:52:00.001+09:00

OpenCVSharpを使用して、動画をグレースケールでキャプチャーする。

静止画をグレースケールにするのと同じ方法で、一度、IplImage型でWebカメラの映像を読み込んでからグレースケールに変換し、変換したものをウィンドウに表示させる。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
# カメラの情報を取得
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
$window = New-Object OpenCvSharp.CvWindow("SampleCapture")
while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
$srcIplImage = $camera.QueryFrame()
$dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
#　グレースケールに変換
[OpenCvSharp.Cv]::CvtColor($srcIplImage,$dstIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
$window.Image = $dstIplImage
}
$srcIplImage.Dispose()
$dstIplImage.Dispose()
$window.Dispose()
$camera.Dispose()

PowerShellで動画の顔検出をしてみる

2009-10-29T20:04:00.001+09:00

OpenCvSharpを使用して、Webカメラでキャプチャーしながら顔検出をしてみる。

基本的には静止画の時と同じで、その部分のコードを動画のキャプチャーに埋め込んだだけ。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
#顔を検出するためにHaar分類器のカスケードを用いる
$color = [OpenCvSharp.CvColor]::Red
$scale = 1.04;
$scaleFactor = 1.139;
$minNeighbors = 2;
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
$window = New-Object OpenCvSharp.CvWindow("SampleCapture")
$srcWidth = $camera.FrameWidth
$srcHeight = $camera.FrameHeight
$srcSize = New-Object OpenCvSharp.CvSize([int]$srcWidth, [int]$srcHeight)
$srcIplImage = New-Object OpenCvSharp.IplImage( $srcSize, [OpenCvSharp.BitDepth]::U8, 1)
$dstWidth = $camera.FrameWidth / $scale
$dstHeight = $camera.FrameHeight / $scale
$dstSize = New-Object OpenCvSharp.CvSize([int]$dstWidth, [int]$dstHeight)
$dstIplImage = New-Object OpenCvSharp.IplImage( $dstSize, [OpenCvSharp.BitDepth]::U8, 1)
while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
$iplImage = $camera.QueryFrame()
#顔検出用の画像の生成
[OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
[OpenCvSharp.Cv]::Resize($srcIplImage, $dstIplImage, [OpenCvSharp.Interpolation]::Linear)
[OpenCvSharp.Cv]::EqualizeHist($dstIplImage,$dstIplImage)
$cascade = [OpenCvSharp.CvHaarClassifierCascade]::FromFile((Join-Path $pwd "haarcascade_frontalface_alt.xml"))
$storage = New-Object OpenCvSharp.CvMemStorage
$storage.Clear()
# 顔の検出
$faces = [OpenCvSharp.Cv]::HaarDetectObjects($dstIplImage, $cascade, $storage, $scaleFactor, $minNeighbors, 0, (New-Object OpenCvSharp.CvSize(30, 30)));
Write-Host $faces.Total
# 検出された全ての顔位置に四角い枠を描画する
for ($i = 0; $i -lt $faces.Total; $i++) {
$r = $faces[$i].Rect
$pt1 = New-Object OpenCvSharp.CvPoint($r.x, $r.y)
$pt2 = new-object OpenCvSharp.CvPoint(($r.x + $r.Width),($r.y + $r.Height ))
$iplImage.Rectangle($pt1, $pt2, $color,　3, 8, 0)
}
# 丸で囲む
# for ($i = 0; $i -lt $faces.Total; $i++) {
# $r = $faces[$i].Rect
# $X = [OpenCvSharp.Cv]::Round(($r.X + $r.Width * 0.5) * $Scale)
# $Y = [OpenCvSharp.Cv]::Round(($r.Y + $r.Height * 0.5) * $Scale)
# $center = New-Object OpenCvSharp.CvPoint($X, $Y)
# $radius = [OpenCvSharp.Cv]::Round(($r.Width + $r.Height) * 0.25 * $Scale)
# $iplImage.Circle($center, $radius, $color, 3, [OpenCvSharp.LineType]::AntiAlias, 0)
# }
# ウィンドウに表示
$window.Image = $iplImage
}
$srcIplImage.Dispose()
$dstIplImage.Dispose()
$iplImage.Dispose()
$window.Dispose()
$camera.Dispose()

PowerShellで画像のRGBを調べてみる

2009-10-27T22:47:00.000+09:00

OpenCVSharpを使用して画像のRGBを調べてみる。

下のコードは読み込んだ画像の1ピクセル？づつのRGB情報を順番に出力していくもの。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
$iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo1.jpg"))
for ($x = 0; $x -lt $iplImage.Width; $x++) {
for ($y = 0; $y -lt $iplImage.Height; $y++) {
$cvColor = [OpenCvSharp.CvColor]$iplImage.Get2D($y, $x)
$line = [String]::Format("x = {0:000}, y = {1:000} : R = {2:000}, G = {3:000}, B = {4:000}", $x, $y, $cvColor.R, $cvColor.G, $cvColor.B)
Write-Host $line
}
}
$iplImage.Dispose()

PowerShellで静止画の顔検出をしてみる

2009-10-26T20:58:00.003+09:00

OpenCvSharpを使用して、画像から顔を検出してみる。

顔があったらその周りを赤色の四角い枠で囲む。

顔検出には数千枚の画像ファイルから機械学習を行って、人間の顔とは？ってのを修めたデータが必要らしい…

でも、それをやるには時間がかかりすぎるので、Sampleに入っている学習済みのデータ「haarcascade_frontalface_alt.xml」を使用させてもらう。

利用させてもらっておいてどうかとは思うが、試したデータでは今一だった。

どうも余計なものまで顔と認識して検出してくる。もちろん、顔も検出してくれるからいいんだけどね。

いつものDLLと「haarcascade_frontalface_alt.xml」を同じフォルダーにコピーして、検出した元画像を「foo.jpg」として下のコードを実行する。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
#　元データ
$iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"))
$color = [OpenCvSharp.CvColor]::Red
$scale = 1.04;
$scaleFactor = 1.139;
$minNeighbors = 2;
$srcWidth = $iplImage.Width
$srcHeight = $iplImage.Height
$srcSize = New-Object OpenCvSharp.CvSize([int]$srcWidth, [int]$srcHeight)
$srcIplImage = New-Object OpenCvSharp.IplImage( $srcSize, [OpenCvSharp.BitDepth]::U8, 1)
$dstWidth = $iplImage.Width / $scale
$dstHeight = $iplImage.Height / $scale
$dstSize = New-Object OpenCvSharp.CvSize([int]$dstWidth, [int]$dstHeight)
$dst1IplImage = New-Object OpenCvSharp.IplImage( $dstSize, [OpenCvSharp.BitDepth]::U8, 1)
#　顔検出用の画像の生成
[OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
[OpenCvSharp.Cv]::Resize($srcIplImage, $dst1IplImage, [OpenCvSharp.Interpolation]::Linear)
[OpenCvSharp.Cv]::EqualizeHist($dst1IplImage,$dst1IplImage)
$cascade = [OpenCvSharp.CvHaarClassifierCascade]::FromFile((Join-Path $pwd "haarcascade_frontalface_alt.xml"))
$storage = New-Object OpenCvSharp.CvMemStorage
$storage.Clear()
#　顔の検出
$faces = [OpenCvSharp.Cv]::HaarDetectObjects($dst1IplImage, $cascade, $storage, $scaleFactor, $minNeighbors, 0, (New-Object OpenCvSharp.CvSize(30, 30)));
# 検出された全ての顔位置に四角い枠で囲む
for ($i = 0; $i -lt $faces.Total; $i++) {
$r = $faces[$i].Rect
$pt1 = New-Object OpenCvSharp.CvPoint($r.x, $r.y)
$pt2 = new-object OpenCvSharp.CvPoint(($r.x + $r.Width),($r.y + $r.Height ))
$iplImage.Rectangle($pt1, $pt2, $color,　3, 8, 0)
}
# 丸で囲いたい場合はこっち
#for ($i = 0; $i -lt $faces.Total; $i++) {
# $r = $faces[$i].Rect
# $X = [OpenCvSharp.Cv]::Round(($r.X + $r.Width * 0.5) * $Scale)
# $Y = [OpenCvSharp.Cv]::Round(($r.Y + $r.Height * 0.5) * $Scale)
# $center = New-Object OpenCvSharp.CvPoint($X, $Y)
# $radius = [OpenCvSharp.Cv]::Round(($r.Width + $r.Height) * 0.25 * $Scale)
# $iplImage.Circle($center, $radius, $color, 3, [OpenCvSharp.LineType]::AntiAlias, 0)
#}
#　赤枠で囲ったデータを保存する
$iplImage.SaveImage((Join-Path $pwd "bar.jpg"))
$iplImage.Dispose()
$srcIplImage.Dispose()
$dst1IplImage.Dispose()

PowerShellで画像を白黒に変換する

2009-10-19T21:38:00.002+09:00

OpenCVSharpを使って画像を白黒（２値化）する。

最初にグレースケールにしておいて、しきい値以下だったら白色、以上だったら黒色の二色の画像にする。

少しぼかした方が、白い部分と黒い部分が分かれるのでいいかもしれない。

ぼかさないと、ノイズが多い感じになる。

サンプルはぼかし無しで、ぼかしの部分はコメントアウトしてある。

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
#　グレースケールで読み込む
$srcIplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"), [OpenCvSharp.LoadMode]::GrayScale)
#　ソース画像と同じサイズのグレースケールで初期化する
$dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
#　画像をすこしぼかすした方がいいかも
#$smooth = 5
#$srcIplImage.Smooth($srcIplImage, [OpenCvSharp.SmoothType]::Gaussian, $smooth)
$threshold = 128 #　白色か黒色かのしきい値
$srcIplImage.Threshold($dstIplImage, $threshold, 255, [OpenCvSharp.ThresholdType]::Binary)
$dstIplImage.SaveImage((Join-Path $pwd "bar.jpg"))
$srcIplImage.Dispose()
$dstIplImage.Dispose()

PowerShellで画像をグレースケールに変換する

2009-10-18T22:38:00.001+09:00

OpenCVSharpを使って画像をグレースケールにする。

グレースケールにする方法は下記の二つ。

①画像を読み込む時にグレースケールで読み込む方法。

②OpenCvSharp.IplImageオブジェクトを減色する方法。

①の方法だと一度ファイルに保存する必要があるので、Webカメラでキャプチャーしながらの解析には向かない。その時は、②を使えばいい。

まずは、①のコード

[void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
#グレースケールで読み込む
$iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"), [OpenCvSharp.LoadMode]::GrayScale)
$iplImage.SaveImage((Join-Path $pwd "bar.jpg"))
$iplImage.Dispose()

続いて、②のコード

[void][System.Reflection.Assembly]::LoadFrom(( Join-Path $pwd OpenCvSharp.dll))
#グレースケールに変換
$srcIplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"))
$dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
[OpenCvSharp.Cv]::CvtColor($srcIplImage,$dstIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
$dstIplImage.SaveImage((Join-Path $pwd "bar.jpg"))
$srcIplImage.Dispose()
$dstIplImage.Dispose()

PowerShellで画像をぼかす

2009-10-17T21:07:00.001+09:00

OpenCVSharpを使って画像をぼかす（平滑化する）。

たぶん、一部だけぼかすこともできるとは思うけど、やり方がわからないので、まずは全体をぼかす。

ぼかし方は五種類、OpenCvSharp.SmoothTypeで定義されている。

・　BlurNoScale

・　Blur

・　Gaussian

・　Median

・　Bilateral

そのうちの一つ「Bilateral」は例がでて使えなかった。

以下、コード

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
$smooth = 5 #　ぼかし率？値が大きいほどぼかしが強い
#　強い光を当てたみたいな画像になった
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
$iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::BlurNoScale, $smooth)
$iplImage.SaveImage((Join-Path $pwd "BlurNoScale.jpg"))
$iplImage.Dispose()
#　全体的にぼゃ～って感じ
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
$iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Blur, $smooth)
$iplImage.SaveImage((Join-Path $pwd "Blur.jpg"))
$iplImage.Dispose()
#　全体的にぼゃっとしてるけどBlurよりははっきり
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
$iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Gaussian, $smooth)
$iplImage.SaveImage((Join-Path $pwd "Gaussian.jpg"))
$iplImage.Dispose()
#　油絵みたい
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
$iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Median, $smooth)
$iplImage.SaveImage((Join-Path $pwd "Median.jpg"))
$iplImage.Dispose()
#ぼかし方（平滑化）をBilateralにすると例外が発生してうまくいかない
#$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
#$iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Bilateral, $smooth)
#$iplImage.SaveImage((Join-Path $pwd "Bilateral.jpg"))
#$iplImage.Dispose()

PowerShellで画像を回転させる

2009-10-17T02:13:00.002+09:00

OpenCVSharpを使って画像を回転したり反転したりしてみる。

OpenCvSharp.Cv.Flip()メソッドを使って、X軸かY軸か両軸で画像を反転させれる。

以下、コード

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
#画像を左右を入れ替える
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg")　)
[OpenCvSharp.Cv]::Flip($iplImage, $iplImage, [OpenCvSharp.FlipMode]::Y )
$iplImage.SaveImage((Join-Path $pwd "bar1.jpg"))
$iplImage.Dispose()
#画像を180度回転させる
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg")　)
[OpenCvSharp.Cv]::Flip($iplImage, $iplImage, [OpenCvSharp.FlipMode]::XY )
$iplImage.SaveImage((Join-Path $pwd "bar2.jpg"))
$iplImage.Dispose()
#画像を左右を入れ替えて180度回転させる
$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg")　)
[OpenCvSharp.Cv]::Flip($iplImage, $iplImage, [OpenCvSharp.FlipMode]::X )
$iplImage.SaveImage((Join-Path $pwd "bar3.jpg"))
$iplImage.Dispose()

PowerShellで動画を再生する

2009-10-15T20:31:00.001+09:00

前回保存した動画ファイルをOpenCVSharpを使って再生する。

今回も下記の５個のDLLが必要になるので、同じフォルダにコピーしておく。

・cv200.dll

・cxcore200.dll

・highgui200.dll

・opencv_ffmpeg200.dll

・OpenCvSharp.dll

Webカメラの映像を表示するのとあまり違いはなくて、単に読み込む対象がWebカメラからファイルに変えるだけで再生を行うことができる。

では、実際のコード

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
#　同じフォルダにある「foo.avi」を読み込む
$aviFile = [OpenCvSharp.CvCapture]::FromFile( (Join-Path $pwd "foo.avi") )
$window = New-Object OpenCvSharp.CvWindow("SamplePlayer")
#読み込んだファイルのフレーム数分だけ再生したら終了する
0..$aviFile.FrameCount | % {
[OpenCvSharp.CvWindow]::WaitKey(10)
$window.Image = $aviFile.QueryFrame()
}
$window.Dispose()
$aviFile.Dispose()

PowerShellでWebカメラの映像を保存する

2009-10-14T21:12:00.002+09:00

OpenCVSharpを使ってWebカメラの映像を動画ファイルで保存してみる。

動画の保存は、OpenCVSharpのサンプルで「VideoWriter.cs」というのがあるのでそれを参考にする。

今回は、OpenCVSharpとサンプルに入っている下記の５個のDLLが必要になる。

・cv200.dll

・cxcore200.dll

・highgui200.dll

・opencv_ffmpeg200.dll

・OpenCvSharp.dll

これらのDLLを同じフォルダにコピーしておく。

サンプルでは200フレーム分を保存している。

実際のコードは以下

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
$size = New-Object OpenCvSharp.CvSize($camera.FrameWidth, $camera.FrameHeight)
#　「foo.avi」で保存する
$videoWriter = New-Object OpenCvSharp.CvVideoWriter("foo.avi","XVID", 15, $size)
$font = New-Object OpenCvSharp.CvFont([OpenCvSharp.FontFace]::HersheyComplex, 0.7, 0.7)
$point = New-Object OpenCvSharp.CvPoint(10,20)
$color = New-Object OpenCvSharp.CvColor(0,255,100)
#　(1) 画面に表示しなくてよければ、必要ない
$window = New-Object OpenCvSharp.CvWindow("Capture", [OpenCvSharp.WindowMode]::AutoSize)
#　200フレーム分キャプチャーする
1..200 | % {
[OpenCvSharp.CvWindow]::WaitKey(10)
$frame = $camera.QueryFrame()
$str = [String]::Format("{0}[frame]",$_)
#　左上に緑色でフレーム数が表示される
$frame.PutText($str, $point, $font, $color)
$videoWriter.WriteFrame($frame)
$window.ShowImage($frame) #　(1)
}
$frame.Dispose()
$window.Dispose() #　(1)
$videoWriter.Dispose()
$camera.Dispose()

PowerShellからWebカメラを使って静止画をキャプチャーする

2009-10-14T01:09:00.003+09:00

OpenCVSharpを使って、WebカメラでJpeg形式の静止画を撮影する。

まずは、前回、前々回と同じようにDLLを同じフォルダに置いておく。

今回は、コマンドラインから直接入力してもOK。

（.ps1ファイルにした方が楽だろうけど…）

動作としては、Webカメラの映像を取得して、20フレーム目を静止画として保存している。

ここでは、「foo.jpg」という名前で同じフォルダに保存している。

実際のコードは以下

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
#　Webカメラを取得する。
$camera = [OpenCvSharp.CvCapture]::FromCamera(0)
# 撮影する静止画のサイズを指定する。
# デフォルトサイズ？でよければ、指定しなくてもいい。
$camera.FrameWidth = 640
$camera.FrameHeight = 480
#　起動して直ぐのは、真っ白だったり、暗かったりするから、20フレームくらい撮る。
#　戻り値は　OpenCvSharp.IplImage型
1..20 | % { $iplImage = $camera.QueryFrame() }
# OpenCvSharp.IplImage型をSystem.Drawing.Bitmap型へ変換する
$bmp = [OpenCvSharp.BitmapConverter]::ToBitmap($iplImage)
#　Jpegで保存する。
$bmp.Save((Join-Path $pwd "foo.jpg"), [System.Drawing.Imaging.ImageFormat]::Jpeg)
$bmp.Dispose()
$iplImage.Dispose()

PowerShellからWebカメラを使ってみる

2009-10-10T15:24:00.005+09:00

OpenCVSharpを使用して、Webカメラの映像を表示させてみる。

Sampleの中に「CaptureCamera.cs」っというのがあるので、それをPowerShellで書く。

前回と同じように、同じフォルダにDLLを置いてから下のコードを実行する。

PowerShellで直接コードを入力しても動かない（理由がわからないけど…）ので、ファイルに保存してから実行する。

実行するとウィンドウにカメラの映像が表示される。終了する時は、右上の×をクリックしても終わらないので、アクティブな状態にしておいてキーボードの「q」を押すと終了できる。

-- CaptureCamera.ps1 --

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
$cap = [OpenCvSharp.CvCapture]::FromCamera(0)
$w = New-Object OpenCvSharp.CvWindow("SampleCapture")
while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
$w.Image = $cap.QueryFrame()
}

PowerShellからOpenCVSharpを使ってみる

2009-10-09T22:58:00.004+09:00

PowerShellで画像処理なるものをやってみたいので、まずはここを参考にOpenCVSharpを使ってみる。

なにはともあれ、DLLが必要なのでOpenCVSharpのダウンロードページから下の2つを落としてくる。

・OpenCvSharp-Jp-2.0-20091007.zip

・Sample-2.0-20091007.zip

どちらも、展開して今回必要な4つのDLLを適当なフォルダにコピーする。

[Sampleの方に入っているOpenCVのDLL]

・cv200.dll

・cxcore200.dll

・highgui200.dll

[OpenCVSharpの方に入っているDLL]

・OpenCvSharp.dll

コピーしたフォルダに移動して下のコードを実行する。

小さなウィンドウが表示されればOK。

[void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
$size = New-Object OpenCvSharp.CvSize(128, 128)
$img = [OpenCvSharp.Cv]::CreateImage($size, [OpenCvSharp.BitDepth]::U8, 1)
for ($y = 0; $y -lt $img.Height; $y++) {
for ($x = 0; $x -lt $img.Width; $x++) {
[OpenCvSharp.Cv]::Set2D($img, $y, $x, $x + $y)
}
}
[OpenCvSharp.Cv]::NamedWindow("window")
[OpenCvSharp.Cv]::ShowImage("window", $img)
[OpenCvSharp.Cv]::WaitKey()
[OpenCvSharp.Cv]::DestroyWindow("window")
[OpenCvSharp.Cv]::ReleaseImage($img)

PowerShellで8.3形式の短いファイル名を取得する

2009-10-01T23:03:00.000+09:00

短いファイル名を取得するには、kernel32.dllのGetShortPathNameメソッドを呼べばわかるんだけど、それをPowerShellからやると面倒そうなので、Scripting.FileSystemObjectを利用してみる。

ここでは、Excelの実行ファイルを取得してみる。

> $fso = New-Object -comObject Scripting.FileSystemObject
> $fso.GetFile("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")

Path : C:\Program Files\Microsoft Office\Office12\EXCEL.EXE
Name : EXCEL.EXE
ShortPath : C:\PROGRA~1\MICROS~2\Office12\EXCEL.EXE
ShortName : EXCEL.EXE
Drive : System.__ComObject
ParentFolder : System.__ComObject
Attributes : 32
DateCreated : 2009/05/04 8:40:04
DateLastModified : 2009/05/04 8:40:04
DateLastAccessed : 2009/06/11 7:18:21
Size : 18333536
Type : アプリケーション

> ($fso.GetFile("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")).ShortPath

C:\PROGRA~1\MICROS~2\Office12\EXCEL.EXE

短いファイル名を取得したかった理由はレジストリに設定するためだったのでこれで十分いけそうだ。

VBScriptでネットワークドライブを使う

2009-10-01T22:40:00.002+09:00

ドライブ名を”なし”で使いたかったので、MapNetworkDriveメソッドの最初の引数は空にする。

Dim objNet
Set objNet = WScript.CreateObject("WScript.Network")
objNet.MapNetworkDrive "", "\\ServerName", True, "UserName", "Password"

切断するのはRemoveNetworkDriveメソッドで行う。

objNet.RemoveNetworkDrive "\\ServerName", True, True

PowerShellで漢字をカタカナに変換する

2009-06-24T21:17:00.003+09:00

漢字をひらがなやカタカナに変換したくなったので調べてみた。

簡単に変換するにはExcelのルビを振る関数でPhonetic関数を使うのが簡単そうだ。

ただし、「あぁアｱＡａAa1」を変換すると全部全角の「アァアアＡａＡａ１」になってしまうので注意。

--- ConvertTo-KanjiFromKatakana.ps1 ---

function global:ConvertTo-KanjiFromKatakana([string]$word) {
$excel = New-Object -comObject Excel.Application
$result = $excel.GetPhonetic($word)
#Excel COM Objectを解放
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
return $result
}

C#でエクスプローラーで表示されるファイルの並び順と同じにソートしてみる

2009-06-20T02:23:00.004+09:00

必要があったのでメモ。

IComparerを使ってArray.Sort()でソートする。

使い方は、


string[] list = { "01.txt", "1.txt", "02.txt" }
Array.Sort(list, new ExplorerSortComparer());

こんな感じ
--- ExplorerSortComparer Class ---


public class ExplorerSortComparer : IComparer {
    [DllImport("shlwapi.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
    public static extern int StrCmpLogicalW(string str1, string str2);

    public int Compare(object obj1, object obj2) {
        return StrCmpLogicalW((string)obj1, (string)obj2));
    }
}

VBScriptでゴミ箱のファイルを削除してみる

2009-06-20T01:27:00.009+09:00

PowerShellではできたので、VBScriptで指定日以前にごみ箱に捨てたファイルを削除してみる。

PowerShellがもっと流行れば、VBScriptから逃げられるんだけど…その日はまだ遠そうだ。

※ごみ箱の中のフォルダを消そうとすると「実行時エラー：・・・」となるので一度Tempフォルダに移動してからcmdのrmdirで消している。

３日前に削除したファイルをけすなら、ｃｍｄなどから

> CScript /nologo DeleteGarbabeFiles.vbs /Date:3

とする。

/Date:3　をつけなければ、一週間前までのを削除する。

--- DeleteGarbabeFiles.vbs ---


If WScript.Arguments.Named("Date") = "" Then
  nDays = 6
Else
  nDays = Int(WScript.Arguments.Named("Date"))
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set WshShell = CreateObject("WScript.Shell")
Set trash = objShell.NameSpace(10)

For Each item in trash.Items()
  If Int(Now() - CDate(trash.GetDetailsOf(item, 2))) >= nDays Then
    If objFSO.FileExists(item.Path) Then
      objFSO.DeleteFile item.Path
    ElseIf objFSO.FolderExists(item.Path) Then
      dustFolderPath = objFSO.GetSpecialFolder(2).Path & "_TempDeleteFolder"
      objFSO.MoveFolder item.Path, dustFolderPath
      delCommand = "cmd.exe /C rmdir /S /Q " & """" & dustFolderPath & """" 
      WshShell.Run delCommand, 0, true
    End If
  End If
Next

Set objFSO = Nothing
Set objShell = Nothing
Set WshShell = Nothing
Set trash = Nothing

PowerShellから新しいウィンドウのPowerShellを開く

2009-06-16T21:30:00.002+09:00

PowerShellから新しいウィンドウのPowerShellを開くには、WScript.Shellを使う。

> $WShell = New-Object -comObject WScript.Shell

> $posh = "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe"

> [void]$WShell.Run($posh , 1)

これを「New-PowerShellWindow.ps1」とかにしてパスの通ったところに置いておけば、キーボードだけでやりたい人には使えるかもしれない。

PowerShellで半角カタカナを全角カタカナに変換してみる

2009-04-27T20:39:00.012+09:00

必要になったので…

使い方:
> ConvertTo-HankakukatakanaFromZenkakukatakana "ﾃﾞｼﾞﾀﾙﾊｲﾋﾞｼﾞｮﾝﾃﾚﾋﾞ"

--- ConvertTo-HankakukatakanaFromZenkakukatakana.ps1 ---

function ConvertTo-HankakukatakanaFromZenkakukatakana([string]$value) {
$zenkakukatakana = "アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン゛゜ァィゥェォャュョッ"
$hanakakukatakana = "ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝﾞﾟｧｨｩｪｫｬｭｮｯ"
$dakutenZenkakukatakana = "ガギグゲゴザジズゼゾダヂヅデドバビブベボ"
$dakutenHankakukatakana = "ｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾊﾋﾌﾍﾎ"
$handakutenZenkakukatakana = "パピプペポ"
$handakutenHankakukatakana = "ﾊﾋﾌﾍﾎ"
for ($i = 0; $i -lt $dakutenZenkakukatakana.Length;$i++) {
$value = $value.Replace($dakutenHankakukatakana[$i] + "ﾞ", $dakutenZenkakukatakana[$i])
}
for ($i = 0; $i -lt $handakutenZenkakukatakana.Length; $i++) {
$value = $value.Replace($handakutenHankakukatakana[$i] + "ﾟ", $handakutenZenkakukatakana[$i])
}
for ($i = 0; $i -lt $zenkakukatakana.Length; $i++) {
$value = $value.Replace($hanakakukatakana[$i], $zenkakukatakana[$i])
}
return $value
}

PowerShellでゴミ箱を操作するには

2009-03-18T21:46:00.000+09:00

まずは、準備。

> $shell = New-Object -comObject Shell.Application

> $shell.NameSpace(10)

Title : ごみ箱

Application : System.__ComObject

Parent :

ParentFolder : System.__ComObject

Self : System.__ComObject

OfflineStatus :

HaveToShowWebViewBarricade : False

ShowWebViewBarricade : False

ゴミ箱の中のファイル数を取得する。

> $shell.NameSpace(10).Items().Count

ごみ箱の中のファイル名の一覧を取得する。

> $shell.NameSpace(10).Items() | % { $_.Name }

新規 Microsoft Office Word 文書.docx

新しいテキストドキュメント.txt

新規 Microsoft Office Excel ワークシート.xlsx

一つ目のファイルの情報を取得する。ここでは、$itemに入れている。

> $item = $shell.NameSpace(10).Items().Item(0)

> $item

Application : System.__ComObject

Parent : System.__ComObject

Name : 新規 Microsoft Office Word 文書.docx

Path : C:\$Recycle.Bin\S-1-5-21-2464054850-802308169-2795062852-1001\$R95HRWN.docx

GetLink :

GetFolder : System.__ComObject

IsLink : False

IsFolder : False

IsFileSystem : True

IsBrowsable : False

ModifyDate : 2009/03/18 21:07:06

Size : 0

Type : Microsoft Office Word 文書

上記だけでは、ファイル自身の情報が今一わからないのでGetDetailsOfを使ってもっと細かい情報を取得する。

GetDetailsOfで取得できる情報は、ごみ箱を開いた時に表示される列の順なので、0から順に9列目まで取得する。

> 0..8 | % { $shell.NameSpace(10).GetDetailsOf( $item, $_ ) }

新規 Microsoft Office Word 文書.docx

C:\Test

2009/ 03/ 18 21:07

0 バイト

Microsoft Office Word 文書

2009/ 03/ 18 21:07

ゴミ箱からファイルを削除する。

> Remove-Item $item.Path

指定したファイルを元に戻す、元の場所じゃなくてもいいけど。

> Move-Item $item.Path ( Join-Path $shell.NameSpace(10).GetDetailsOf( $item, 1 ) $item.Name )

PowerShellでPDFのサイズを取得する。

2009-03-04T22:00:00.008+09:00

PDFの扱うために、iTextSharpからitextsharp-4.1.2-dll.zipを落としてくる。

itextsharp.dllが入っているので適当な場所に配置する。

PowerShellからitextsharp.dllのあるフォルダでDLLを読み込む。

> [System.Reflection.Assembly]::LoadFrom(( Join-Path $pwd itextsharp.dll))

GAC Version Location

--- ------- --------

False v1.1.4322 C:\itextsharp-4.1.2-dll\itextsharp.dll

これで準備ができたので、PdfReaderを使ってサイズを取得したいPDFファイルを読み込む。

> $pdfReader = New-Object　iTextSharp.text.pdf.PdfReader(( Join-Path $pwd foo.pdf))

１ページめのサイズを取得する。

> $pdfReader.GetPageSize(1)

Type : 30

Chunks : {}

Top : 841.875

Border : -1

GrayFill : 0

Left : 0

Right : 595.275

Bottom : 0

BorderColorBottom :

BorderColorTop :

BorderColorLeft :

BorderColorRight :

Width : 595.275

Height : 841.875

BorderWidth : -1

BorderColor :

BackgroundColor :

Rotation : 0

BorderWidthLeft : -1

BorderWidthRight : -1

BorderWidthTop : -1

BorderWidthBottom : -1

UseVariableBorders : False

このファイルのページサイズは、

>$pdfReader.GetPageSize(1).Height #高さ

841.875

>$pdfReader.GetPageSize(1).Width #幅

595.275

このファイルはA4縦なわけだけど、数字だけみてもわからないのでiTextSharpで定義されているA4縦と比較する。

定義されているA4縦はこれでわかる。

> [ITextSharp.text.PageSize]::A4

Top :

Border :

GrayFill :

Left :

Right :

Bottom :

BorderColorBottom :

BorderColorTop :

BorderColorLeft :

BorderColorRight :

BorderWidth :

BorderColor :

BackgroundColor :

BorderWidthLeft :

BorderWidthRight :

BorderWidthTop :

BorderWidthBottom :

UseVariableBorders :

Type : 30

Chunks : {}

Width : 595

Height : 842

Rotation : 0

上記の値を使って、ファイルのページサイズをint型にキャストして比較する。

> [iTextSharp.text.PageSize]::A4.Height -eq [int]$pdfReader.GetPageSize(1).Height

True

ちなみに、A4横の高さと幅を得るには、

> [iTextSharp.text.PageSize]::A4.Rotate().Height #高さ

595

> [iTextSharp.text.PageSize]::A4.Rotate().Width #幅

842

で、取得できる。

PowerShellでStringTemplateを使ってみる

2009-01-29T21:53:00.003+09:00

まず、StringTemplateのサイトからDLLを落としてくる。

その中から、
・　antlr.runtime.dll
・　StringTemplate.dll
の二つを、適当なフォルダにコピーしておく。

テンプレートファイルはfoo.stというファイル名で
foo : $foo$
みないなのを作る。

先ほど、コピーした二つのファイルとfoo.stのあるフォルダで下記を実行する。

> [void][System.Reflection.Assembly]::LoadFrom(( Join-Path $pwd StringTemplate.dll))
> $sr = New-Object System.IO.StreamReader(
>>　( Join-Path $pwd foo.st ) ,
>> [System.Text.Encoding]::GetEncoding("shift-jis"))
>>
> $t = New-Object antlr.StringTemplate.StringTemplate($sr.ReadToEnd())
> $sr.Close()
> $t.SetAttribute("foo","テスト")
> $t.ToString()

結果：

foo : テスト

みたいに返ってくる。

PowerShellでリモートのイベントログを取得する

2008-12-03T19:20:00.003+09:00

PowerShellでサーバーのイベントログを取得する必要があったので試してみた。

> $e = New-Object System.Diagnostics.EventLog

> $e.Log = "application"

> $e.MachineName = "RemoteServerName" 　#リモートのサーバー名を指定する

> $e.Entries

Index Time Type Source EventID Message

----- ---- ---- ------ ------- -------

886 9 04 11:30 Info Windows Search Se... 1013 Windows Search サービスが正常に停止しまし...

887 9 04 11:30 Info Service1 0 サービスが正常に終了しました。

ついでに、CSVに出力

> $e.Entries | Export-Csv -Encoding default application.csv

文字コードを変えてあげないと、開いた時に文字化けする・・・

PowerShellでExcel操作した時に残るプロセスについて

2008-10-17T22:22:00.002+09:00

PowerShellでExcelを操作するとプロセスが残ってしまっていました。

ComObjectなので最後までちゃんと面倒見てあげてなかったのが原因です。

Excel Cook Book in Windows PowerShellにちゃんと廃棄してあげるようにRelease-Refが紹介されていました。

$excel.Quit() した後に、この関数に今まで参照していた$excel、$workBooks、$workSheet、$rengeなどを渡してあげると、無事逝ってくれます。

これを知るまで、Stop-Prosess -Name "EXCEL"で皆殺しにしていたので・・・

これで、すっきりしました。

PowerShellでExcelの値を取得してXMLにしてみる

2008-10-05T21:55:00.008+09:00

foo.xlsが右の見たいなのとして

foo.ps1 > foo.xml

で

<?xml version="1.0" encoding="utf-8"?>

<excel>

<data>

</data>

・

</excel>

見たいにしてみる。

--- foo.ps1 ---

$filePath = Get-ChildItem foo.xls*
$excel = New-Object -comobject Excel.Application
$workBooks = $excel.Workbooks.Open($filePath)
#Sheet1を取得する
$workbooks.Worksheets | % { if ($_.Index -eq 1) { $sheet = $_; }}
@"
<?xml version="1.0" encoding="utf-8"?>
<excel>
"@
foreach($i in 2..13) {
$d = $sheet.Cells.Item($i,1).Text;
$foo = $sheet.Cells.Item($i,2).Text;
$bar = $sheet.Cells.Item($i,3).Text;
$baz = $sheet.Cells.Item($i,4).Text;
@"
<data>
<date>$d</date>
<foo>$foo</foo>
<bar>$bar</bar>
<baz>$baz</baz>
</data>
"@
}
@"
</excel>
"@
$workBooks.Close()
$excel.Quit()

PowerShellでExcel操作

2008-10-05T21:52:00.002+09:00

foo.xlsがスプリクトと同じフォルダにあるとして・・・

--- foo.ps1 ---

$filePath = Get-ChildItem foo.xls*
$excel = New-Object -comobject Excel.Application
$excel.Visible = $True
$workBooks = $excel.Workbooks.Open($filePath)
#Sheet1を取得する
$workbooks.Worksheets | % { if ($_.Index -eq 1) { $sheet = $_; }}
#A1の値が表示される
$sheet.Cells.Item(1,1).Text
#文字のColorIndexが表示される
$sheet.Cells.Item(1,1).Font.ColorIndex
#セルのColorIndexが表示される
$sheet.Cells.Item(1,1).Interior.ColorIndex
$workBooks.Close()
$excel.Quit()

Microsoft.VisualBasic.FileIOでCSVの読み込み

2008-09-28T14:28:00.003+09:00

使ったCSVファイル

--- foo.csv ---

"aaa,aaa","aaa","aaa"

"bbb","bbb,bbb","bbb"

"ccc","ccccccc","c,c"

--- ---

Booで読んでみた

--- foo.boo ---

import System
import Microsoft.VisualBasic.FileIO
p = TextFieldParser("foo.csv")
p.TextFieldType = FieldType.Delimited
p.SetDelimiters(",")
while (not p.EndOfData):
r = p.ReadFields()
for i in r:
print i

---　結果 ---

aaa,aaa

aaa

bbb

bbb,bbb

bbb

ccc

ccccccc

c,c

--- ---

楽チン過ぎてちょっとカルチャーショック!!

VBA ２次元配列

2008-09-23T20:40:00.005+09:00

VBAで２次元配列の作り方

１．セルの値を丸ごと配列に入れる。

Dim values As Variant

values = Range("A1:B10")

アクセス方法（A4の値）

values(1, 4)

行の長さを求めるには

Ubound(values)

列の長さは、（ここでは２列目）

Ubound(values, 2)

２．セルを使わずに初期化して作る。

Dim values As Variant

values = Array(Array(11, 12, 13) , Array(21, 22, 23))

アクセス方法（2行目の1列目の値　２１）

values(1)(0)

行の長さ

Ubound(values)

列の長さ（2列目）

Ubound(values(1))

自PCのIPアドレスを取得する

2008-09-23T14:43:00.002+09:00

複数ある場合は、foreachでまわして探す。

$localHostName = [System.Net.Dns]::GetHostName()

$localIP = [System.Net.Dns]::GetHostByName( $localHostName )

$localIP.AddressList[0].ToString()

ディスクの空き容量

2008-09-23T14:36:00.002+09:00

PowerShell

空き容量の％

$d = New-Object System.IO.DriveInfo("C")

$d.TotalFreeSpace / ( $d.TotalSize / 100)

ディスクサイズ（GB)

$d.TotalSize / 1GB

リムーバブルディスクの取り出し

2008-09-23T14:34:00.003+09:00

よく忘れるのでメモ。

PowerShell

$Shell.Application.NameSpace(17).ParseName('D:\').InvokeVerb("取り出し(&J)")

VBScript

CreateObject("Shell.Application").NameSpace("D:\").Items.Item.InvokeVerb "取り出し(&J)"

Excel/VBAでスペース区切り出力する

2008-06-16T23:50:00.004+09:00

Excelで固定長でTextファイルで保存する際に、.prn(スペース区切り)で保存すると、Excelの仕様で240文字までしか一行で出力できなかったので、簡単なスペース区切りができるマクロを作成してみました。
　かなり適当に作ってあります。
　範囲指定は「A1:H10」のような感じで入力してください。
　ファイル名は、元ファイルと同じ場所で、シート名.txtで保存されます。

--- 以下　コード ---


Sub SpaseSeparatedValues()
  Dim i, j As Integer

  Dim fileName As String
  fileName = ActiveWorkbook.Path & "\" & ActiveSheet.Name & ".txt"

  Dim scope As String
  scope = InputBox("スペース区切りで出力したい範囲をしていしてください。", "SpaseSeparatedValues")

  Dim data As Variant
  data = Range(scope)

  Dim fileNo As Integer

  fileNo = FreeFile()
  Open fileName For Output As #fileNo

      Dim printLine As String
   
      For i = 1 To UBound(data)
          printLine = ""
          For j = 1 To UBound(data, 2)
              printLine = printLine & data(i, j) & Space(Int(Cells(i, j).ColumnWidth) - Len(data(i, j)))
          Next
          Print #fileNo, printLine
      Next
  Close #fileNo
End Sub

VineLinux4.2でmonoを使ってみる

2008-03-07T23:32:00.000+09:00

久しぶりにLinuxを使ったけど、思ったより早い。前にUbuntoを使ったときは、なんか、もっさりしてる感じだったから、あんまり使わなかったけど、これならだいぶいい。
　仕事では、ずっとWindowsだからなんか、ちょっと戸惑うけど。
　C#でプログラミングしたいので、monoをインストールしてみる。ソースから入れたほうが、最新のものを試せるけど、まずは、Vineのパッケージを試してみる。

apt-get install mono-core
apt-get install mono-devel
apt-get install mono-winforms

　バージョン的には少し古いけど、十分使えるだろう。早速、テストコードをコンパイル。思ったより、あっさりとコンパイルできた。ただ、フォームを表示して、メッセージボックスを出しただけだから、たいしたことはないけどLinuxでC#が動くと、ちょっとびっくり。
　ただ、バージョンが古いからなのか、partialで分割クラスが使えない。テストコードははじめ、Program.cs、Form1.cs、Form1.Designer.csにしていたけど、コンパイルでpartialがどうとかでるので、ひとつにまとめた。
　あと、namespaceを使うとこれもコンパイルできない。なんでだ？そのnamespaseにはこのアプリはない。見たいなエラーになる。やっぱり最新のものを入れたほうがいいな。
　こんど、ソースからインストールしてみよう。なんか、面倒くさそうな気がするけどね。その時には、monodevelopも入れたいな。

viよく使うコマンドメモ

2008-03-05T21:33:00.000+09:00

最近ログをチェックすることが多いので、こんなんばっかり。バイナリを見るのは、設定ファイルがシリアル化してた場合･･･

文字数カウント
:%s/./&/g

fooを含む行を削除
:%g/foo/d

fooを含まない行を削除
:%v/foo/d

空白行を削除
:%g/^ *$/d

バイナリエディタ
:%!xxd
:%!xxd -r

Windows Temporary Folderについて

2008-03-02T12:10:00.002+09:00

C#なんかでTempフォルダを使いたくなった時、その場所は、System.IO.Path.GetTempPath()で取得するけど、この時、得られるフォルダの場所は環境変数に定義されている順に先に見つかったのを返してくる。具体的には、

1 TMP C:\Document and Setting\LocalSetting\Temp\
2 TEMP C:\Document and Setting\LocalSetting\Temp\
3 USERPROFILE C:\Document and Setting\

　っとこれに関しては、これで良いんだけど、気になったのがこのTempフォルダはいつクリアされるのか？っという事だ。
　Tempフォルダというとなんとなく、システム側で勝手に消してくれると思っていたけど、調べてみると実は違った。
　確かに、ディスクのクリーンアップで消してはくれるけど、これは勝手にWindowsがしてくれる訳じゃなく、ユーザが自分でする必要がある。それまでは、ユーザが自分でわかってTemp領域のファイルをクリアするまで、そのまま残り続けるって事になる。
　もし、自分で作ったアプリケーションでTempフォルダを使うなら、そこに置いた一時ファイルはちゃんと、アプリで消してあげないと、どんどん溜まってしまうことになる。まぁ溜まっても限界まできたら「ディスクのクリーンアップをして下さい。」メッセージがでるから、ほって置いてもかまわないのかもしれないし、最近のHDDはデカイからそれほど問題にはならないのかもしれない。
　でも、少なくとも、自分が書く時には汚した所は自分で綺麗にして終了させるようにしたほうが礼儀正しいだろう。

Vimperator

2008-02-29T00:13:00.000+09:00

ここで存在を知ったんだけど、神だ。最高だ。ちょっとたまにおかしな動きをするけど、すばらしい。マジで感動した。
　ただ、ここまで拡張できるFireFoxが凄すぎると思うのは自分だけだろうか？

自分が良く使うコマンドだけ、メモ。

f : リンク先を選択（大文字で打てば、タブで開く、小文字だとアクティブなタブで開く）
H :　戻る
L :　進む
j :　一行下にスクロール
k :　一行上にスクロール
C-f :　下にスクロール
C-b :　上にスクロール
y:URLをヤンク
Y:選択文字をヤンク

f[ :　ページ内でのウインドウ移動　右のページ？
f] :　同じく　左のページ？かな
gt :　タブ移動　右のタブ
gT :　タブ移動　左のタブ
gh :　ホームページ
d :　タブを閉じる

検索するのはアクティブな検索バー

p:ヤンクした文字を検索
P:ヤンクした文字を新しいタブで検索
:o foo :　現在のタブでfooを検索
:t foo :　新しいタブを開いてfooを検索
:q :　終了、複数タブの場合はアクティブなタブを閉じる

:bmarks :　ブックマークを開く、開いてアドレスをクリックしたらEscで閉じる
:help :　英語だけど、ヘルプ
:set guioptions+=mT :　ツールバーとメニューバーを表示
:set guioptions-=mT :　非表示

VineLinux4.2

2008-02-27T21:33:00.000+09:00

去年の12月に出てたみたいだけど、全然試してなかった。さっきダウンロードしたから、週末にでもインストールして、遊んでみよう。
　気になったのは、ダウンロード速度。なんで、こんなに早いんだ？家の環境はかなり遅いと思ってるんだけど･･･。10分もかからずに落とせるとありがたいよ。前は、一晩かかってたからね。
　最近はLinux関係の雑誌をあんまり見かけないから、インストールCDを自分で焼かないといけなくて、面倒だな。5年くらい前にはLinux系の雑誌っていっぱいあったように思うけど･･･寂しい限りだ。

プロフェッショナルとは･･･

2008-02-22T22:13:00.002+09:00

「ファンを圧倒し、選手を圧倒し、圧倒的な結果を残す、ということです。」

イチローカッコイイ(^ ^)/
イチローのようになることは無理かもしれないけど（たぶん、無理だけど･･･）それでも、できるだけ近づきたいなぁ～。
自分も、お金を貰って働いているんだから、お客さんを圧倒するような仕事ップリをしてみたいね。そのためには、もっと勉強して、一つの仕事に対してもっと考えないといけないな。どうしても、嫌いだったり、興味がない仕事だと適当にやっつけでやってしまうから。

風待ち

jrunscriptでGMailを送信してみる

jrunscriptで自作のstaticなクラスメソッドを呼んでみる

jrunscriptで複数のClass、複数のJarに同時にパスを通して使う

jrunscriptで自作したJarを使ってみる

jrunscriptで自作したClassを使ってみる

jrunscriptを試してみる

PowerShellでCD-ROMドライブを開閉する

VBScriptで数値を0で埋めて表示してみる

Windowsでvimのopsplorer.vimを使ってみた。

Windows7のPowerShellでDVDドライブからのディスク取り出し

Oracle SQLでDATE型とUNIXタイムを相互に変換する

PowerShellで作成したフォルダに直ぐに移動（ただのメモ）

Pingの結果をPowerShellっぽく取得してみる

PowerShellで文字列をバイトで区切って切り出す

PowerShellでユーザー一覧に利用可能か無効を付けて出力する

PowerShellでディスクトップのキャプチャを撮る

PowerShellで「du」コマンド その３

PowerShellで「ユーザーは次回ログオン時にパスワードの変更が必要」を有効化するには

PowerShellでダミーファイルを作る

PowerShellでLinuxの「du」コマンド その２

PowerShellでMACアドレスからメーカーを調べる

PowerShellでリモートPCのHDD容量を取得する

PowerShellでリモートのイベントログを取得する（その２）

PowerShellでLinuxの「du」コマンド

PowerShellからLucene.netを使ってみる

PowerShellで動画の輪郭検出をしてみる

PowerShellで静止画の輪郭検出をしてみる

PowerShellで動画の差分をとってみる

PowerShellで静止画の差分をとる

PowerShellでタスクトレイアイコンにバルーンウィンドウを表示してみる

wgetの使い方メモ

PowerShellでHTMLファイルから画像のURLを取り出す

PowerShellで画像の色をカウントする

PowerShellで動画を白黒でキャプチャー

PowerShellで動画をグレースケールでキャプチャー

PowerShellで動画の顔検出をしてみる

PowerShellで画像のRGBを調べてみる

PowerShellで静止画の顔検出をしてみる

PowerShellで画像を白黒に変換する

PowerShellで画像をグレースケールに変換する

PowerShellで画像をぼかす

PowerShellで画像を回転させる

PowerShellで動画を再生する

PowerShellでWebカメラの映像を保存する

PowerShellからWebカメラを使って静止画をキャプチャーする

PowerShellからWebカメラを使ってみる

PowerShellからOpenCVSharpを使ってみる

PowerShellで8.3形式の短いファイル名を取得する

VBScriptでネットワークドライブを使う

PowerShellで漢字をカタカナに変換する

C#でエクスプローラーで表示されるファイルの並び順と同じにソートしてみる

VBScriptでゴミ箱のファイルを削除してみる

PowerShellから新しいウィンドウのPowerShellを開く

PowerShellで半角カタカナを全角カタカナに変換してみる

PowerShellでゴミ箱を操作するには

PowerShellでPDFのサイズを取得する。

PowerShellでStringTemplateを使ってみる

PowerShellでリモートのイベントログを取得する

PowerShellでExcel操作した時に残るプロセスについて

PowerShellでExcelの値を取得してXMLにしてみる

PowerShellでExcel操作

Microsoft.VisualBasic.FileIOでCSVの読み込み

VBA ２次元配列

自PCのIPアドレスを取得する

ディスクの空き容量

リムーバブルディスクの取り出し

Excel/VBAでスペース区切り出力する

VineLinux4.2でmonoを使ってみる

viよく使うコマンドメモ

Windows Temporary Folderについて

Vimperator

VineLinux4.2

プロフェッショナルとは･･･

PowerShellで「du」コマンド　その３

PowerShellでLinuxの「du」コマンド　その２