操作マスタ（FSMO）ぞれぞれの役割

それぞれが何をしているかあまり気にしてなかったので調べてみた。
某ネット記事からの抜粋。

・スキーマ・マスタ
AD DBのスキーマ（データベースの構造）の変更を担当。
→ AD の管理する情報のデータ構造を統括しているので、フォレストに対して1台必要。

・ドメイン名前付けマスタ
フォレストに対してドメインの追加や削除を管理。
→ フォレスト内のドメインの名付け親なので、フォレストに対して1台必要。

・RIDマスタ
RIDプールのセキュリティIDを使いきった場合に再割り当てを担当。
→ユーザーやグループ・アカウントを作成したときにセキュリティIDが割り当てられる。
　セキュリティIDの一部である「RID（Relative ID）」はドメイン内でユニークな値。
　各ＤＣは、自分が与えることのできるセキュリティIDをいくつかプールしている（RIDプール）。
　RIDプールはドメイン内のみの管理なので、ドメインに1台必要。


・PDCエミュレータ
ＮＴドメイン環境のクライアントやBDC(バックアップドメインコントローラ)に対して
PDC（プライマリ・ドメイン・コントローラ）の役割を提供。
ドメインしばりなので、ドメインに1台必要。

・インフラストラクチャ・マスタ
ドメイン内でグループ・アカウント内のメンバーの割り当てを担当。
これもドメイン縛りなので、ドメイン1台に必要。

NotesカレンダーをCSVに書き出す。

人のソースを参考に、自分で書いたものをネットに退避。
これを使ってなんかトラブってもサポートいたしかねる。

・タスクが書き出されてしまう点
・会議しか書き出されない点
という問題があるのはいづれ直す。

Dim db As NotesDatabase
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim outputFile As Integer
Dim startDate As NotesDateTime, endDate As NotesDateTime

Sub Initialize
Dim session As New NotesSession
Set db = session.CurrentDatabase
Dim dateTime As New NotesDateTime(Today)

input@ = Cint(Inputbox$("何日前に作成されたスケジュールを取り込みますか？", , 1))

Msgbox Today-input@ & "以降に作成・変更した予定を書き出します。"
Set dateTime = New NotesDateTime( Today-input@)

Set col = db.Search("@IsAvailable(CalendarDateTime)",dateTime, 0)

counter=0

outputFile = Freefile()
Open "C:\NotesCal.csv" For Output As outputFile
Print #outputFile, |"| & "Subject" & |","| & "Start Date" & |","| & _
"Start Time" & |","| & "End Date" & |","| & "End Time" & |","| & _
"All day event" & |","| & "Description" & |"|
Set doc = col.GetFirstDocument
While Not (doc Is Nothing)
counter=counter+1
Set startDate = New NotesDateTime(doc.StartDateTime(0))
Set endDate = New NotesDateTime(doc.EndDateTime(0))
Print #outputFile, |"| & doc.Subject(0) & |","| & _
startDate.DateOnly & |","| & startDate.TimeOnly & |","| & _
endDate.DateOnly & |","| & endDate.TimeOnly & _
|","| & "false" & |",""|
Set doc = col.GetNextDocument(doc)
Wend

Msgbox counter & "個の予定を書き出しました。"

Close outputFile
End Sub

VBSからDOSコマンド実行

以下で実現可能。

Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c 実行したいコマンド",0,false

引数の0はプロンプトを表示するかどうか、falseコマンド終了待ちをするかどうか。

自転車：幡ヶ谷〜戸田橋

連休最終日前に北進してみた。

自転車：GIOS CELLE
距離：約１５キロ

山手通り沿いに北上するといい感じに戸田橋、荒川に到着。山手通りの中野周辺はまで歩道の工事をしているけど完成すると自転車と歩道を綺麗に分ける道ができるのでかなり快適に走れるかも。ただ歩行者は自転車用道路なんかおかまい無しに歩いていたけど。

悪い自転車があるのではなくて、悪い人間がいるのだと思うけどな。それは歩行者だろうが、自転車だろうが、クルマだろうが。

また近いうちに早い時間に出発して荒川沿いを走ってみようと思った。

自転車：幡ヶ谷〜六本木（東京ミッドタウン）

GWにドイツのワイン祭りをやっているということで友人に非常召集されて行って来た。

自転車：ブリジストン BSM179
距離：9キロ
所要時間：４０分

「３０分で到着するように」とのことであったけど、道に迷いまくってしまった。気がついたら六本木ヒルズの前に。
やはり定期的に地図をアップデートしないとよろしくないと思われる。

またドイツ人のアコーディオン奏者の方がいらしていて、生演奏を聴かせてもらえた。楽しかった。GWにこういうイベントに行けるのは人生初めてだったのでなかなか楽しかった。

自転車：幡ヶ谷〜善福寺公園〜井の頭公園

今日は自分にとってGW初日。折角なのでまた自転車に乗って来た。

自転車：ブリジストン　BSM179
距離：３５キロ

初めの予定では山と渓谷社の「東京周辺自転車散歩」のコースのように神田川を遡上しようと思ったのに、気がついたら善福寺川沿いを走っていたので「ままよ」と思ってそのまま遡上。途中広い公園があり、川も透明度が高かったり綺麗だったが、道は狭いし散歩しているカップルが結構多いので自転車で走る所ではないなと。あと道がガタガタなので走りづらい。そして遡上すればするほど道が狭い。

一時間程度で善福寺公園に到着してしまって、暇を持て余したので、復路は当初の通りに神田川を下って帰ろうと井の頭公園まで移動。

途中東京女子大学の横を通ったけど素敵な女性には遭遇できなかった。残念。

神田川沿いは歩道の整備がよく、少し広めなので走りやすい。もちろん歩行者は結構歩いているのでガンガン飛ばす場所ではない。あと川があまり綺麗ではなかったのが悲しかった。
ただ途中で鯉の大群に遭遇。


子供の日まで後二日。GW終わるまで後２日。明日はどこを走ろうか。

自転車：横浜〜新百合ケ丘

今日は職場に自転車で行ったくらいしか特に変わった事もなかった。ので昔の自転車散歩を整理してみる。

自転車：ビアンキ MINI VELO 8
距離：２８キロ

人生で初めて自転車で１０キロを超えて移動したのがこの時だったと思う。
入社二年目の夏、初めての夏のボーナスが出たけどギャグのように金一封（５万円）で、折角なので記念にと買ったビアンキのミニベロ。人生初のドロップハンドル。購入から数日後に何を思ったか他の同僚が住む会社の寮に行ったのがこの時。

故郷から遠くは慣れた知らない場所に一人で行くのがこの時はすごく辛く、おまけに道に散々迷うし、途中のアップダウンは厳しいし、タイヤ小さいからジャイロ効果期待できないしとで寮について同期に会った時には感動で涙出て来た事を思います。みんな元気だろうか？

たった２８キロだったけど当時は４時間くらいかかった。そして疲れ果てて同期の家に泊めてもらって翌日帰宅した。

あの頃と比べてもヘタレ自転車乗りだけど、少しは距離を稼げるようになったかな。

と過去に思いを馳せてみる。

タイヤチューブ交換

会社近くに某有名自転車ショップの神田支店があったのでチューブを買ってくる。
そもそもあんまり自転車の事に詳しくないので今のチューブを外して持って行ってみた。

「これと同じようなものを探しているのですけど。。。」

「二階に一杯あります。」

といった突き放す感じがMには堪らないんだろうけど、私はSだけど。

というわけで多分対丈夫じゃないですか？ってお染み付きを頂いたので買ってきました。
panaのR-AIR。明日会社まで走って調子を見てみよう。