おえかきWindows

れあつい　～Twitterフォローユーザーのレア発言を取得してみる～

2011-12-18T00:42:00.000+09:00

（＊この記事は PowerShell Advent Calendar 2011 18日目の参加記事です。)

raretwit.ps1というスクリプトを作りました。
コードは一番下に置いたので、すぐに使ってみたいひとはそちらをどぞ。

さて、ではまずヘルプを呼び出してみます。スクリプトのはじめのコメント文に書式に沿って書くことでget-helpを使用した場合に表示することができます。

とりあえず、ずらずら書いてみました。
順を追ってみてみましょう。

１．フォローユーザーを取得する
引数に g をつけることで、フォローユーザーを取得できます。

アカウント名の入力を促されるので、取得したいユーザーアカウントを入力すると、

webAPIからデータを取得し、カレントディレクトリのtuser.txtに書き出します。

別に自分のアカウントでなくても、他の人のフォローリストでも取得できます。

２．レアユーザーを取得する

引数に r をつけることで、レアユーザーを取得することができます。

昨日分のツイートから指定した回数以下の発言をしたユーザーを抽出し、

rareuser.txtに書き出します。

たとえば、５回以下の発言をしたユーザーを取得する場合を例とします。

「全 2 ページ 1 ページ目 9 回実施」と出たあと、「～回目完了」と出力してます。

これは、たとえばフォロー数が100人いたとして、そのままwebAPIに100人分のツイートを検索するよう投げても、検索過多でエラーを返してくるための処置です。

一度にできる検索上限数は25件前後のようだったので、余裕をもって20人ずつ分割して処理させてます。

100人フォローユーザーがいたとすれば、20人１組として５組にわけ、５回にわけてツイート検索する、、という感じです。

また、一度に取得できる結果は最大100件までです。

101件以降のデータを取りたい場合は、pageを指定してあげる必要があります。

ちょうど書き込みが多いWeb掲示板なんかを想像するとわかりやすいかもしれません。

今回は、あまり多くのデータを取得しても時間がかかるだけなので、

10組以上、つまり２００人以上のフォローユーザーがいる場合はデータ取得を１ページ分(100件)だけ。

それ以下の組数の場合は２ページ分(200件) 取るようにしました。

それぞれの組ごとで取得したデータは一度すべて足し合わせます。

その結果をGroup-Objectを使用して名前ごとにグループ分けし、出力します。

さきほど指定した回数以上のユーザーを切り捨てた後、

残ったユーザーで再度２０人1組にわけ、再び同じ処理を繰り返します。

これを指定した回数以上のツイートユーザーがいなくなるまで繰り返します。

最終的に残ったユーザーアカウントはカレントディレクトリのrareUser.txtに書き出されます。

これで、レアユーザーリストができました。

3.レアユーザーのツイートを表示する

引数にsをつけることで、前日分からのレアユーザーのツイートを表示します。

出力の仕方は、ストリームのように流れ、一文字ごとタイプで打つような表示がされます。

タイプのような表示がうざったい、という場合には、引数にnotypeをつけることで、やめることもできます。

正直、個人的にはタイプでの表示は文字を目で追うことが疲れるので、お遊び的な要素ですねｗ

次のツイートには3秒待ってから進みますが、引数に tltime [数字] で待ち時間を変えることもできます。ツイートの数が多い時には待ち時間を小さくして一気にみたり、逆にゆっくり見たい場合には秒数を増やしてください。

４．キーワード検索をする

派生した機能として、キーワード検索もつけました。

昔、Googleでリアルタイム検索がありましたが、あれと似たような感じです。

引数に word [キーワード]　をつけることで呼び出せます。

キーワード検索の場合、レアユーザーツイートと違い、多くのデータをとってくるので

さしあたって実行した時点での最新25件を表示します。あまり多くあっても見きれないですしね。

25件ながし終えたら、再度検索しなおし、25件目の時刻以降のツイートを再び表示します。

こちらもデータが多い場合には最新の25件のみの表示となってます。

ちなみに取得準備待ちというのは、

twitter　webAPIには1時間あたりの取得制限があり、取得頻度が多い場合、制限にひっかかってしまうため次の検索を行うまで70秒待つよう設定してます。

ただし、ツイート表示の時間分は引いているので、実際には

70-(データ表示数)*1ツイートあたりの待ち時間（デフォルト3秒)待機してから検索を行います。

せっかくなのでその時間を write-progress に渡して表示させるようにしてみました。

引数に viewtime をつければ見ることができます。

５．キーワードリストから検索する

カレントディレクトリにtword.txtを用意して、キーワードを記入。

引数にwordlをつけることでtword.txtを読み込み、複数キーワード検索が可能です。

ちなみに、wordとwordl 両方引数つけた場合は、wordl の方が優先されます。

６．フォローユーザーを検索する

フォローユーザーを検索する場合には引数に f をつけることで検索可能です。

レアユーザーがダークマゼンダ、通常ユーザーは青色でアカウントに色付きで表示されます。

こちらもキーワード検索と同じように初回の検索を終えたら再び検索しなおし、表示し続けます。

初回が最新30件の表示、2回目以降は特に数に制限なく表示します。

こちらもキーワード検索と同じく、70秒待機して検索しますが、

あまりにもフォローユーザーが多い場合(1000人単位くらい)には検索に少し時間がかかってしまうこともあるかもしれません。

そういった場合には手動でtuser.txtを編集して、ユーザー数を減らすことで改善されるかと思います。

７.全部検索する

引数なしで実行すると、 wordl、f の引数をつけた状態、つまりキーワード検索とフォロー検索両方実行して表示されます。

レアユーザーがダークマゼンダ、通常ユーザーは青色、キーワード検索は黄色でそれぞれ表示されます。

初回は最新３０件表示します。キーワード検索は最新25件まで取得、フォローユーザーは制限なしで時系列にソートされて表示されていきます。

8.コード

ながながと説明してきましたが、結構まだエラーやら抜けがあったりコードも汚いです（；´∀｀）。

まぁ、こんなやり方もあるよというサンプル的な感じで掲載

raretwit.ps1

<# 
.SYNOPSIS 
    レアツイ。　twitterで各発言検索スクリプト
.DESCRIPTION 
    -word [キーワード] キーワード検索、ツイート表示
    -wordl tword.txt に書かれたワード検索、ツイート表示
    -f follower、レアユーザーのツイート表示
    -s レアユーザーのツイート表示(1回のみ)
    無地 tword.txtとユーザーリストのツイート表示

    -r レアユーザーを取得、rareUser.txtに書きこむ
    -g followユーザーを取得、tuser.txtに書きこむ
    -tltime [整数] 次のTL表示の秒数指定。指定しなければは３秒
    -notype タイプ形式の表示をやめる
    -viewtime 次のデータ取得の待ち時間を表示する
    
    
.LINK 
    Twitter Search API の使い方 http://www.ibm.com/developerworks/jp/xml/library/x-twitsrchapi/
    Twitter API                 http://watcher.moe-nifty.com/memo/docs/twitterAPI.txt
    おえかきWindows             http://win-enikki.blogspot.com/　
    
.NOTES 
    from%3Aユーザー名で特定ユーザー発言
    to%3Aユーザー名で特定ユーザーにむけての発言
    %23[検索名]でハッシュの検索
    langをつけて国の設定
    API制限は60分間に100回で発生
    最大検索数は25前後。検索数を20個に分割して検索実施

.EXAMPLE 
    
#>
param(`
[switch]$g,[switch]$r,[switch]$s,[switch]$f,`
$word,[switch]$wordl,`
[switch]$notype,$tltime=3,[switch]$viewtime`
)

#検索リストをTwitterAPI形式に変換
function join-search {
    param ($tuser)
    $txtUSerfrom=$tUser | %{ "from%3A"+"$_" }
    $txtUserfrom -join '+OR+'    
}

#検索リストを分割する
function join-search2 {
    param ($userlist)

    $countP=[math]::Truncate($userlist.length /20)
    $countD=$userlist.length % 20

    for ( $i = 1; $i -le $countP; $i++ )
    {
        $s=20*($i-1)
        $e=20*$i-1

        join-search $userlist[$s..$e]
        if ($i -eq $countP){
            join-search $userlist[$s..$($s+$countD)]
        }
    }
}


#TwitterAPI形式の検索語句から検索結果を返す
Function Get-TwitterSearch {
    Param($searchTerm)
    if ($WebClient -eq $null) {
        $WebClient=new-object System.Net.WebClient
    }
    $results=[xml]($webClient.DownloadString(`
    "http://search.twitter.com/search.atom?lang=ja&q=$SearchTerm"))
    $Searchitems=$results.feed.entry
    $SearchItems
}


#引数ユーザーのFollowerチェック
function Check-follower {
 param($tname,$tpage=-1)
 if ($WebClient -eq $null) {
  $WebClient=new-object System.Net.WebClient
 }
 
    while ($tpage -ne 0)
    {
     $results=[xml]($webClient.DownloadString(`
        "http://api.twitter.com/1/statuses/friends/"+ $tname + '.xml?cursor=' + $tpage))
     $results.users_list.users.user | % { $_.screen_name }
        $tpage=$results.users_list.next_cursor
    }    
}

#検索ユーザーテキスト
if ($g){
 $tname=read-host アカウント名入力
 write-host データ取得中...
 $a=Check-follower $tname
 $a
 $a | Out-File .\tuser.txt
 write-host tuser.txtに書き込みました。
 break
}

if ( test-path .\tuser.txt) {
    $txtUser=Get-Content .\tuser.txt | sort -Unique
} else {
    write-host tuser.txtがみつかりません。
    write-host -g オプションでfollowerを読み込んでください
    break
}

$searchUser= join-search2 $txtuser


#Search Twitterから読み込んだデータを編集、表示する
function See-tweet {
    param($obj, $rare, $txtuser)
    $($obj.length-1)..0 | ? { $obj[$_] -ne $null } | % {
        
        $twitname=$obj[$_].author.name
        $twittitle=$obj[$_].title

       #それぞれの取得データに応じて名前部分の色を変化        
        if (Select-String -InputObject $twitname $rare) {
            $colorname="DarkMagenta"
        }elseif (Select-String -InputObject $twitname $txtUser) {
            $colorname="blue" 
        }else {
            $colorname="darkgreen"
        }

        if ($txtTword){
            if (Select-String -InputObject $twittitle $txtTword){
                $colorname="yellow" 
            }
        }        


       #出力内容
        write-host $twitname -ForegroundColor $colorname -NoNewline 
        write-host " ---- " -NoNewline
        write-host $([datetime]($obj[$_].published)) $_
        
        if (-not $notype){
            for ($i=0;$i -le $(($obj[$_].title).length-1); $i++){
            
                write-host $($obj[$_].title)[$i] -nonewline
                Start-Sleep -Milliseconds 20
            }            
            Write-Host ""
        } else {
            write-host $obj[$_].title
        }
        
        Write-Host ""
        Start-Sleep -s $tltime
    }
   
    $colorname=$null
   
}

$yday=[string]$(Get-Date).adddays(-1).tostring("yyyy-MM-dd")
$tday=[string]$(Get-Date).tostring("yyyy-MM-dd")

#レアユーザーを取得する
function Check-RareUser {
    param($searchrareuser, $txtuser)

    
    [int]$twitcount=Read-host 何回発言以下を取得しますか？
    $rare=$txtuser
    do { 
        $twitresult=$null
        $txtmanyUser=$null
        $gruser=$null
        
        if (($searchrareUser.length) -le 10) {
            $t=2
        }else { 
            $t=1
        }

        for ($i=1; $i -le $t; $i++){
           write-host "全" $t "ページ" $i "ページ目"`
            ($searchrareUser.length) "回実施"
           $twitresult += 0..($searchrareUser.length-1) |`
           % { 

                get-twittersearch $($searchrareuser[$_] + `
                "+since%3A$yday+until%3A$tday&rpp=100&page=$i")
                write-host $($_+1)　回目完了
             }
           

        }
        write-host 回数ソート中..
        $twitresult.count
       
        $gruser = $twitresult | %{ $_.author.name } | Group-Object |`
        sort -Property count -Descending
        $gruser
        $txtmanyUser = $gruser | ? { $_.count -gt $twitcount } |`
        % {$_.name -replace " .*",""  }
        Start-Sleep $tltime
        
        if ($txtmanyuser) {
            $rare=Compare-Object $txtmanyUser $rare -SyncWindow $rare.count |`
            % { $_.inputobject }
            $searchrareUser = join-search2 $rare
        }
            
                
    } while ($txtmanyUser)   
     $rare > .\rareUser.txt
}


if ($r){
    Write-Host "前日分のレアチェックユーザー発言"
    Check-RareUser $searchuser $txtUser
    write-host 完了
    break
}    

if ( test-path .\rareuser.txt) {
    $txtrareUser=Get-Content .\rareuser.txt | sort -Unique
} else {
    write-host rareuser.txtがみつかりません。
    write-host -r オプションでレアユーザーを生成してください
    break
}
$searchrareUser=join-search2 $txtrareUser


#レアユーザーのツイート表示
if ($s){
    $twitresult=$null
    for ($i=1; $i -le 2; $i++){
        $twitresult += 0..($searchrareUser.length-1) |`
        % { get-twittersearch $($searchrareuser[$_] + `
        "+since%3A$yday+until%3A$tday&rpp=100&page=$i") }

    }
    $twitresult = $twitresult | sort -Property published -Descending 
    write-host "総発言数:" $twitresult.count
    see-tweet $twitresult $txtrareUser $txtUser
    break
}  


#キーワード検索フラグ
if ( test-path .\tword.txt) {
    $txtTword= Get-Content .\tword.txt | sort -Unique
    if ($txtTword){
        $searchWord=$txtTword -join '+OR+'
    }
}

if ($word) {
    $searchWord=$null
    $searchWord=$word -join '+OR+'
    $w="true"
}

if($wordl) {
    if ($txtTword) {
        $w="True"
    }else{
            write-host tword.txtに検索文字をいれてください。
            break
    }
}    


#残り時間表示
function Count-Time {
    param($time)
    for ($i = 1; $i -le $time; $i++ )
    {
            $status = " {0} 秒" -F $i,$($i*100/$time)
            $currentOperation = "{0} 秒待ちです" -F $time
            Write-Progress -activity "待機中" -status $status -PercentComplete $($i*100/$time)`
            -CurrentOperation $currentOperation  
            Start-Sleep -s 1  
    }
    Write-Progress -Activity "Working..." -Completed -Status "All done."
}    


#ツイートを調べる
function Check-List {
    param($first)
    $twitresult = $null
    if ($w) {
        #wordは25発言まで取得
        $twitresult += get-twittersearch $("$searchWord&rpp=25")
    } 
    if ($f) {
     
        $twitresult += 0..($searchUser.length-1) |`
        % { get-twittersearch $($searchUser[$_] + "&rpp=10") }
     
    }
    if (-not($w -or $f)){

        $twitresult += 0..($searchUser.length-1) |`
        % { get-twittersearch $($searchUser[$_] + "&rpp=10") }
        if ($searchWord) {
            $twitresult += get-twittersearch $("$searchWord&rpp=25")
        }

    }
    
    
    
    if (-not $first){
        $twitresult = $twitresult | ? { $([datetime]($_.published)) -gt $script:getlasttime}
    }
    
    if ($($twitresult -eq $null) -or $($twitresult[0] -eq $null)) {
        Write-Host "##########################################"       
        Write-Output "データはありませんでした"
        $script:getlasttime=$(get-date)
        
        if ($viewtime){
            Count-Time 70
        }else{
            Start-Sleep -s 70
        }
        
        Write-Host "##########################################"
                
   
    }else{
    
        Write-Host "############## コメント数 $($twitresult.length)"
        $twitresult = $twitresult | sort -Property published -Descending 
        #30ツイートまで出力する
        if ($first) {
            $twitresult = $twitresult[0..30]
        }
            
        see-tweet $twitresult $txtrareUser $txtUser
     
        $script:getlasttime=$([datetime]($twitresult[0].published))
    
        Write-Host "##########################################"
        Write-Host "取得準備待ち"
        if (($twitresult.length-1)*$tltime -le 70) {

            if ($viewtime){
                Count-Time $(70-($twitresult.length-1)*$tltime)
            } else {
                Start-Sleep -s (70-($twitresult.length-1)*$tltime)
            }                
                
        }else{

        }
        
    }
    
}

Write-Host "##########################################"
Write-Host "ストリーム開始!"
check-list first
$a = 0
do  
    { 

    check-list        
 
    }
while ($a -ne 1)

今回は、おもいついたままに作ったスクリプトでしたが、
PowerShellはデータの編集や動作処理など色々なことができるので、是非使ってみてください( ´∀｀)

長月3.プログラムの実行回数を出力させる仕組みをみてみる3

2011-09-09T00:05:00.000+09:00

前回の続きです。

長月1.プログラムの実行回数を出力させる仕組みをみてみる
http://win-enikki.blogspot.com/2011/09/1.html
長月2.プログラムの実行回数を出力させる仕組みをみてみる2
http://win-enikki.blogspot.com/2011/09/1_05.html

前回、最後にスクリプト付け加えました。
これは最終実行時間と、できたデータをオブジェクトに入れる処理です。

#レジストリプロパティを入力、時間を出力
function convtime($x) {
    $LittleEndianTime=$x[60..67] | % { $_.tostring("x2") }
    $BigEndianTime=$null
    $($LittleEndianTime.count-1)..0 | % { $BigEndianTime += $LittleEndianTime[$_] }
 
    $filetime=[convert]::ToInt64("$BigEndianTime", 16)
    [datetime]::fromfiletime($filetime)
}
 
#オブジェクトに各データを入れデータ格納
$result = $iname | % {
    $count = $iProp.$_[4]
    if ($count -ne 0){
        $output = New-Object psobject
        $output | Add-Member noteproperty pcount $iProp.$_[4]
        $output | Add-Member noteproperty pname $(func $_)
        $output | Add-Member noteproperty ptime $(convtime $iprop.$_)
        $output      
    }
}
 
#お好みでオブジェクト整形
$result | sort-Object -Property ptime -Descending

この処理はだいたい以下のような動きをさせている

エンディアン

http://ja.wikipedia.org/wiki/%E3%82%A8%E3%83%B3%E3%83%87%E3%82%A3%E3%82%A2%E3%83%B3

FileTime構造体

http://msdn.microsoft.com/ja-jp/library/system.runtime.interopservices.comtypes.filetime(v=vs.80).aspx

続いて、オブジェクト作成。実はPowerShellは、これ覚えておくと超便利

こうやってできたオブジェクト(今回は$result)は、データをまとめたりいじったりがとてもしやすい。

グリッドで出したり

24時間の間で使ったプログラムのみ出力とかも簡単にできる。

ということで、またほかに気になったスクリプトがあったら取り上げたいと思います。

（自分自身でもつくらなきゃだけど）

長月2.プログラムの実行回数を出力させる仕組みをみてみる2

2011-09-05T23:28:00.001+09:00

前回の続き

長月1.プログラムの実行回数を出力させる仕組みをみてみる
http://win-enikki.blogspot.com/2011/09/1.html

では、残りのスクリプトをみていきます。

$iName | %{
    $count = $iProp.$_[4]
   
    if ($count -ne 0){
        "{0}回 {1}" -f $count, (func $_)
    }
}

プログラム名が記述されている$iName、
そのプログラムの実行回数を含む各種データが格納されてある$ipropを利用して、回数を表示させる。

では、そもそも$ipropに書かれているデータ構造はどうなっているのだろう？
$iPropに格納されているのは、以下のレジストリキーをカスタムオブジェクトとして取得し、
データを各プロパティ値として取得している。
HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{CEBFF5CD-ACE2-4F4F-9178-9926F41749EA}\Count

レジストリエディターでキーをみたところ

オブジェクトは、PSCustomObject

PS C:\Users\buso> $iProp.gettype()

IsPublic IsSerial Name                                     BaseType
-------- -------- ----                                     --------
True     False    PSCustomObject                           System.Object

プロパティ値に各データが保存されてる

PS C:\Users\buso> $iProp | Get-Member -MemberType noteproperty | fl
(略

TypeName   : System.Management.Automation.PSCustomObject
Name       : {1NP14R77-02R7-4R5Q-O744-2RO1NR5198O7}\zfcnvag.rkr
MemberType : NoteProperty
Definition : System.Byte[] {1NP14R77-02R7-4R5Q-O744-2RO1NR5198O7}\zfcnvag.rkr=
             ystem.Byte[]

TypeName   : System.Management.Automation.PSCustomObject
Name       : {1NP14R77-02R7-4R5Q-O744-2RO1NR5198O7}\zzp.rkr
MemberType : NoteProperty
Definition : System.Byte[] {1NP14R77-02R7-4R5Q-O744-2RO1NR5198O7}\zzp.rkr=Syst
             m.Byte[]

(略

では、各プロパティに格納されているバイナリデータ構造はどうなっているのでしょう。
どうやら、先頭４バイトの次の４バイトが回数、後ろの４バイトから前の8バイトが時間が記録されるらしい。

B-) の独り言
http://d.hatena.ne.jp/hideakii/20090907

例として、zfcnvag.rkr (mspaint.exe)をみてみよう。

青がプログラム回数、赤が実行時間

データはレジストリエディタ上では16進数で書かれている。
回数は255回までは5番目のバイト数のみをみればよいので、とりあえずそこだけを見る。
$iPropでは2進数で出力されるので、特に変換はいらない。
$iPropのzfcnvag.rkrプロパティの5番目の配列にあるデータを出力してみる。

PS C:\Users\buso> $iprop."{1NP14R77-02R7-4R5Q-O744-2RO1NR5198O7}\zfcnvag.rkr"[4]

3

あとは、実行回数があるものだけを整形して、出力し完成である。
さて、ひと通りスクリプトを見たので、せっかくなのでソートして出力するよう、スクリプトを以下のように変更してみた。

$regPath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{CEBFF5CD-ACE2-4F4F-9178-9926F41749EA}\Count"
$iProp = Get-ItemProperty $regPath
$iName = (Get-Item $regPath).Property

Function func($x) {
    $conv13 = $x.ToCharArray() | %{
        if ( $_ -match "[a-m]") {
            [char]([byte][char]$_+13)
        }elseif ( $_ -match "[n-z]") {
            [char]([byte][char]$_-13)
        }else{
            $_
        }
    }
   
    Split-Path -Leaf  ([String]$conv13 -replace " ")
}

#レジストリプロパティを入力、時間を出力
function convtime($x) {
    $LittleEndianTime=$x[60..67] | % { $_.tostring("x2") }
    $BigEndianTime=$null
    $($LittleEndianTime.count-1)..0 | % { $BigEndianTime += $LittleEndianTime[$_] }

    $filetime=[convert]::ToInt64("$BigEndianTime", 16)
    [datetime]::fromfiletime($filetime)
}

#オブジェクトに各データを入れデータ格納
$result = $iname | % {
    $count = $iProp.$_[4]
    if ($count -ne 0){
        $output = New-Object psobject
        $output | Add-Member noteproperty pcount $iProp.$_[4]
        $output | Add-Member noteproperty pname $(func $_)
        $output | Add-Member noteproperty ptime $(convtime $iprop.$_)
        $output      
    }
}

#お好みでオブジェクト整形
$result | sort-Object -Property ptime -Descending

追加部分の解説は次回以降にまわすとして、、ひとつ疑問。

だれか、知っている人います・・？
この設定場所がわかれば、一週間単位で実行したプログラムと回数を記録し、
ログとして出力・・、みたいなのができそうなんだけどなぁ。

長月1.プログラムの実行回数を出力させる仕組みをみてみる

2011-09-01T23:52:00.000+09:00

とっても面白いPowerShellスクリプトが掲載されていたのでご紹介

のんべんだらりぃ～　プログラム実行回数
http://d.hatena.ne.jp/chiaki1220jp/20110831

Windowsのレジストリにはプログラムの実行回数が記録されているところがあるので、
それを利用してどのプログラムを何回実行したかというのを出力するというもの。
一時、Winny防止の為本当に起動してないかどうかを確かめるためのソフトが話題になったけど
そのソフトもどうやらここのレジストリを見ているみたい。
とはいえ、プロファイルに記載されるレジストリ値であり、ユーザーによっていくらでも書き換えができてしまうので、
どちらかといえば使用頻度とかをリサーチする統計的な目的で利用するのが正しいのかな。

実際に実行してみたところ。回数とプログラムが出力される

では、動作をひとつずつ見ていくことにする。

$regPath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{CEBFF5CD-ACE2-4F4F-9178-9926F41749EA}\Count"
#▼ $regPathのプロパティ
$iProp = Get-ItemProperty $regPath
#▼ $regPathの名前んとこ全部
$iName = (Get-Item $regPath).Property

HKEY_CURRENT_USERの UserAssist 配下にプログラム回数が記述されるキーがある。

なお、これはタスクバーのプロパティにある、「最近開いたプログラムを[スタート]メニューに保存し表示する」にチェックをつけていないと記録されない。
OSのバージョンによって少しUserAssistの仕様が違うみたいで、今回のはWindows7ベースでのスクリプトとなっている。
ちなみに、{CEBFF5CD-ACE2-4F4F-9178-9926F41749EA} 配下にexeの実行回数
{F4E57C4B-2036-45F0-A9AB-443BCFE33D9F} 配下にショートカット(lnk)の実行回数が記録される模様

つづいて、$iPropには前述のキーのプロパティ、つまりバイナリの値を含むレジストリ値と各データを格納している。

$inameの方はレジストリキー名を格納している。

次に下記のような関数が続く。

#▼ ROT13変換
Function func($x) {
    $conv13 = $x.ToCharArray() | %{
        if ( $_ -match "[a-m]") {
            [char]([byte][char]$_+13)
        }elseif ( $_ -match "[n-z]") {
            [char]([byte][char]$_-13)
        }else{
            $_
        }
    }
    
    Split-Path -Leaf  ([String]$conv13 -replace " ")
}

実は$inameの値（つまり、UserAssist下の該当キー)をみてもパッと見、なんだかよくわからない。

$iNameの一部を出力させてみた

これは、いわゆるROT13というシーザー暗号を使っているからである。
元々のアルファベットを13文字ずらして表記する方法で、アルファベットは全26文字のため、同じ変換式で簡単にエンコード・デーコードが可能というのが特徴。

Wikipedia ROT13
http://ja.wikipedia.org/wiki/ROT13

ということで、ROT13変換し、"\"から右側部分のみを出力するという func 関数を作成している。

以下、実際に使用すると以下のようなプログラム名が表示される

func関数で変換したもの

次回、残りをみていきたいと思います。

葉月1.PowerShellのプロファイルとSyncToyを利用したバックアップ

2011-08-30T23:12:00.000+09:00

僕が使っているのは、MSが出しているSyncToyというツール。

これを利用するとフォルダ間でファイル同期を行ってくれる。手軽に使えるのでなかなか良い

SyncToy

http://www.microsoft.com/download/en/details.aspx?DisplayLang=en&id=15155

@IT SyncToyツールで手軽にバックアップを行う

http://www.atmarkit.co.jp/fwin2k/win2ktips/611synctoy/synctoy.html

コマンドプロンプトでも実行できるので、USBメモリをさした場合にプロファイルを読み込み、
その過程で上記ソフトを実行するよう設定する。

1. SyncToyをインストール
USBメモリ上にSyncToyをインストールする。ここでは、以下のフォルダに展開した。
E:\program\buso-sync\x64\

e:をUSBメモリをさした場合のドライブ。

2.利用するPCでPowerShellのプロファイルをいじる
プロファイルにもいくつか種類があります。

TechNetマガジンプロファイルの力
http://64.4.10.145/ja-jp/magazine/cc895642

%windir%\system32\WindowsPowerShell\v1.0\profile.ps1 コンピュータのすべてのユーザーとすべてのシェルに適用されるプロファイル。
%windir%\system32\WindowsPowerShell\v1.0\Microsoft.PowerShell_profile.ps1 コンピュータのすべてのユーザーと Microsoft.PowerShell シェルに適用されるプロファイル。
%UserProfile%\Documents\WindowsPowerShell\profile.ps1 現在のユーザーとすべてのシェルに適用されるプロファイル。
%UserProfile%\Documents\WindowsPowerShell\Microsoft.PowerShell_profile.ps1 現在のユーザーと Microsoft.PowerShell シェルに適用されるプロファイル。

僕は、普通のprofile.ps1を編集してる。

USBメモリをさした場合に、該当のスクリプトがあった場合に処理を実行するよう、以下を記述

profile.ps1

if ( $(test-path "e:\config\config.ps1"))
{
        . e:\config\config.ps1
        write-host "++++ config アクセス完了 ++++"
}

もっぱらconfig.ps1にUSBメモリをさした場合に実行するプロファイルとして記述している。
今回は、ここにSyncToyの呼び出しをするよう追記する。

3.SyncToyを利用するための準備をする
フォルダ同期の受け皿を作っておく。ここでは下記のパスとする。
C:\Users\buso\Desktop\buso-sync
次に、あらかじめ同期するフォルダペアを登録しておく。
詳しくは上記の@ITの記事を参考にしてもらいたい。

ここではフォルダペア名を"powershell"として、
C:\Users\buso\Desktop\buso-sync と、USBメモリ先である E: を同期するよう設定した。

4.config.ps1からSyncToyを呼び出す
config.ps1にSyncToyを呼び出すよう追加する。

e:\config\config.ps1

if ($env:computername -eq "buso-pc") {
    E:\program\buso-sync\x64\SyncToyCmd.exe -R powershell
}

上記は"buso-pc" に接続した場合の設定。
SyncToyCmd.exe でフォルダペア名を指定すると、登録した設定に応じて同期される。
接続するコンピュータに応じてフォルダペア名を変えて、同期方法を変更したりするなど応用も可能。

実際にUSBメモリをさした場合にPowerShellを起動したときに走る処理。
この他、僕はaliasを読み込んだりさらにスクリプトを呼びだしたりと
config.ps1 に色々設定を書いてます。

水無月3.VDI環境をつくってみた

2011-06-28T22:59:00.001+09:00

VDIのテスト環境を作ってみました。
・・・とはいえ、作ってみた感想としては利用する場面は特殊な状況の時だけかなぁと感じました。

作成は以下の@ITの記事を参考に。

Windows Server 2008 R2によるVDI実践入門
http://www.atmarkit.co.jp/fwin2k/operation/vdi01/vdi01_01.html

さて、VDI（Virtual Desktop Infrastructure）というのはそもそも何かというと、
hyper-v上に仮想クライアントOSをいくつか展開し、それらのOSへ利用者がhyper-v上にあることを特に意識せずリモートデスクトップ接続でつなぎに行く一連のシステムのことを指します。

結構関連するサーバシステムとしては大掛かりなのですが、役割のうちいくつかは同一サーバでうけもつことができます。図にするとこんな感じ。

ここでポイントなのが、クライアントOSをリモート接続先として提供しているということ。

クライアントOSはリモート接続が1セッションしか許可されていないので、サーバファームという形で複数の利用者が使用できる環境を提供しているわけですね。

しかし、同時接続する数だけクライアントOSをHyper-V上に用意しておかなければならないですし、そのひとつひとつにOSライセンス料が発生しますし、CALも必要です。

また、つなぎに行く利用者もPCを使って接続するわけですが、linuxではRDPは最新の7.1はまだ対応していないため、やはりWindowsOSを用意する必要があり、その為のライセンスや管理も必要となります。

Hyper-Vによるサーバファームにしてもディスク容量は差分ディスクで節約するとしても、メモリの割りあてに関しては少し苦慮しそうです。

というのも、ダイナミックメモリがクライアントOSではWindows7Enterpriseか、Windows Vista EnterpriseまたはUltimateしか対応していないので、それ以外のOSの場合には従来通り静的に割り当てるしかないからです。

結局のところ、VDIの導入はコスト削減や運用管理の低減、リソースの効率的利用を目的にする、というよりかは利用者へ新たなサービス提供を目的として導入する、と考えていたほうがよいのかなと思いました。

たとえば、利用者が自分のPCを持ってきた時に、RDWebアクセス提供サーバをDMZに置いておいて、イントラネットにあるサーバファームにつなげてどんな場所でも同一環境を提供する、、とかでしょうか。

まぁ、RDSサーバ環境でこと足りるのであればわざわざVDI導入はしなくてもよいかもしれませんね。

水無月2.リモートデスクトップ接続のセッション確認２

2011-06-27T23:34:00.000+09:00

前回、query sessionコマンドを利用した別サーバのセッション確認の記事を書きましたが、
山市さんのえぬなんとかわーるどで、PowerShellによるセッション確認についての記事がありました

リモートデスクトップセッションの RDP バージョンを調べる方法 by PowerShell
http://yamanxworld.blogspot.com/2011/06/rdp-by-powershell.html

以下にあるモジュールをダウンロードし、モジュールを読み込むことで、
リモートデスクトップセッション確認、さらには接続ユーザーへメッセージを送ったりプロセスを停止させるコマンドレットを使うことができるようになります。

Terminal Services PowerShell Module
http://psterminalservices.codeplex.com/

query sessionではせいぜいユーザー名や状態の出力くらいですが、

上記のモジュールを読みこむことで使用可能となる、Get-TSSessionはLoginした時間や接続したクライアントなど多岐にわたる情報が出力されます。

さらに、PowerShellであるため色々な応用が可能となります。

一定時間接続したユーザーに対してメッセージやログオフ処理を走らせたり、特定の端末が接続した場合のみ特殊な処理を実行させる、、ということもできそうです。

セッションの情報はRemoteAppで接続した場合でもきちんと出力されましたし、色々趣向をこらせそうですね。

では実際にやってみます。まず、モジュールを読み込み。
僕の環境では１度読み込んだらエラーが出るのですが、構わず２回読み込むと、うまくモジュール読んでくれました。

モジュールから追加されたコマンドレットをみてみます。
ついでにセッション確認のコマンドレットのヘルプもみてみます。

Get-TSSessionは、コンピュータの指定はもとより、状態やユーザーIDのフィルタなどもしてくれるみたい。

busoserverのセッション状態をみたところ。buso-pcからアクセスしているのがみてとれます。
Activeだけのものを出力できるので、それをリストとして出力させてみます。

ユーザーアカウントや、ログインした時刻、最後にinputした時刻なんかも出力されます。

query sessionとは比べ物にならない情報量ですねｗ

たとえば、ログインして１時間以上たってもまだアクティブなユーザーとクライアントを出したい場合には、以下のようにうてば出力できます。

Get-TSSession -ComputerName busoserver -State Active
| ?{ $($_.logintime).addhours(1) -le $(get-date) } | Select-Object clientname, l
ogintime, UserAccount

では、Send-TSMessageを組み合わせてみましょう。

busoserverでの出力。

ログインしすぎと言われたので、今回はこのへんで。

水無月1.リモートデスクトップ接続のセッション確認

2011-06-18T21:55:00.001+09:00

今、VDIの記事でも描こうかなぁと、検証中。
でも、その前にTipsなぞ。

まずはリモートデスクトップサービス（RDS）のおさらい
リモートデスクトップ機能概要
http://www.microsoft.com/japan/windowsserver2008/r2/technologies/rds.mspx

RDSは最近は、マルチメディアやプリンタのリダイレクトやAeroグラスのサポートなどもしています。
RDSの中でもいちばんスタンダードなリモートデスクトップ接続についてですが
遠隔からサーバを管理したり、PCに接続し動作させることなどができます。

@IT リモート・デスクトップでコンソール・セッションに接続する
http://www.atmarkit.co.jp/fwin2k/win2ktips/519rdcons/rdcons.html

上記の記事にはこうあります。

リモート・デスクトップで接続すると、それぞれの「セッション」ごとに固有のユーザー環境が用意される。セッションとは、ユーザーごとに用意される画面やキーボード、プロセス空間などの環境へ接続した状態のことを指す。リモートからログオンしたユーザーに対しても仮想的なコンピュータ環境が用意され、実際の物理コンソールの状態には関係なく、独立してコンピュータを利用できる。実際の物理的なコンソールから利用しているセッションのことを特に「コンソール・セッション」といい、リモートから接続しているセッションのことを「リモート・セッション」という。
セッションは、Windows XP Professionalでは同時に1セッションのみが利用でき、Windows Server 2003／Windows Server 2008の「管理用リモートデスクトップ」モードでは、同時に最大3セッション（1コンソール・セッション＋2リモート・セッション）まで利用できる。

本来、サーバに接続する場合にはライセンス（RDSCAL）が必要なのですが、３セッションまでは管理用として接続が許可されているわけです。
WindowsServer2008以降ではデフォルト設定では、アカウント1つに付き同時に1つのセッションだけの利用しかできないため、複数の管理者が同一アカウントで接続しようとした場合、作業中にいきなり画面が落ちてしまう（セッションがとられてしまう）場合があったりします。

さて、そんなことにならないよう、現在のセッションの状態を調べたい場合に "query session"コマンドがあります。

上記の例だと、administratorがrdp-tcp#１セッションで接続していることがわかります。
別端末から接続確認する場合には　/server オプションをつけると確認できます。

ただし、信頼関係をむすんでない別ドメインから接続したり、アクセス権限がないユーザーで実行すると、アクセス拒否されてしまいます。
そこで、psexec.exeを利用してみます。

psexec.exe
http://technet.microsoft.com/ja-jp/sysinternals/bb897553
psexec.exeは外部端末に指定した権限で接続し、コマンドを実行することができるツールです。
(これがなかなか便利)

というわけで、以下のバッチを作ったりしました。

@echo off
echo 確認したいサーバ名を入れてください。

set /p srv=サーバ名:
echo %srv%
psexec \\%srv% -u furyu\administrator query session

echo このまま接続しますか？
pause
start mstsc /v:%srv%

実行するとこのように出力されます。

これで、リモートデスクトップ接続する前にセッションを確認し、
よければそのままそのサーバへ接続する、という動きになります。

皐月3.仮想化タイプと住居２

2011-05-29T01:20:00.001+09:00

前回の続きです。
前回はタイプ２VMM、ハイブリッドVMMと見てみました。
今回は、タイプ１VMMとよばれる仮想化アーキテクチャをみてみましょう。
いわゆる、Hyper-VやXenなど現在主流となっているハイパーバイザによる方式は
このタイプ１VMMの形式にあたります。

今度は、寮をイメージしてみてください。

各ハードウェアを管理する管理人さんがいて、寮生の部屋のわりあてます。

もちろん、寮長もその対象。寮長はそこに住んでいる寮生の生活やあらゆる面倒をみている、というイメージです。

ハイブリッドVMMと違い、管理人さんがハードウェアを管理しているので寮生の要望にすぐ答えられるようになっています。

管理人さんにとって扱いやすいハードウェアも流通し（仮想化支援機能 IntelVT,　AMD-V)、寮生にとってはまるで自分の家のような快適さが実現されてきています。

さて、タイプ１VMMですが、管理人さんの管理の仕方で二つのタイプに分かれます。

モノリシック型の代表例として、VMWare ESX Server、KVMなどがあげられます。

対して、マイクロカーネル型はHyper-VやXenなどが例として上げることができます。

どちらもそれぞれ利点があるのですが、お絵かきWindowsなので（笑）

マイクロカーネル型であるHyper-Vについて今後色々と描いていきたいと思います。

なお、仮想化についてもっと詳しく知りたい、という人は以下の記事が参考になります。

エンジニアなら知っておきたい仮想化の仕組み

http://gihyo.jp/dev/serial/01/vm_work/0001

仮想化の歴史や、内部の動きなどが詳しく書かれています。

皐月2.仮想化タイプと住居

2011-05-23T23:21:00.000+09:00

仮想化によるアーキテクチャには主に３つ種類があります。
今回は、住居にたとえてみましょう。

まずはタイプ２VMM

タイプ２VMMは、仮想OSなどでは使われず、JAVAランタイムなどのアプリケーションでよく使われます。
イメージとしては、家主のみハードウェアを使い、住居人は仲介人によって、その人の環境にあった居住が与えられますが、直にハードウェアを扱うことはできません。
なお、JAVA仮想マシンや、.NETFrameworkの共通言語ランタイムなどがここでいう仲介人にあたります。

次にハイブリッドVMM

これは、不動産屋さん経由で指定のハードウェアを住居人にも扱えるようなイメージ。
とはいえ、不動産屋さんは間取りの割りあてとかはしてくれるものの、ハードウェアの管理は基本　大家さん主体。
住居人がもっとハードウェア使いたいッと言ってきたとしても、不動産屋さんは、いちいち大家さんにお伺いをたてないといけないため、住居人にとってはハードウェアを扱うには若干レスポンスが悪い。
また、不動産屋さんは誰でも使えるようにハードウェアで使うコンセントや蛇口などは大家さんと違った汎用性のある一般的なものに変換して各住居人に提供しています。
大家さんがあとから不動産屋さんと契約して（インストールして）住居人を入れることができるため、お手軽だけれども上述したようにレスポンスに難はあるのがポイントです。
ハイブリッドVMMにあてはまるのはVirtualPC2007,VMwareWorkstation,VirtualBoxなどがあげられます。

ちなみにWindows2008Serverで扱える Hyper-Vは、ハイパーバイザベースの仮想化テクノロジであり、タイプ１VMMによるアーキテクチャです。
次回は引き続き住居を例にして、タイプ１VMMと、さらにそこから分類されるモノリシック型とマイクロカーネル型について説明できればよいなと思います。

皐月1.仮想化はカップラーメン

2011-05-18T23:56:00.001+09:00

仮想環境に触れる機会が増えてきたので、自分なりに解釈したことを絵化していきたいと思います。

ちがう場合は指摘していただければありがたいです。

さて、コンピュータにおける仮想化とはそもそもどういうことなのでしょうか。
Wikipediaには以下のように書いてありました。

仮想化（英: Virtualization）とは、コンピュータにおいてリソースの抽象化を指す用語である。「リソースの物理的特性を、そのリソースと相互作用するシステム/アプリケーション/エンドユーザーから隠蔽する技法。単一の物理リソース（サーバ、OS、アプリケーション、補助記憶装置など）を複数の論理リソースに見せかけたり、複数の物理リソース（複数の補助記憶装置群やサーバ群）を単一の論理リソースに見せかけたりできる」という実用的定義がある[1]。また、単一の物理リソースを何らかの特性の異なる単一の論理リソースに見せかけることもできる。

Wikipedia-仮想化 http://ja.wikipedia.org/wiki/%E4%BB%AE%E6%83%B3%E5%8C%96

わかるような、わからないような・・
リソースの抽象化とはどういうことでしょう？
抽象化とは何か、またまたWikipediaで見てみます。

抽象化（ちゅうしょうか）とは、思考における手法のひとつで、対象から注目すべき要素を重点的に抜き出して他は無視する方法である。抽象化において無視することについては捨象するという。従って、抽象と捨象は盾の両面といえる。

Wikipedia-抽象化　http://ja.wikipedia.org/wiki/%E6%8A%BD%E8%B1%A1%E5%8C%96

つまり、コンピュータのリソースを対象から注目すべき要素を重点的に抜き出して他は無視する方法を仮想化という。。
うーん、なんとなくわかるけれど利点が見えづらい。

というわけで、少し現実世界にあるもの一例にとってみます。
例としてあげるのは・・　ラーメンです。

僕はラーメンが好きです。
特に北海道に行った時に有名ラーメン店「すみれ」で食べた味噌ラーメンは濃厚でとっても美味しかったー。
さてさて、このすみれの味噌ラーメンはもちろん北海道の「すみれ」に行かないと食べることは出来ません。また、北海道に行ったとしてもうどん屋や別のラーメン店に入ってしまうと当然すみれのラーメンなんか出てこないです。
つまり、すみれのラーメンを食べるためには、
北海道の　- 札幌にある　- すみれに行って -　味噌ラーメンを注文し、 - ラーメンを食べる
という段階を踏む必要があります。

さて、これを仮想化・抽象化しようとすると・・。
「対象から注目すべき要素を重点的に抜き出して他は無視する方法」が抽象化ということなので、ここで注目すべき要素とは何か。そう、「すみれのラーメンを食べること」ですね。
別に北海道の札幌のすみれのお店に行かなくても、すみれのラーメンを食べることができれば良いのです。つまり、どういうことかというと・・。

カップラーメン化です。

仮想化＝カップラーメン化

はい、これでわざわざ北海道にいかなくてもすみれのラーメンをすぐ食べることができるようになりました。つまり、「地理的（物理的）制約などは無視して、すみれにあるラーメンを重点的に抜き出した」ということでしょうか。

コンピュータの仮想化もいわゆる、カップラーメン化。
対象となる部分は、OSであったりアプリケーションであったり多岐にわたるけれども、要は重要なリソース部を抜き出して、それ以外の依存度を減らすこと。
JAVAやFLASHはプラグインを入れさえすれば、WindowsやMac、スマートフォンでも同じようにアプリケーションは動くし（アプリケーションの仮想化）、GoogleAppなどのクラウドはハードウェアごとまるまるカップラーメン化して、ネットさえつながれば非力なマシンですら同じようにサービスを受けることができるようになっています。

今現在　仮想化といえば、OSの仮想化を指すことが多いですけれど、
カップラーメンとして考えてみれば　おのずとメリット・デメリットがみえてくるのではないでしょうか。

東京電力電力供給状況APIを使ってPowerShellからデータ出力

2011-03-27T13:32:00.006+09:00

久々の投稿です。しばらくPowerShellを扱ってなかったので、リハビリ。

関東では現在計画停電が行われていますが、
有志にて東京電力の電力使用状況APIを公開している方がいます。

東京電力の電気使用状況 API
http://denki.cuppat.net/

これを利用して二日分の電力データをPowerShellにて出力してみます。

Function Get-Data {
    Param($date)
    if ($WebClient -eq $null) {
        $Global:WebClient=new-object System.Net.WebClient
    }
    $results=$webClient.DownloadString("http://denki.cuppat.net/data/$($date).json")
    $Results -match """hours"":\[(?<hour>.*)].*""capability""\:(?<cap>.*)," > $null
    $matches
}

Function Check-Data {
    Param($getdata)

    $Ltime = $getdata.hour -split ","
    $cap=$getdata.cap
    write-host キャパシティ $cap

    0..$(($Ltime.length)-1)|% {

        $p=$ltime[$_]/$cap

        if ($p -ge 0.95) {
            $colorname="red"
        }elseif ($p -ge 0.90) {
           $colorname="darkyellow"
        }else {
            $colorname="black"
        }
       

        $a="{0:00}時:電力{1} {2:00}% {3}{4}|" -F $_,$ltime[$_],$($p*100),$("#"*$($p*50)),$(" "*(50-$($p*50)))
        write-host $a -ForegroundColor $colorname
        }
}

$tdata=Get-Data($(get-date -uformat "%Y%m%d"))
$ydata=Get-Data($(get-date -uformat "%Y%m%d")-1)

check-data($ydata)
check-data($tdata)

実行した結果はこちら。
９０％以上の利用率で黄色、９５％以上で赤字で出力します。

こうみると、やはり夕方は電力量が上がってますね。

僕も引き続き、節電していきたいと思います。

PowerShellでTwitter

2010-12-20T22:47:00.013+09:00

ということでPowerShellを使って Twitterチェックスクリプトを作っているのだけど
自分のやりたい挙動の八割はできたー。
こうやってTwitterを眺めているとなかなか面白い。
少しずつ作成した箇所を紹介できればいいなぁと思います。

とりあえず、こちら。
Twitter API の仕様書　日本語訳
http://watcher.moe-nifty.com/memo/docs/twitterAPI.txt

あと、TwitterAPI searchについてはこちらも参考になりました。

Twitter Search API の使い方
http://www.ibm.com/developerworks/jp/xml/library/x-twitsrchapi/

なにはともあれ、Twitter Search APIを使って情報をとってみる。

Function Get-TwitterSearch {

 Param($searchTerm)

 if ($WebClient -eq $null) {
  $Global:WebClient=new-object System.Net.WebClient
 }

 $results=[xml]($webClient.DownloadString("http://search.twitter.com/search.atom?lang=ja&q=$SearchTerm"))
 $Searchitems=$results.feed.entry

 $SearchItems
}

Get-TwitterSearch関数をつくって、引数に検索する文字を入れることで、
Twitter情報をxml形式でひっぱって返してくれます。

検索の仕様だとかは上記の参考リンクを参照してもらうとして・・。

データをとれればしめたもの。あとはいくらでもPowerShellで編集できちゃいます。

とりあえず、名前と時間、つぶやきを取得したいのであればこんな感じ。

PowerShellをつぶやいた人をとってみました。

$tdata= Get-TwitterSearch PowerShell
$tdata | %{ write-host $_.author.name "--" $([datetime]$_.published); write-host $_.title; write-host }

あとはこれを応用すれば　

好きなキーワードをストリーミングでずっと流し続けることができると。

任意のユーザーに対しても検索できるので、その紹介はまた機会あらば。

ログの書き込みがあったら知らせるスクリプト

2010-11-15T23:39:00.003+09:00

前回の続き。
http://win-enikki.blogspot.com/2010/11/usbpowershell.html

前回はUSBメモリ使用者にログオフ時にメッセージ出力するスクリプトを紹介しました。
今回は、出力ログを監視することで監視者に知らせるスクリプトを紹介します。
とりあえず、スクリプト例を以下に表示します。

$writeDir="\\buso-pcv\test"
$writeTxt="usblog.txt"
$tmpColor= @("Red", "Blue", "Green", "Magenta", "DarkCyan")

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

$i = 0 #終了フラグ
$cl = 0 #カラーバリエーション
$watcher = New-Object System.IO.FileSystemWatcher              # FileSystemWatcherの作成
$watcher.Path = $writeDir                                      # 監視対象のフォルダ指定
$watcher.Filter = $writeTxt                                        # フィルター
$watcher.NotifyFilter = [System.IO.NotifyFilters]::LastWrite 

$NotifyIcon = New-Object System.Windows.Forms.NotifyIcon
$powerShellExe = "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe"
$icon = [System.Drawing.Icon]::ExtractAssociatedIcon($powerShellExe)
$notifyIcon.Icon = $icon
$notifyIcon.Visible = $true

Write-Host "チェック開始します。"

while ($i -ge 0)
{
    $result = $watcher.WaitForChanged([System.IO.WatcherChangeTypes]::ALL)
    $tmpVar = $(Get-Content "$writeDir\$writeTxt")[-1] -split ","
    
    Write-Host ""
    Write-Host "#########################################"
    Write-host "【コンピュータ】"　　$tmpVar[0] -ForegroundColor $tmpColor[$cl]
    Write-host "【ユーザー】"　　$tmpVar[1] -ForegroundColor $tmpColor[$cl]
    Write-host "【ログオフ時刻】"　　$tmpVar[2] -ForegroundColor $tmpColor[$cl]
    Write-Host "#########################################"
    
    $notifyIcon.ShowBalloonTip("1", "USBチェック", "USBメモリがささっているユーザーがいます", "Info")

    $cl+=1
    if ($cl -eq $tmpColor.length) {
        $cl=0
    }
}

ここでのポイントはFileSystemWatcher クラスです。
FileSystemWatcher クラス
http://msdn.microsoft.com/ja-jp/library/system.io.filesystemwatcher%28VS.80%29.aspx

監視ログを対象に、書き込みが発生したらログの最終行を出力させる。
また、ログは変更した場合分かりやすいようtmpColorにある配列順に文字色を代えるようにしています。
ついでに、NotifyIconクラスを使用してバルーン表示もさせています。
NotifyIconクラス
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.notifyicon%28VS.80%29.aspx

以上の結果でこのように表示されます。

出力ごとに色が変わり、バルーンも出力

このスクリプトは、今回だけでなく他でもログに書き込みがあった場合の監視ができるので、
色々汎用性が高いかなーとおもってます。

いかがでしょうかー。

USBメモリ抜き忘れ防止スクリプトをPowerShellでやってみる

2010-11-10T21:30:00.002+09:00

久々にPowerShellを使う機会にめぐまれたので、投稿します。

USBメモリ、今では安価となりかなり利用率は増えましたが
それと同時にメモリの抜き忘れも増えているみたいです。
なんとかならんのかー、という要望があったので
折角なのでPowerShellでログオフ時にUSBメモリがささっているとダイアログを出すスクリプトを作ってみました。
ちなみに、色々ネット上にある参考スクリプトをツギハギしたりしています。
使用時は自己責任でお願いします　＞＜

とりあえず、1つ目のポイントとして、USBメモリの有無確認ですが、
win32_usbhub クラスを利用することでみつけることができます。

Win32_USBHub クラス - WMI Fun !!
http://www.wmifun.net/library/win32_usbhub.html

USBメモリの場合、Nameが "USB 大容量記憶装置"であり、
Statusが"OK"であれば、ほぼちゃんと認識された状態のUSBメモリがささっているといえます。

Get-WmiObject -Class win32_usbhub | ? { $_.name -eq "USB 大容量記憶装置" } | ? { $_.status -eq  "OK" }

USBメモリをさしていた場合

あとは、ダイアログとして出すようにスクリプトを組めば完成です。
詳細は以下。

#USBログオフ時メッセージプロンプト処理
#メッセージ文
$messagePath="C:\temp\usbmessage.txt"
#ログ出力パス
$usbLOG="\\buso-pcv\test\usblog.txt"

#--------------------------------------
#メッセージボックス
#--------------------------------------
function MessageBox([string]$p_value = "")
{
    [Void][Windows.Forms.MessageBox]::Show($p_value,"お知らせ","OK", "Warning")
}


$crUSB = Get-WmiObject -Class win32_usbhub | ? { $_.name -eq "USB 大容量記憶装置" } | ? { $_.status -eq  "OK" }


if ($crUSB) {
    write-output "$env:computername,$env:username,$(get-date)" >> $usbLOG

    #Windowsフォームのロード
    [Void][Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms");

    MessageBox $([String]::Join("`r`n", (Get-Content $messagePath)))
   
}

メッセージ文は、いろんな人が編集する場所でもあることから、
別テキストからの呼び出しに。（ここでは　"C:\temp\usbmessage.txt"）
以下のようにusbmessage.txtに書いてみました。

USBがさしっぱなしだぞー( ﾟДﾟ)
誰かに盗まれても知らないぞ( ´∀｀)
って、席にもういないッッΣΣ(ﾟДﾟ；)

また、ダイヤログが出たときに、使用者のホスト名、ユーザー名、時刻を吐き出すようにしてみました。
このスクリプトをログオフスクリプトとして設置しておけば完了です。
実際に使用するとこんな感じ。

USB差しっぱなしでログオフした場合

usblogに記録されたログ

ちなみにGPOでPowershellのログオフスクリプトを管理する場合には、
スクリプト実行ポリシーを有効にすることと、PowerShell用のタブが別途あるので注意しましょう。
（あと、もちろん適用環境ではPowerShellがインストールされていることが前提です（笑））

GPOによるスクリプト実行ポリシーの許可

ログオフスクリプトのPowerShellタブ

また、「ハードウェアの安全な取り外し」を行わなくても大丈夫か？という点については
書き込み中でなければ、ほぼ問題ないとのこと。
ログオフ後ならなおのこと　その後ぬいても問題ないでしょう。
どうしても怖いというのであれば、もう一度ログインして手順を踏んで抜いてもらうということで。

USBメモリやUSB HDDを安心して取り外す　- ITmedia
http://bizmakoto.jp/bizid/articles/0710/03/news062.html

さて、これで使用者には注意を促しましたが、上記のメッセージにある通り
そもそも、使用者はログオフボタンを押した時点で皆　律儀に席に座っているとはかぎりません。

なので、USBメモリをさしてログオフした人を管理者へ知らせるスクリプトも作ってみました。

今回は長くなったので、スクリプトについてはまた次回。
ちなみに動作としてはこんな感じに出力させました。

USBメモリさし忘れ監視

ログを監視し続けて、書き込みがあったら出力、ついでにポップアップ表示もさせています。
では、また次回。（といって、またえらく時間あいたら嫌だな・・）

ActiveDirectoryでの監査ポリシーを考えてみる

2010-08-18T00:06:00.000+09:00

ADを運用していると、
オブジェクトの変更をしたりログイン・ログオフしたときの様々なログを取得したいーという要望があります。
そんな時は、ADによる監査ポリシーを使用するという手段がありました。
しかし、監査ポリシーの使用は精度があまり高くない、使いにくいという話もちらほら聞こえたりしていて
結局積極的に使用を控えていました。
しかし、2008R2Serverも浸透している現在、少し立ち戻って本当に使えないのか少し検証してみたいと思います。

・監査ポリシーとは
Technet 監査ポリシー
http://technet.microsoft.com/ja-jp/library/cc730601%28WS.10%29.aspx
上記にあるように、GPOによる設定で様々な「監査」を実施することで、セキュリティログへ情報を書き出します。
設定できる監査項目は以下のとおり。

http://technet.microsoft.com/ja-jp/library/cc787176%28WS.10%29.aspx

---

http://technet.microsoft.com/ja-jp/library/cc787567%28WS.10%29.aspx

---

http://technet.microsoft.com/ja-jp/library/cc737542%28WS.10%29.aspx

---

http://technet.microsoft.com/ja-jp/library/cc776774%28WS.10%29.aspx

---

http://technet.microsoft.com/ja-jp/library/cc728087%28WS.10%29.aspx

---

残り４つの監査項目はまた次回。
監査ポリシーの問題点や、チューニングについてもおいおい調べていきたいと思ってます。

DISMコマンド

2010-08-09T23:34:00.000+09:00

DISMコマンドは7には標準搭載されているコマンドですが、色々できるようです。

WindowsTips
新しい DISM ツールを使用して Windows イメージを準備およびサービスする
http://technet.microsoft.com/ja-jp/windows/ee183884.aspx

COMPUTERWORLD BLOG
VHD のオフラインパッチ by DISM
http://blog.computerworld.jp/2010/08/09/offlinepatch-by-dism/

@IT
Windows 7／Windows Server 2008 R2のコンポーネントをdismコマンドで管理する
http://www.atmarkit.co.jp/fwin2k/win2ktips/1296dism/dism.html

な○の屋
WinPE 3.0 ( Windows AIK for Windows 7 )
http://yuichi.tea-nifty.com/blog/2009/08/winpe-30-window.html

Windows 7 エンタープライズショートビデオ
How Do I: Deployment Image Servicing and Management (DISM)?
http://technet.microsoft.com/ja-jp/windows/dd320284.aspx

---
Dism /? でヘルプが出ます。
上記記事にあるように、適用したパッチをオフラインからアンインストールしたり、
イメージを展開することなく、更新プログラムの確認などができるようです。

まだ、イメージ展開サービスやVHDファイルを運用レベルで使ってはいないのですが、
今後使用する機会もあるかもしれないですねー

PowerShellにしゃべらせる

2010-06-04T01:11:00.004+09:00

Windowsでしゃべらせるには色々な方法があるみたいですが、
.NET Framework 3.0 を入れているのであれば、Speech.Synthesis.SpeechSynthesizerクラスを使うのが楽っぽいです。

$null = [Reflection.Assembly]::LoadWithPartialName("System.Speech")
$SMSpeaker = new-object System.Speech.Synthesis.SpeechSynthesizer

あとは Speakメソッドでしゃべらせるだけ。

$SMSpeaker.Speak("hello buso")

日本語はデフォでは対応していないらしく、Office2003についてくるLH Kenj なんかの音声合成エンジンを使わなければならないっぽい。
２０１０も出る今となってOffice2003といわれてもなぁ。
ちなみに、ツイッターと連動させて読み上げさせるスクリプトを作っている人もいました。
うーん、僕も日本語でも読み上げさせたいぞ。

まぁ、監視として、何かあったら読み上げるというのもこれで簡単にできそうですね。

サーバのグループポリシーのリンク監視の方法を模索してみるその３

2010-06-01T00:14:00.002+09:00

さらにグループポリシーリンク監視の模索の続き。
サーバのグループポリシーのリンク監視の方法を模索してみるその１
サーバのグループポリシーのリンク監視の方法を模索してみるその２

前回、前々回とポリシー編集とリンクの付与の比較を出力する方法を模索し、
スクリプトを作ってみました。処理内容はこんな感じ。

エラー時の動作などはまったく組み込んでないので参考程度でどぞ。

#CheckGPO

Import-Module activedirectory
Import-Module grouppolicy

#origpoファイルの場所
$workpath="C:\hogehoge\"

#メール配信先設定
$smtpHost = "SMTPサーバアドレス"
$mailfrom = "FROMのアドレス"
$mailto = "メール配信先"
$mailsubject = "GPOCheckログ"
$mailer = New-Object System.net.mail.smtpclient($smtpHost)

function comparegpo ($crlink, $orilink, $crgpo, $origpo) {
    
#gpo設定　変更された場合は新しいGPOのバックアップを行い oriファイルを更新
    compare-object $crgpo $origpo -property modificationtime,gpostatus,displayname | Set-Variable diffgpo
    if ($diffgpo) { 
        "$(get-date) :--GPO変更が発生しました"
        $diffgpo | sort displayname | ft -AutoSize
    $timename=$(Get-ItemProperty $workpath\origpo.xml).LastWriteTime -replace "[/,:, ]",""

    $diffgpo | ? { $_.sideindicator -eq "<=" } | % { "backup実施"; backup-gpo $_.displayname -path $workpath\gpbackup | fl }
    move-item $workpath\origpo.xml $workpath\log\$timename"gpo.xml" | Out-null
        $crgpo | Export-Clixml $workpath\origpo.xml
     }

#link設定 　変更された場合は oriファイルを更新
    compare-object $crlink $orilink -Property target,displayname,enabled | Set-Variable diffgpl
    if ($diffgpl) { 
        "$(get-date) :--GPO Linkに増減が発生しました"
        $diffgpl | sort displayname | ft -AutoSize
    $timename=$(Get-ItemProperty $workpath\orilink.xml).LastWriteTime -replace "[/,:, ]",""
    move-item $workpath\orilink.xml $workpath\log\$timename"orilink.xml"
        $crlink | Export-Clixml $workpath\orilink.xml 
    }

}

#origpo存在チェック
if (test-path "$workpath\origpo.xml"){
    $origpo=Import-Clixml "$workpath\origpo.xml"
} else {
    "origpo.xml NotFound"
    get-gpo -all | Export-Clixml $workpath\origpo.xml
    return
}

if (test-path "$workpath\orilink.xml"){
    $orilink=Import-Clixml "$workpath\orilink.xml"
} else {
    "orilink.xml NotFound"
    Get-ADOrganizationalUnit -Filter 'Name -like "*"' | % { Get-GPInheritance -Target $_ } | ? { $_.gpolinks -ne "" } | % { $_.path; $_.gpolinks } | Export-Clixml $workpath\orilink.xml
    return
}


#現在のOU状態の取得
$crlink = Get-ADOrganizationalUnit -Filter 'Name -like "*"' | % { Get-GPInheritance -Target $_ } | ? { $_.gpolinks -ne "" } | % { $_.path; $_.gpolinks }
$crgpo = get-gpo -all


#比較対象を関数で渡し、戻り値が存在した場合にはメールを出す
$result=comparegpo $crlink $orilink $crgpo $origpo

if ($result) { 
    $mailbody=[string]::join("`r`n", ($result | out-string -width 200 ))
    $mailer.send($mailfrom, $mailto, $mailsubject, $mailbody )
    $result | out-string -width 200 > $workpath\recent.log
    $result
    "変更が発生し、メールを出しました"
}

$work フォルダの配下にlog フォルダと、 gpbackupフォルダを用意してください。
適当にGPOを変更かけて、リンクをつけたあとにスクリプトを実行してみました。

あとはこのスクリプトを一定時間のタスクで回しておけば、
多少の監視にはなるかなぁと。

結局、サイトのGPOは対応できなかったけどなッッ

IPv6を勉強する

2010-05-25T00:07:00.000+09:00

IPv6アドレス。
Vistaのころも多少は浸透していましたが、
７になってからもはや標準となりつつあり、v4の頃と勝手が違ってきているので少し勉強してみたいと思います。
（Windowsの電卓で　表示を「プログラマ」にすると値の計算なり色々やりやすいです）

IPv4と比較しつつ、違いをみてみる。

・アドレス表記

16進表記のほうが、10進より確かに把握しやすいやも。
とりあえず、16ビットずつ：で区切られ、1桁は4ビット分として16進表記で表されているというのを
覚えておこぉ

その他にもv4でいうところのプライベートアドレスやら、
v4との互換性も見ていかないといけないですね。　それはまた次回以降ということで。

サーバのグループポリシーのリンク監視の方法を模索してみるその２

2010-05-24T00:27:00.000+09:00

前回の続き。
前回は、OUのリストを取得し、そこに貼られているGPOを出力するということをやりました。
で、OUに貼られているGPOはとれてもサイトに貼られたGPOはとれないね、というところまでやりました。

・・・まぁ、サイトに関するGPOはとりあえずおいとく（笑）
できるところを固め、そこから順次付け足すというのが　僕の今ままでの手法なので
とりあえずできそうなところからやってみます。
ということで、オリジナルGPOと変更したGPOを比較する手法を今回はやってみます。

前回はリンクに関することしか触れませんでしたが、
PowerShell v2 のgrouppolicy モジュールにはGet-GPO というGPO情報を取得できるコマンドがあります。

PS > Import-Module grouppolicy
PS > get-gpo -all

-All オプションをつけることで、すべてのGPOの情報を取得できます。
情報としては、Statusや、変更時刻などが記されているので、この情報を保存します。
PowerShellだとオブジェクトはXMLファイルとして保存できるので、それを利用してみます。

PS > Get-GPO -All | Export-Clixml -Path .\origpo.xml

では、試しにGPOを変更して、比較してみましょう。
↓が現在のGPO

GPOtest1を内容変更、GPOtest2を「すべての状態を無効」 GPOtest4を削除してみます。

では、さっき保存したorigpo.xml と現在のGPOを比較してみます。

PS > $origpo=Import-Clixml .\origpo.xml
PS > $crgpo=Get-GPO -All

PS > Compare-Object $crgpo $origpo -Property displayname,modificationtime,GpoStatus | sort displayname

表示名、変更時刻、ステータスを比較対象として出力してみました。
ちゃんと、変更された、削除されたGPOが出力されていますねー。
これを定期的に実行、タスクに組み込むことで変更に対する監視ができるのではないでしょうか。
前回のOUリンクも同じ方法でオブジェクトを保存し、リンクの比較をしてみるとよいかもですね。

・・でも、サイトのやりかたはやっぱりわからんｗ

サーバのグループポリシーのリンク監視の方法を模索してみる

2010-05-19T00:00:00.006+09:00

さて、久々の更新です。
独りよがりで描かず、今後は定義を再確認しつつ
わかりやすく絵で表現していこうかなーと思っていたのですが、
少し作ってみたいPowerShellのスクリプトができたので、
やっぱり今回もPowerShellのメモ描きですｗ

その作ってみたいスクリプトとは・・

他に良い案があればみなさんに教えてもらうとして・・(笑)
とりあえず、泥臭い手段でPowerShellを使って模索してみます。

PowerShell v2 になってからADに関するモジュールが追加されたので、それを利用してみましょう。
とりあえず、ActiveDirectory と、GroupPolicy のモジュールを追加してみる。

PS > Import-Module activedirectory
PS > Import-Module grouppolicy

これにより、ADやグループポリシーに関するコマンドを使用することができます。

PS> Get-Command -module activedirectory

CommandType     Name                            Definition
-----------     ----                            ----------
Cmdlet          Add-ADComputerServiceAccount    Add-ADComputerServiceAccount...
Cmdlet          Add-ADDomainControllerPasswo... Add-ADDomainControllerPasswo...
Cmdlet          Add-ADFineGrainedPasswordPol... Add-ADFineGrainedPasswordPol...
Cmdlet          Add-ADGroupMember               Add-ADGroupMember [-Identity...
Cmdlet          Add-ADPrincipalGroupMembership Add-ADPrincipalGroupMembersh...
：

PS > Get-Command -module grouppolicy

CommandType     Name                            Definition
-----------     ----                            ----------
Cmdlet          Backup-GPO                      Backup-GPO -Guid -Pat...
Cmdlet          Copy-GPO                        Copy-GPO -SourceGuid ...
Cmdlet          Get-GPInheritance               Get-GPInheritance [-Target] ...
Cmdlet          Get-GPO                         Get-GPO [-Guid] [[-Do...
Cmdlet          Get-GPOReport                   Get-GPOReport [-Guid] ...

さて、では例として下記のようにGPOがリンクされていた場合。

GPOのリンクが何がついているかを見るには、　Get-GPInheritance　コマンドレットを使います。

PS> Get-GPInheritance -target　"OU=GroupA,OU=UserList,DC=furyu,DC=local"

Name                  : groupa
ContainerType         : OU
Path                  : ou=groupa,ou=userlist,dc=furyu,dc=local
GpoInheritanceBlocked : No
GpoLinks              : {GPOtest1, GPOtest2}
InheritedGpoLinks     : {GPOtest1, GPOtest2, Default Domain Policy}

ちょっとこれだけだとわかりづらいから、 GpoLinks だけを取り出してみる。

PS > Get-GPInheritance -target "OU=GroupA,OU=UserList,DC=furyu,DC=local" | % { $_.gpolinks }

GpoId       : 09ecc96a-2d91-4594-8474-4404e82241d2
DisplayName : GPOtest1
Enabled     : True
Enforced    : False
Target      : ou=groupa,ou=userlist,dc=furyu,dc=local
Order       : 1

GpoId       : 72e4f0a0-7b01-4944-9fba-6ad14faefb49
DisplayName : GPOtest2
Enabled     : True
Enforced    : False
Target      : ou=groupa,ou=userlist,dc=furyu,dc=local
Order       : 2

これで、　OUが "OU=GroupA,OU=UserList,DC=furyu,DC=local" のかかっているリンクのGPOをとりだすことができました。
しかし、監視するとなると全OUのリンク状況を知らないといけないですよね。
というわけで、全OUを列挙してみましょう。
OUを出すには、ActiveDirectoryモジュールを追加してできた、Get-ADOrganizationalUnit　コマンドレットを使います。

PS > Get-ADOrganizationalUnit -Filter 'Name -like "*"'

City                     :
Country                  :
DistinguishedName        : OU=Domain Controllers,DC=furyu,DC=local
LinkedGroupPolicyObjects : {CN={6AC1786C-016F-11D2-945F-00C04fB984F9},CN=Polici
                           es,CN=System,DC=furyu,DC=local}
ManagedBy                :
Name                     : Domain Controllers
ObjectClass              : organizationalUnit
ObjectGUID               : ee6dfe99-a1f5-4579-b810-d12d22fcdfff
PostalCode               :
State                    :
StreetAddress            :
：

これで全OUを取り出せるので、このオブジェクト群を変数にいれてしまいます。

PS > $oulist=Get-ADOrganizationalUnit -Filter 'Name -like "*"'

では、この変数を利用してリンクが貼られているOUとそのGPOを出してみましょう。

PS > $oulist | % { Get-GPInheritance -target $_ } | ? { $_.gpolinks -ne "" } | fl -Property path,gpolinks

Path     : ou=domain controllers,dc=furyu,dc=local
GpoLinks : {Default Domain Controllers Policy}

Path     : ou=groupa,ou=userlist,dc=furyu,dc=local
GpoLinks : {GPOtest1, GPOtest2}

Path     : ou=groupb,ou=userlist,dc=furyu,dc=local
GpoLinks : {GPOtest2, GPOtest3, GPOtest1, GPOtest4}

あとは、このオリジナルのリストと、取得したリストを比較するスクリプトを定期的にタスクで流して差異がでたら報告、みたいな作りをさせればなぁと思ったのですが。

そんなわけで、もう少しやり方考えなきゃなぁと思ってます。

クラシック表示のシェルをオンにする

2010-04-16T00:07:00.000+09:00

この時期はリプレースがあったりして、当然７も新たにドメインに参加することになったりしてます。
で、今回発覚したのがGPOの「クラッシック表示のシェルをオンにする」の機能変更。

このポリシー自体は、エクスプローラをクラッシック表示に切り替え、
エクスプローラーの処理の負担や消費メモリ量の軽減させ軽快な動作をはかることができるのですが。。

しかし、今までは「有効」にすることで強制的にダブルクリックになっていたのに
７からは「有効」にするとシングルクリックが適用されるという・・。ひどいッッ
混在している環境だったらどうやって統一させろというんだろう・・。

ちなみに、フォルダオプションを見ても見た目上は「ダブルクリックで開く」になってます。
とりあえず、現状適用されているかどうかを見る場合は、レジストリを見るとてっとり早いです。

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
ClassicShell 　DWORD値

クラッシック表示のシェルに関してはこちらのブログで詳しく紹介されていますので、どうぞ。
attosoft.info Blog
http://attosoft.info/blog/win-accel/item-useclassicshell/

タスクスケジューラ設定

2010-04-04T21:10:00.000+09:00

4月1日、エイプリルフール。
円谷プロでは毎年手のこんだサイトを作りあげるが、
今年はTwitterの模倣、円谷ッターをやっていた。
円谷ッター（跡地）
http://tsubutter.m-78.jp/

ウルトラ兄弟と怪獣達が円谷ッターを使って、
4月1日終日ずーっとつぶやいていた。
0時から23時までほぼずっと誰かがつぶやいていたけれど、
流石に社員がずっと張り付いていたわけではあるまい。
（ゴモたんは別だろうけれどもｗ）

先週ツギハギで作ったTwitterスクリプトを利用しつつ、
Twitterのタスクスケジュールつぶやきができないかなぁと考えたが・・

簡単にできると思ったが、思った以上に苦労。

まず、Windowsのタスク処理を見なければなるまい。
Vista,2008Serverからタスクスケジューラの機能が大きく変わった。
「IT Prp：　大幅に強化されたWindows Server 2008のタスク・スケジューラ」
フォルダを作成し、タスクを管理するライブラリ機能もつき管理しやすくなったようだ。

それを踏まえた上で、この記事を参照してみよう。
「Hey, Scripting Guy!：　タスクスケジューラを使って効率的に作業する方法はありますか」
PowerShellを利用したタスク管理のスクリプトである。
上記のスクリプトを使って、「Twitter」ライブラリを作ってみる。

デフォルトのタスクスケジューラ

. .\taskps.ps1
New-TaskFolder -folder (New-TaskObject) -path "\twitter"

Name                                                             Path
----                                                             ----
twitter                                                          \twitter

Twitterフォルダが作成された。

続いて、タスクの登録に関しては以下の記事。
「Hey, Scripting Guy!：　スケジュールされたタスクを複数のコンピューター上に作成する方法はありますか」

と、上記を参考にしながら昨日ガシガシ作ったのだけど、
特殊なことをせず、素直にATコマンドを使えば良かったような気がする・・。
あらかじめ未来のつぶやきを設定して「おえかき　うぃる」とつぶやきたかったのです。。
完成したにはしたけれど、ちょっと微妙な感じなので今回はコード公開は見送り。

PowerShellでTwitter投稿

2010-03-28T12:54:00.006+09:00

こんな記事を見た。

twitter で大学のネットワークを監視　[これでも大学職員のブログ -情報センター勤務中-]
http://d.hatena.ne.jp/daigaku-syokuin/20100326/p1

と、いうわけで探してみました。
やはりPowerShell経由でTwitter投稿するスクリプトを作っている方がいました。

SAPIEN Technologies
http://blog.sapien.com/index.php/2008/06/23/out-twitter/

Mike Ormond's Blog
http://blogs.msdn.com/mikeormond/archive/2009/01/30/updated-twitter-powershell-script.aspx

素晴らしい。で、二つのスクリプトの良いとこ取りをしてくっつけてみた。
以下をFixtwit.ps1 として保存してください。

Function Out-Twitter {

    BEGIN {
            #check for global Twitter credential
            if (!$global:Twitter_Credential) {
                $global:Twitter_Credential=Get-Credential
            }
    }

    PROCESS {

        #turn off error pipeline
        $erroractionpreference="SilentlyContinue"

        [string]$tweet=$_

        ##Twitter投稿関数
        function SubmitWebRequest(
            [string] $RequestUrl,
            [string] $RequestMethod,
            [string] $RequestContentType,
            [string] $PostString,
            [string] $Username,
            [string] $Password
            )
        {
          [System.Net.ServicePointManager]::Expect100Continue = $false

          $request = [System.Net.WebRequest]::Create($RequestUrl)

          if ($Username) {
            $request.Credentials = new-object System.Net.NetworkCredential($Username, $Password)
          }

          $request.Method = $RequestMethod

          if ($RequestMethod -ieq "POST") {
            $request.ContentType = $RequestContentType

            $formdata = [System.Text.Encoding]::UTF8.GetBytes($PostString)
            $request.ContentLength = $formdata.Length
            $requestStream = $request.GetRequestStream()
            $requestStream.Write($formdata, 0, $formdata.Length)
            $requestStream.Close()
          }

          $response = $request.GetResponse()

          $reader = new-object System.IO.StreamReader($response.GetResponseStream())
          $returnvalue = $reader.ReadToEnd()
          $reader.Close()

          return $returnvalue
        } #end function

        #Short Url
        Function Get-Snurl {
            Param([string]$link="http://www.google.com")

            $tinyurlrequest = "http://tinyurl.com/api-create.php?url=$link"


            write-progress "Tweeting" "Getting tiny URL" -cu $tinyurlrequest
            $tinyurl = SubmitWebRequest $tinyurlrequest "GET"
            write-debug "Tweeting - Received tiny URL Response: $($tinyurl)"
            write $tinyurl

        }
        #search for web links using Regex
        [regex]$regex="(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"

         If ($tweet -match $regex) {
                  $link=$matches[0]
          }

         #if an embedded url was found, convert it to a snurl link
         if ($link) {
            $snurl=Get-Snurl $link
            $tweet=$tweet.Replace($link,$snurl)
         }

        if ($tweet.Length -gt 140) {
            Write-Warning ("Your message is " + (($tweet.length)-140) + " characters too long.")
            $clear=$True
            return
        }


        $tweetstring = [String]::Format("status={0}", $tweet)
        $request = [Net.WebRequest]::Create($url)
        $twitusername=$global:Twitter_Credential.GetNetworkCredential().Username
        $twitpassword=$global:Twitter_Credential.GetNetworkCredential().Password

        $twitResponseText = SubmitWebRequest `
                                    "http://twitter.com/statuses/update.xml" `
                                    "POST" `
                                    "application/x-www-form-urlencoded" `
                                    $tweetstring `
                                    $twitusername `
                                    $twitpassword
        write-debug "Tweeting - Posted status update. Response: $($twitResponseText)"

   }

    END {
        #if there was an error, then don't keep the global Twitter
        #credential
        if ($clear) {
            Remove-Variable Twitter_Credential -scope Global
            }
        }

} #end Function

じゃば、使ってみる。

PS 2010/03/28 12:23> . .\fixtwit.ps1
PS 2010/03/28 12:24> "もう昼・・お腹すいた・・" | Out-Twitter

fixtwit.ps1 をドット化して実行。
つぶやきたい言葉をはいて、パイプを通し　Out-Twitter　を実行。

実行すると資格情報を聞かれるので、
Twitterのアカウントとパスワードを入力する。

入力すると処理が走り、投稿完了。

投稿されていることが確認できた。
~~URL短縮もされるはずなんだけど、うまく行く時と行かないときがあるような。。~~
~~なんでだろう。~~

↑修正しました。

あくまでツギハギなので本家のスクリプトを見に行ってください。
これをPowerShellのバックグラウンド処理を使えば監視っぽいことはできるかもですね。