redmineの wikiマクロで graphviz その1
redmineの wikiマクロで graphviz その2
redmineの wikiマクロで graphviz その3

tckz's redmine-wiki_graphviz_plugin at master - GitHub

0.8.7： http://example.com/wiki/project_id/WikiPage
0.9-stableブランチ： http://example.com/projects/project_id/wiki/WikiPage

require File.join(File.dirname(__FILE__), "config", "routes.rb")

ActionController::Routing::Routes.draw do |map|

  if (Redmine::VERSION.to_a <=> [0, 9, 0]) >= 0
    # 0.9.0 or higher
    map.connect 'projects/:id/wiki/:page/graphviz', :controller => 'wiki_graphviz', :action => 'graphviz'
  else
    map.connect 'wiki/:id/:page/graphviz', :controller => 'wiki_graphviz', :action => 'graphviz'
  end
end

$cnames = gwmi -Class MicrosoftDNS_CNAMEType -Namespace Root\MicrosoftDNS -ComputerName DCコンピュータ名
$cname = $cnames | ? {$_.OwnerName -eq "cname.example.com"}
$cname.Modify($null, "some.example.com.")

• CNAMEもAレコードも事前に作成してある前提なので、見つからない場合を考えていない。
• 適切な権限が必要。

• セットアップファイルに「/e」オプションを付けて実行し、中身を取り出す。
• VMware-player-3.0.0-203739.exe /e c:\path\to\somewhere
  
• network.cabというファイルの中にvmnetcfg.exeがあるので、これを取り出してplayerのインストール先にコピー。
• 自分ところでは管理者として実行したエクスプローラ上でコピーした。

<property name="dist" location="dist"/>

<target name="export_plugin">
  <pde.exportPlugins 
     destination="${dist}" 
     exportSource="false" 
     exportType="directory" 
     plugins="com.example.plugins.id" 
     useJARFormat="true"/>
</target>

SET JAVA_HOME=C:\Program Files\Java\jdk1.5.0_21
SET PATH=%JAVA_HOME%\bin;%PATH%

java -jar C:\path\to\eclipse\plugins\org.eclipse.equinox.launcher_1.0.101.R34x_v20081125.jar -application org.eclipse.ant.core.antRunner -data "C:\path\to\workspace" -buildfile build.xml

• CPU：Phenom II 965
• M/B：Gigabyte MA790FX-DQ6
• メモリ：6GB（ここで書いた理由でDDR2）
• VGA：Radeon HD 3850
• HDD：WDC WD740ADFD（結構前のRaptor）

• Teraterm：ちょうどCentOS5.4が公開されたところでサーバメンテ用にインストールした。フォントの設定に「Terminal」が現れず困った。
  コンパネ→フォントで、Terminalフォントを「表示」にしないと選択肢に出てこない。
• iTunes：x64版をインストール。ストアの表示であるとか、iPodの同期は普通に出来た。
• アンチウイルス：とりあえずのインストール（ライセンス認証も保留にした）なので、いつものNOD32でなく「Microsoft Security Essentials」をインストール。重いのか軽いのかもう1つ実感はわかず。
• Vista 64ビットでは動かなかった（ウチの環境固有の問題かも）USB外付けDVD-ROMドライブ（Logitec LDR-PMC8U2）が標準ドライバで使えたのはちょっとうれしい。
  ※CD-ROMの読みこみに使っただけなので、書き込めるかどうかは知らない。
• Aeroシェイクの使いどころがわからん・・・。
• 左右にウィンドウをスナップさせるやつの使いどころがわからん・・。ウィンドウを左右並べて比較することってそんな多いかなあ。
  

1. MA790FX-DQ6のオンボードNICは認識されなかった。
   インストーラの起動時点で「failed to load lvmdriver」で動かず。
   RealtekチップがHCLにないのは知っていたので、以前購入しておいたIntel PRO/1000 CT（PCI express） をさしてクリア。
   
   
2. MA790FX-DQ6のオンボードSATAポートにぶらさがってるHDDは認識されなかった。
   インストーラ起動するも、「unable to find supported device to write」で終了。
   ネットで見かけたインストーラのスクリプトを書き換える作戦もやってみたが認識せず（そもそもデバイスが見えてないようなので当然といえば当然）。上記非公式HCLを見る限りでは（このM/Bの）オンボードSATAでは無理そう。
   
   ではSATAポート拡張カードをさしたらどうかということで、内側SATAポートを持っていてHCLに載っているSATAカード（かつお手ごろなやつ）を探した。最終的にはRATOCのREX-PCI15S を購入。
   カード上のジャンパを「BIOS有効」に変更し、オンボートSATAは全部disableにした。
   
   チップはSilicon Image製Sil 3512。本当はPCIe接続のものがよかったのだけどHCLに載ってないので冒険せず(^^
   RATOCの製品は、製品ウェブページでもパッケージでも使っているチップがはっきり書いてあって好感度高し。
   
   
3. ESXiをUSB Flashメモリに書き込んでの起動にチャレンジするも、USBメモリからの起動自体が出来ず挫折。。。
   同メモリをThinkpad X60に挿すとESXi起動途中まではいけるので、書き込み自体は問題ないはず。。
   

製品の機能:
    最大 8 ウェイの Virtual SMP
    ESX Server 用 vCenter Agent
    vStorage API
    VMsafe
    DVfilter
    VMware HA
    ホットプラグが可能な仮想ハードウェア
    VMotion
    VMware FT
    Data Recovery
    vShield ゾーン
    VMware DRS
    Storage VMotion
    MPIO / サードパーティ マルチパス
    分散仮想スイッチ
    ホスト プロファイル

製品の機能:
    最大 256 GB のメモリ
    最大 4 ウェイの Virtual SMP

• javaのpropertiesに対応している。
• （翻訳メモリ的には当たり前だろうけど）用語集を定義できる。
• 既翻訳文から類似した部分を提示してくれる。
• 無償で利用できる。
  
• UIがすっきりしていると思う。

set JAVA_HOME=C:\Program Files\Java\jdk1.6.0_15
set OMEGAT_HOME=c:\Program Files\OmegaT
cmd /c c:\path\to\ant\bin\ant.bat

	<property name="project" location="omegat"/>
	<property environment="env"/>

	<target name="gentext">
		<java
			fork="true"
			jar="${env.OMEGAT_HOME}/OmegaT.jar"
			failonerror="true">
			<arg value="${project}"/>
			<arg value="--mode=console-translate"/>
		</java>
	</target>

$fn = "utf8.txt"
$text = [String]::Join("`n", (get-content -encoding UTF8 $fn))

$word = new-object -comObject "Word.Application"
$word.Visible = $true

$doc = $word.Documents.Add()

$range = $doc.Content
$range.Text = $text

$doc.CheckGrammar()

• 「すべてのコンピュータ」に対して
• 更新の名前に「ルート証明書の更新プログラム」を含む
• インストール承認する

$all_computers_group = $update_server.GetComputerTargetGroup([Microsoft.UpdateServices.Administration.ComputerTargetGroupId]::AllComputers)
$target_computer_group = new-object Microsoft.UpdateServices.Administration.ComputerTargetGroupCollection
$target_computer_group.Add($all_computers_group) | out-null

$update_scope = new-object Microsoft.UpdateServices.Administration.UpdateScope
$update_scope.TextIncludes = "ルート証明書の更新プログラム"

foreach($update in $update_server.GetUpdates($update_scope) | sort ArrivalDate)
{
  if($update.IsDeclined -or -not $update.IsLatestRevision)
  {
    # 既に拒否済みのもの
    # 最新リビジョンでないもの
    # は相手にしない
    continue
  }

  foreach($target_group in $target_computer_group)
  {
    $update.Approve(
      [Microsoft.UpdateServices.Administration.UpdateApprovalAction]::Install,
      $target_group) | out-null
  }

trap [Exception] {
  $t = $error[0].ToString().Trim() + "`n" + $error[0].InvocationInfo.PositionMessage.Trim()
  [Diagnostics.EventLog]::WriteEntry("approve_update", $t, "Error", 1)
}
 
[reflection.assembly]::LoadWithPartialName("Microsoft.UpdateServices.Administration") | out-null
$update_server = [Microsoft.UpdateServices.Administration.AdminProxy]::GetUpdateServer()
$update_server.PreferredCulture ="ja"
 
$all_computers_group = $update_server.GetComputerTargetGroup([Microsoft.UpdateServices.Administration.ComputerTargetGroupId]::AllComputers)
$unassigned_computers_group = $update_server.GetComputerTargetGroup([Microsoft.UpdateServices.Administration.ComputerTargetGroupId]::UnassignedComputers)
 
$target_computer_group = new-object Microsoft.UpdateServices.Administration.ComputerTargetGroupCollection
$target_computer_group.Add($all_computers_group) | out-null
 
# 更新に対する条件
$update_scope = new-object Microsoft.UpdateServices.Administration.UpdateScope
$update_scope.TextIncludes = "ルート証明書の更新プログラム"
 
 
foreach($update in $update_server.GetUpdates($update_scope) | sort ArrivalDate)
{
  if($update.IsDeclined -or -not $update.IsLatestRevision)
  {
    # 既に拒否済みのもの
    # 最新リビジョンでないもの
    # は相手にしない
    continue
  }
  $rev_id = $update.Id
  write-host ($update.ArrivalDate.ToLocalTime(), $rev_id.UpdateId, $rev_id.RevisionNumber, $update.Title)
  foreach($app in $update.GetUpdateApprovals() | sort CreationDate)
  {
    $target_group = $app.GetComputerTargetGroup()
    write-host ("`t", $app.CreationDate.ToLocalTime(), $app.Action.ToString(), $target_group.Name)
  }
 
  foreach($target_group in $target_computer_group)
  {
    $update.Approve(
      [Microsoft.UpdateServices.Administration.UpdateApprovalAction]::Install,
      $target_group) | out-null
  }
}

var locator = new ActiveXObject("WbemScripting.SWbemLocator");
var server = locator.ConnectServer(computer, "root\\default");
this.stdregprov = server.Get("StdRegProv");

var in_param = this.stdregprov.Methods_.Item(method_name).InParameters.SpawnInstance_();
in_param.hDefKey = hkey;
in_param.sSubKeyName = key;

var out = this.stdregprov.ExecMethod_(method_name, in_param);

var names = [];
if(out_param.sNames != null)
{
    names = out_param.sNames.toArray();
}
return names;

• 　regコマンドqueryでもリモートコンピュータのキーを列挙できる
• 　リモートコンピュータに対してレジストリ参照するには、当該コンピュータでWindows RPCが動作していて、なおかつWindows Firewallにはじかれないこと
  

(function() {

    var Registry = function () {
        this.initialize.apply(this, arguments);
    };

    Registry.prototype = {
        initialize: function(computer) {
            var locator = new ActiveXObject("WbemScripting.SWbemLocator");
            var server = locator.ConnectServer(computer, "root\\default");
            this.stdregprov = server.Get("StdRegProv");

            this.HKCR = 0x80000000;    // HKEY_CLASSES_ROOT
            this.HKCU = 0x80000001;    // HKEY_CURRENT_USER
            this.HKLM = 0x80000002;    // HKEY_LOCAL_MACHINE
            this.HKUS = 0x80000003;    // HKEY_USERS
            this.HKCC = 0x80000005;    // HKEY_CURRENT_CONFIG

            this.REG_SZ = 1;
            this.REG_EXPAND_SZ = 2;
            this.REG_BINARY = 3;
            this.REG_DWORD = 4;
            this.REG_MULTI_SZ = 7;
        },

        do_method: function(method_name, hkey, key, value_name) {
            var in_param = this.stdregprov.Methods_.Item(method_name).InParameters.SpawnInstance_();
            in_param.hDefKey = hkey;
            in_param.sSubKeyName = key;
            if(value_name != null)
            {
                in_param.sValueName = value_name;
            }
            var out = this.stdregprov.ExecMethod_(method_name, in_param);
            return    out;
        },

        EnumKey: function(hkey, key) {
            var out_param = this.do_method("EnumKey", hkey, key);
            var names = [];
            if(out_param.sNames != null)
            {
                names = out_param.sNames.toArray();
            }
            return    names;
        },

        EnumValues: function(hkey, key) {
            var out_param = this.do_method("EnumValues", hkey, key);
            var value_names = [];
            if(out_param.sNames != null)
            {
                value_names = out_param.sNames.toArray();
            }
            var value_types = [];
            if(out_param.Types != null)
            {
                value_types = out_param.Types.toArray();
            }

            return    {
                Names: value_names,
                Types: value_types
            };
        },

        GetStringValue: function(hkey, key, name) {
            // REG_SZ
            var out_param = this.do_method("GetStringValue", hkey, key, name);

            // 値が存在しない場合null
            return out_param.sValue;
        },

        GetExpandedStringValue: function(hkey, key, name) {
            // REG_EXPAND_SZ
            var out_param = this.do_method("GetExpandedStringValue", hkey, key, name);

            // 値が存在しない場合null
            return out_param.sValue;
        },

        GetDWORDValue: function(hkey, key, name) {
            // REG_DWORD
            var out_param = this.do_method("GetDWORDValue", hkey, key, name);

            // 値が存在しない場合null
            return out_param.uValue;
        }
    };

    var enum_installs = function(reg, base_key)
    {
        var names = reg.EnumKey(reg.HKLM, base_key);
        for(var i = 0 ; i < names.length; i++)
        {
            WScript.Echo(names[i]);

            var sub_key = base_key + "\\" + names[i];
            var values = reg.EnumValues(reg.HKLM, sub_key);

            var value_names = values.Names;
            var value_types = values.Types;

            for(var j = 0 ; j < value_names.length; j++)
            {
                var value_name = value_names[j];
                var value_type = value_types[j];
                var val = "";
                switch(value_type)
                {
                    case reg.REG_SZ:
                        val = reg.GetStringValue(reg.HKLM, sub_key, value_name);
                        break;
                    case reg.REG_EXPAND_SZ:
                        val = reg.GetExpandedStringValue(reg.HKLM, sub_key, value_name);
                        break;
                    case reg.REG_DWORD:
                        val = reg.GetDWORDValue(reg.HKLM, sub_key, value_name);
                        break;
                }

                if(val == null)
                {
                    val = "";
                }

                // 改行をつぶしちゃう
                val = val.toString().replace(/[\x0a\x0d]/g, " ");
                WScript.Echo(["", value_name, value_type, val].join("\t"));
            }
        }

    };

    var computer = WScript.Arguments.Named("computer");
    if(!computer)
    {
        computer = ".";
    }

    var reg = new Registry(computer);

    enum_installs(reg, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall");
    enum_installs(reg, "SOFTWARE\\Wow6432Node\\Microsoft\\Windows\\CurrentVersion\\Uninstall");
})();

• WSUSでWindows PCの更新管理をしている。
• ここの運用では、ほとんどのコンピュータはADドメインに参加しており、コンピュータアカウントの管理者が設定してある。
• 一定の間隔で更新未適用コンピュータの一覧を作成し自動的にメール通知するようにしたい。
• 更新クラスが「SP、セキュリティ問題の修正プログラム、修正プログラム集、重要な更新」のいずれかで、これらの更新をインストール完了していないコンピュータの一覧。
• メールの内容を自由にカスタマイズしたい。
  
• また、当該コンピュータの管理者の氏名を一覧に含めることで連絡リストを兼ねたい。
• WSUSで得たコンピュータ名をキーにActive Directoryに問い合わせ、管理者名を付記する。
• ここの環境ではWSUSサーバとDCは同じサーバで運用。
  
• メールの送付に関する設定および送付先はWSUSの通知設定と同じ設定を用いる
• 「状態レポート」の通知先に送る。（更新レポートの通知先でなく）
  

[reflection.assembly]::LoadWithPartialName("Microsoft.UpdateServices.Administration") | out-null
$update_server = [Microsoft.UpdateServices.Administration.AdminProxy]::GetUpdateServer()
$update_server.PreferredCulture ="ja"

$searcher = New-Object DirectoryServices.DirectorySearcher
    $manage_cn = ""
    $computer_account = $computer.FullDomainName.Split(".")[0] + '$'
    $searcher.Filter = "(sAMAccountName=$computer_account)"
    $result = $searcher.FindOne()
    if($result -ne $null)
    {
        $managed_by = $result.Properties["managedby"]

        if($managed_by -match "CN=(?<cn>[^,]+)")
        {
            $manage_cn = $matches.cn
        }
    }

$email_conf = $update_server.GetEmailNotificationConfiguration()
$mail = New-Object System.Net.Mail.SmtpClient($email_conf.SmtpHostName)
$mail.Timeout = 30 * 1000

$msg = New-Object System.Net.Mail.MailMessage
$msg.Subject = "[WSUS]更新未適用コンピュータ"
$msg.From = New-Object System.Net.Mail.MailAddress($email_conf.SenderEmailAddress, $email_conf.SenderDisplayName)
foreach($rcpt in $email_conf.StatusNotificationRecipients)
{
    $msg.To.Add($rcpt)
}
$msg.Body = $body

$mail.Send($msg)

気晴日記: IE8の[互換表示]ボタンとVirtual Server

#!/usr/bin/perl

use utf8;
use strict;
use warnings;
no warnings 'uninitialized';

use URI;
use WWW::Mechanize;
use Web::Scraper;
use DateTime;
use YAML;
use DateTime::Format::W3CDTF;

my  $uri = URI->new(q|http://rikunabi-next.yahoo.co.jp/tech/docs/ct_s01300.jsp?p=028|);
my $mech = WWW::Mechanize->new(cookie_jar => {});
$mech->show_progress(1);
my $res = $mech->get($uri);
if(!$res->is_success)
{
    die $res->status_line;
}

my  $result = scraper {
    process '//title', 'title' => 'TEXT';
    process '//td[@class="j-18-120"]', 'entry[]' => scraper {
        process '//a', 'title' => 'TEXT';
        process '//a', 'link' => sub {
            my($n) = @_;
            return URI->new_abs($n->attr('href'), $uri)->as_string;
        };
        process '//span' , 'date' => sub {
            my($n) = @_;
            my  $t = $n->as_trimmed_text;
            if($t =~ /\(([0-9]+)\.([0-9]+)\.([0-9]+)\)/)
            {
                my($y, $m, $d) = ($1, $2, $3);
                $y += 2000 if $y < 100;
                my $dt = DateTime->new(
                    year => $y,
                    month => $m,
                    day => $d,
                    time_zone => 'local',
                );

                my $f = DateTime::Format::W3CDTF->new;
                return $f->format_datetime($dt);
            }
            return  undef;
        };
    };
}->scrape($res->decoded_content);

$result->{link} = $uri->as_string;

binmode STDOUT, ":utf8";
print YAML::Dump $result;

0;

plugins:
  - module: Subscription::Config
    config:
      feed:
        - url: script:/path/to/scrape_semicon.pl
  - module: CustomFeed::Script
  - module: Publish::Feed
    config:
      format: Atom
      dir: /path/to/out
      filename: semicon.xml