PowerShellタイムロギングスクリプト

#initialization
   $timeInterval = 30 #monitoring interval
   $record = @{"Coding" = 0; "Outlook Email" = 0; "Gmail" = 0; "Google Reader" = 0; "BBS" = 0; " Other Internet" = 0; "Documents" = 0;}
  $count = 0
  $date = date -format "yyyyMMdd"
  #try to resume
  if (test-path "d:\temp\timeRecord$date.txt") {
    gc "d:\temp\timeRecord$date.txt" | % {if ($_ -match "\w+\s+\d+") {
      $groups = [Regex]::Match($_, "^(\w+\s?\w+)\s+(\d+)").Groups;
      $record[$groups[1].Value] = [int]::Parse($groups[2].Value);
    }}
  }
  #start to monitor
  while ($true)
  {
    $titles = ps | ? {$_.MainWindowTitle} | select MainWindowTitle
    $titles | % {
      if ($_ -match "Google Reader - Windows Internet Explorer") {$record["Google Reader"]+++;}
      else {if ($_ -match "Gmail - Windows Internet Explorer") {$record["Gmail"]+++;}
      else {if ($_ -match "Internet Explorer") {$record["Other Internet"]+++;}
      else {if ($_ -match "Visual Studio") {$record["Coding"]+++;}
      else {if ($_ -match "Microsoft Word") {$record["Documents"]+++;}
      else {if ($_ -match "Microsoft Office OneNote") {$record["Documents"]+++;}
      else {if ($_ -match "Microsoft PowerPoint") {$record["Documents"]+++;}
      else {if ($_ -match "Message (HTML)") {$record["Outlook Email"]+++;}
      else {if ($_ -match "bbs") {$record["BBS"]+++;}
      }}}}}}}}
    }
    sleep($timeInterval)
    $count = ($count + 1) % 10 # To prevent data loss, write to the file once every 10 records
    if ($count -eq 0) {$record > "d:\temp\timeRecord$date.txt"}
  }

set-executionpolicy Unrestricted

function foo ( [int] $x)
{
$x = $x + 1
echo $x
}
foo (1 )