わんくま同盟わんくま同盟
わんくま同盟 -> Blog's
わんくま同盟メンバの最新の記事
21日、.NETラボの勉強会に参加して LT で発表させていただきました。
内容は最近ブログにも書いてた Active Directory データのセキュリティ記述子（SecurityDescriptor）についてです。
これは 9月に .NETラボの勉強会の LT で発表した Active Directoryデータのプロパティ出力（OutputProperties） の COM 対応版で、セキュリティ記述子を見やすい形で出力するようにしたものです。
LT で使ったスライドです。
Active Directoryデータの Security Descriptor
コードは 7日にわんくま勉強会の LT で発表した時から変わっていないので、サンプルコードやサンプルアプリはこちらからどうぞ。
- IE11の右上[ツール(O)]-[アドオンの管理(A)] をクリックします。
- [検索プロバイダー(S)] を選択します。
- [アドオンの管理]画面の左下から、[追加の検索プロバイダーを検索(F)...] をクリックします。
- [アドオン]-[すべて]-[Google ウェブ検索] を選択します。
- [Internet Explorer に追加] ボタンをクリックします。
- [検索プロバイダーを追加します]ウィンドウが表示されたら、[既定の検索プロバイダーに設定する(M)] チェックボックスをオンにします。
- [追加] をクリックします。
- 単語を選択して右クリックし、[Google で検索]が表示されることを確認します。
Active Directory データのプロパティ出力で、セキュリティ記述子（nTSecurityDescriptor）を出力する際に、ADSI の IADsSecurityDescriptor、IADsAccessControlList、IADsAccessControlEntry の 3 つのインターフェイスを使いました。
MSDN のセキュリティ記述子の管理のページを見ると、Active Directory オブジェクト セキュリティ記述子と共に使用されるプライマリ クラスは ActiveDirectorySecurity で、DirectoryEntry.ObjectSecurity プロパティを使用すると、Active Directory オブジェクトのセキュリティ記述子を表す ActiveDirectorySecurity オブジェクトを取得できる と書いてあります。
更に次のことも書かれています。
随意アクセス制御リストのアクセス制御エントリは、アクセス規則とも呼ばれます。アクセス規則を表すプライマリ クラスは、ActiveDirectoryAccessRule クラスです。
ということは、IADsSecurityDescriptor に対応するのが ActiveDirectorySecurity で、IADsAccessControlEntry に対応するのが ActiveDirectoryAccessRule ってことなんでしょうかね。
ちょっとサンプルコード書いて確認してみましたが、
ActiveDirectorySecurity.GetAccessRules メソッドで アクセス規則のコレクション（型は AuthorizationRuleCollection）を取得でき、これは IADsSecurityDescriptor.DiscretionaryAcl プロパティ（型は Object なので IADsAccessControlList にキャスト）に対応してるようです。
AuthorizationRuleCollection の要素（アクセス規則）は AuthorizationRule クラスですが、実際の型は継承クラスである ActiveDirectoryAccessRule です。
IADsAccessControlEntry には、出力対象にした Trustee、AccessMask、AceFlags、AceType、Flags プロパティがありますが、ActiveDirectoryAccessRule の方は、
AccessMask => ActiveDirectoryRights（型は ActiveDirectoryRights 列挙体）
AceType => AccessControlType（型は AccessControlType 列挙体）
Flags => ObjectFlags（型は ObjectAceFlags 列挙体）
ですが、AceFlags に対応するプロパティが判りませんでした。
また、Trustee に対応するプロパティも判らなかったんですが、Trustee の名前部分（ユーザ名やグループ名）は IdentityReference プロパティ（型は IdentityReference、実際の型は SecurityIdentifier）の Value プロパティ（型は String）を基に検索すれば取得できないことはないです。DirectorySearcher 使って objectSid を検索フィルタにして検索するんですけどね。
実装は特別難しい訳ではないですが、ちょっと面倒だしスマートじゃないなぁって感じです。
多分、ADSI の 3 つのインターフェイスの名前に似たクラスが .NET にあるはずなので調べてみます。
Active Directory データのプロパティ出力では、COM（ADSI）に対応してない初期版と 対応した COM 対応版について書きました。
出力対象のオブジェクトはユーザやグループ、コンピュータや OU など、Active Directory で扱う一般的なオブジェクトです。
そして出力されるプロパティ（属性）はオブジェクトの種類によって違いますし、プロパティ設定の有無によっても違います。
通常のプロパティ出力（サンプルでいう OutputProperties ： VB版 C#版）はプロパティ（属性）が設定されているものしか出力対象になりません。セキュリティ記述子（nTSecurityDescriptor）も通常のプロパティ出力でしか出力できません。
サンプルでは通常のプロパティ出力のほかにオプションのプロパティ出力（OutputOptionalProperties）がありますが、nTSecurityDescriptor は必須プロパティなのでオプションのプロパティ出力では出力できないという意味です。
必須プロパティの出力（OutputMandatoryProperties）を実装すれば出力できます。
サンプルではプロパティ（属性）名でループして値を取得し、その値の型で処理を分けてます。
個人的には、上記のことを考慮するとプロパティ（属性）名で処理を分けるよりも値の型で処理を分ける方を優先させる方がいいのではと考えてます。
実際、セキュリティ記述子（nTSecurityDescriptor）の値の型は IADsSecurityDescriptor インターフェイスにキャストできますし、大きい整数は属性の数が多いので値の型で処理を分ける方がいいですしね。
セキュリティ記述子（nTSecurityDescriptor）の場合は、値を取得したらそこからアクセス制御リスト（IADsAccessControlList）を取得して、その要素であるアクセス制御エントリ（IADsAccessControlEntry）に設定されているプロパティの値を取得・出力してます。
ADSI の インターフェイス 3 つ必要ですね。
ただ、セキュリティ記述子関連は ADSI を使わなくても .NET（DirectoryEntry 関連クラス）にもあるので、ADSI を使わずに同じような形で出力できるはず。近いうちに試してみます。
セキュリティ記述子はどのオブジェクトにもあるし型もこの属性だけなので、プロパティ（属性）名で処理を分ければいいかなと思います。
BuildInsiderで「新型Kinect for Windows v2 Developer Previewプログラミング入門」の連載を開始しました。
第１回目は
「日本最速レビュー。開発者目線で調査する「Kinect for Windows v2」限定開発者プレビュー版」
としてDeveloper Previewの概要とハードウェア中心の紹介をしています。
http://www.buildinsider.net/small/kinect2dp/01
Tizen SDK 2.2.1は、Windows7までにしか公式には対応していません。Windows8.1でインストーラーを起動すると、すぐにWindowが閉じて、終了してしまいます。対処方法を探したところ、
こちら(CodeZine)に対処方法が記載されていました。C:\Users\<UserName>\AppData\Local\Temp\tizensdk_yyyyMMddhhmmss\InstallManager.jar をダブルクリックすると通常のインストーラーが起動してインストールを続行することができます。
これは、Visual Basic Advent Calendar 2013 12/15日の記事。
Roslynの機能としてコード解析の一部をコーディングしてみます。
その前にVBならではの問題点を紹介します。
ソースコードを文字列変数に格納するコードをC#で書いた場合、下記のようになります。
public static string src = @"
using System;
namespace HelloWorld {
class Program {
static void Main(string[] args) {
Console.WriteLine(""Hello, World!"");
}
}
}
";ところが、これと同じことをVBで書いてみますと、下記コードのように悲しいことになるわけです。
Dim src As String =
"Imports System" & vbNewLine &
vbNewLine &
"Namespace HelloWorld" & vbNewLine &
" Module Program" & vbNewLine &
" Sub Main(args As String())" & vbNewLine &
" Console.WriteLine(""Hello, World!"")" & vbNewLine &
" End Sub" & vbNewLine &
" End Module" & vbNewLine &
"End Namespace"
これ、なんとかならないかなーと調べていくと、下記サイトがいい解決法を提示してくれています。
Mutliline String Literals in VB.NET
Dim src As String =
<string>
Imports System
Namespace HelloWorld
Module Program
Sub Main(args As String())
Console.WriteLine("Hello, World!")
End Sub
End Module
End Namespace
</string>.Value
XMLリテラルにすれば、C#と同様な感じで記述できるようになります。
今回は”<string>”タグにしてますが、他の例をみると”<a>”タグを使用しているところもあります。
また、<![CDATA[文字列]]>.Valueでも同様のことが出来ますが、この場合、囲まれた文字列がVisual Studio上の文字色設定では薄いグレーで見辛いので、「VBのXML CDataセクション」の文字色を変更するといいでしょう。
あと、VB2010以降は暗黙の行継続である「_」（アンダースコア）が不要になっているので、読みやすくなっています。
下記のソースは、文字列変数のソースコードをコード解析して、ノード種類とノード値を「|」(パイプ)区切りで出力しています。
Imports Roslyn.Compilers
Imports Roslyn.Compilers.VisualBasic
Imports Roslyn.Scripting
Imports Roslyn.Scripting.VisualBasic
Module Module1
Sub Main()
Dim src As String =
<string>
Imports System
Namespace HelloWorld
Module Program
Sub Main(args As String())
Console.WriteLine("Hello, World!")
End Sub
End Module
End Namespace
</string>.Value
Dim tree = SyntaxTree.ParseText(src)
For Each node As SyntaxNode In tree.GetRoot().ChildNodesAndTokens()
PrintSyntaxTree(node)
Next
Console.ReadLine()
End Sub
Private Sub PrintSyntaxTree(node As SyntaxNode)
If node IsNot Nothing Then
Console.WriteLine(node.Kind.ToString & " | " & node.ToString())
For Each child As SyntaxNode In node.ChildNodes()
PrintSyntaxTree(child)
Next
End If
End Sub
End Module
【出力結果】
ImportsStatement | Imports System
MembersImportsClause | System
IdentifierName | System
NamespaceBlock | Namespace HelloWorld
Module Program
Sub Main(args As String())
Console.WriteLine("Hello, World!")
End Sub
End Module
End Namespace
NamespaceStatement | Namespace HelloWorld
IdentifierName | HelloWorld
ModuleBlock | Module Program
Sub Main(args As String())
Console.WriteLine("Hello, World!")
End Sub
End Module
ModuleStatement | Module Program
SubBlock | Sub Main(args As String())
Console.WriteLine("Hello, World!")
End Sub
SubStatement | Sub Main(args As String())
ParameterList | (args As String())
Parameter | args As String()
ModifiedIdentifier | args
SimpleAsClause | As String()
ArrayType | String()
PredefinedType | String
ArrayRankSpecifier | ()
CallStatement | Console.WriteLine("Hello, World!")
InvocationExpression | Console.WriteLine("Hello, World!")
MemberAccessExpression | Console.WriteLine
IdentifierName | Console
IdentifierName | WriteLine
ArgumentList | ("Hello, World!")
SimpleArgument | "Hello, World!"
StringLiteralExpression | "Hello, World!"
EndSubStatement | End Sub
EndModuleStatement | End Module
EndNamespaceStatement | End Namespace
次回は、Roslynについてもう少し踏み込んだことをしてみます。
某所で、セキュリティ更新プログラムの番号が100越えたら年の終わりを感じると書いたところ、結構反響がありました。ということで、10年分調べてみた＾＾；
【調べ方】各年の「12 月のセキュリティ情報」で最大の番号を調べる
http://technet.microsoft.com/ja-jp/security/bulletin/ms**-Dec
**には西暦の下二桁
【結果】
| 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | 2010 | 2011 | 2012 | 2013 |
| 45 | 55 | 78 | 67 | 78 | 74 | 106 | 100 | 83 | 106 |
【所感】
100番を超えた年はいずれも12月に3桁を達成している。
デバイスとサービスを標榜しているマイクロソフト社は、筆者の個人的な感想であるが、パッケージのそれと比べて今後はより細かくアップデートしてくるのではないかと想像している。また、同じ番号でも複数のパッチを適用しなければならい場合が増えてきており、より細かい対応を行いたいのではないかと考えている。
利用者側としては面倒この上ないですが、セキュリティなくしてビジネスなし、なご時世。放ったらかしにするのではなくちゃんとアップデートをかけてくる姿勢は評価すべきと感じています。
Active Directory データのプロパティ出力の COM 対応版について、4 つの変更点の最後 4 つ目の説明です。
プロパティ出力（OutputProperties）の方は、
以前は値がバイト配列以外の時は各値をそのまま出力してました。（以前のコードはこちら VB C#）
今回はそこを GetValue メソッドを呼び出して、取得した値を出力するようにしました。（今回のコードはこちら VB C#）
オプションのプロパティ出力（OutputOptionalProperties）の方は、
以前はプロパティの型がバイト配列の時は BitConverter.ToString メソッドで変換した値を出力してましたが、今回は既存の GetByteValue メソッドを呼び出して、取得した値を出力するようにしました。
また、各値がバイト配列以外の時は、プロパティ出力（OutputProperties）同様 値をそのまま出力してましたが、GetValue メソッドを呼び出して、取得した値を出力するようにしました。
GetValue メソッド側の方は、
受け取った Object 型の値が日付じゃない時は、数値や文字列なのでそのまま返してます。
日付なら日付に変換します。
変換した日付が 1601/1/1 ならその日付を返し、そうじゃなければ現地時刻に変換して返してます。
ここで日付の確認で d.Date.Equals というように、DateTime.Date プロパティに対して Equals メソッドを使ってます。
色々テストしてみたところ、まずは日付が 1601/1/1 になる可能性がある属性は dSCorePropagationData だけみたいで、しかも値が複数の場合はそのうちの 1 つが 1601/1/1 になることがあるようです。
※クリックすると新しいウィンドウで拡大図が表示されます。
でもなぜか時刻部分が 0:00:05 になってたので、日付部分を比較するようにしました。
1601/1/1 じゃなければちゃんとした日時なので、DateTime.ToLocalTime メソッドで現地時刻に変換してます。
1601/1/1 の時は現地時刻に変換すると日本の場合は 9 時間ずれてしまうので分けてます。
なんか似たようなネタがあったような気がしますが気にせず Windows Phone Advent Calendar 2013の11日目 として投稿。
Windows 8.1からbluetoothとの接続が「Windows.Devices.Bluetooth.Rfcomm」でできるようになったのは有名な話ですが、Windwos Pnone 8ならば最初から同じことができていました。
ただしクラスは「Windows.Devices.Bluetooth.Rfcomm」ほど洗練されておらず「Windows.Networking.Proximity」や「Windows.Networking.Sockets」を使うことになります。
例えば、Lego Mindstorm EV3と接続するには
PeerFinder.AlternateIdentities["Bluetooth:Paired"] = "";
IReadOnlyList<PeerInformation> peers = await PeerFinder.FindAllPeersAsync();
PeerInformation peer = (from p in peers where p.DisplayName == _deviceName select p).FirstOrDefault();
if(peer == null)
{ throw new Exception(_deviceName + " Brick not found");
}
else
{ _socket = new StreamSocket(); await _socket.ConnectAsync(peer.HostName, "1");
}
のようなコードで記述できます。
このあたりの相違をうまくクラスライブラリで吸収すると、WIndows 8.1とWindows Phone 8で同じようなアプリケーションを効率よく作成するエコシステムが完成します。
すでにストアで公開しているBrick Controller EV3のロジック部分では
Windows Phone 9
Imports System.ComponentModel
Imports System.Runtime.CompilerServices
Imports System.Windows.Threading
Imports System.Collections.ObjectModel
Imports System.Threading.Tasks
Windows 8.1
Imports System.ComponentModel
Imports System.Runtime.CompilerServices
と明示的に追加でImportsするクラスライブラリが異なるだけでまったくの同一コードになっています。
ぜひ、Windows 8.1とWindows Phone 8でアプリをリリースするエコシステムでbluetoothを使うアプリ構築を楽しんでみてください。
ユーザのアカウントには lockoutTime 属性があるので、この値を見ればロックアウトしてるかどうか判るんじゃないかという気がします。
結論から言えば lockoutTime 属性の値からはロックアウトしてるかどうか判断できません。
lockoutTime 属性の値の確認のとこを見ていただくと判りますが、lockoutTime 属性の値からは
1. 値がない => ロックアウトしたことがない => ロックアウトしてないことは判る
2. 値が 0 => 明示的にロックを解除したか、ロックアウト時間が過ぎた後ログオンした => ロックアウトしてないことは判る
3. 上記以外 => ロックアウトした時刻が判る（だけ）
1. と 2. からは ロックアウトしてないことは判るんですが、3. からは ロックアウトした時刻が判るだけで今もロックアウトしてるかどうかは判らないんです。
ロックアウト時間が過ぎてロックが解除されてもログオンしてなければ値が 0 にならないからです。
ドメインユーザのプロパティ画面の項目と属性の対応（アカウントタブ）のとこで書きましたが、ユーザがロックアウトしてるかどうかは ADSI の IADsUser.IsAccountLocked プロパティが True かどうかで判断するのが一番簡単です。
IADsUser は DirectoryEntry.NativeObject プロパティをキャストすることで取得できます。
ADSI を使わないなら userAccountControl 属性の値に ADS_USER_FLAG 列挙体の ADS_UF_LOCKOUT の値である 16 の論理積が 16 かどうかで判断します。
Active Directory データのプロパティ出力の COM 対応版について、4 つの変更点のうち 3 つ目の説明です。
大きい整数、セキュリティ記述子（SecurityDescriptor）の次は、構造化例外処理を使わないで値がないかを確認する部分です。（コードはこちら VB C#） ※セキュリティ記述子部分のコードと説明を修正しました。
どこかというと、オプションのプロパティ出力（OutputOptionalProperties）の最初のループの直後です。（以前のコードはこちら VB C#）
以前は
1. DirectoryEntry.NativeObject を ADSI の基本インターフェイスである IADs にキャスト
2. DirectoryEntry.SchemaEntry.NativeObject を IADsClass にキャスト
3. IADsClass.OptionalProperties を Object 配列にキャストしたものを引数にして IADs.GetInfoEx メソッドで プロパティをディレクトリ ストアから読込み
4. ループ内 ： IADs.GetEx メソッドでプロパティ（属性）の値を取得（Object 型）
5. プロパティ（属性）が設定されてないと例外が発生するので、その時は「未設定」を出力
という処理でした。
今回は
1. DirectoryEntry.SchemaEntry.NativeObject を IADsClass にキャスト
2. IADsClass.OptionalProperties を Object 配列にキャスト
3. DirectoryEntry.Invoke メソッドで IADs.GetInfoEx メソッドを呼び出して プロパティをディレクトリ ストアから読込み
4. ループ内 ： DirectoryEntry.Properties.Item で プロパティ（型は PropertyValueCollection）を取得
5. PropertyValueCollection.Value （Object 型）が null 参照なら「未設定」を出力
という処理にしました。
ADSI のインターフェイスは値が設定されてないプロパティについて、IADs.GetEx メソッドでの取得操作や、IADs を継承してる IADsUser や IADsGroup に定義されてるプロパティ（Description など）へのアクセスをすると例外が発生します。
一方 DirectoryEntry の方は、DirectoryEntry.Properties.Item の Value プロパティで プロパティにアクセス・値を取得しても例外は発生せず、null が返されるだけです。
今回変更したことで、パフォーマンスは劇的によくなりました。まぁ当然といえば当然なんですけどね。
特にユーザの場合はプロパティの数が多いので、プロパティを全然設定してないと時間かかってましたから。
やっと構造化例外処理を使わなくていいようになりました。
Active Directory データのプロパティ出力の COM 対応版について、4 つの変更点のうち 2 つ目の説明です。
大きい整数関連の次はセキュリティ記述子（SecurityDescriptor）に関係する部分についてです。（コードはこちら VB C#）
※2013/12/10 Trustee と AceType について修正しました。
セキュリティ記述子も "大きい整数" と同じく COM（ADSI オブジェクト）です。
セキュリティ記述子の属性は nTSecurityDescriptor で、値を ADSI の IADsSecurityDescriptor インターフェイスにキャストできます。
nTSecurityDescriptor 属性はオプションのプロパティでは取得できないので、OutputProperties メソッドの方だけ考慮します。
今回はセキュリティ記述子の随意アクセス制御リスト（DACL ： Discretionary Access Control List）の各アクセス制御エントリ（ACE ： Access Control Entry）を見やすい形で出力します。
出力するアクセス制御エントリ（IADsAccessControlEntry インターフェイス）のプロパティは次の 5 つです。
・Trustee
・AccessMask
・AceFlags
・AceType
・Flags
これを上記プロパティの値（Trustee はユーザやグループの名前部分のみ）順に重複は除外して出力します。
また、列挙体の値（Trustee 以外の 4 つ ： プロパティの型は Int32）は、値だけでなく それを表す列挙値の文字列も出力します。この文字列の取得は ToEnumValueText メソッドに実装してます。
プロパティの値の型が IADsSecurityDescriptor の時の処理ですが、
まずは値を IADsSecurityDescriptor にキャストして、
次に IADsSecurityDescriptor.DiscretionaryAcl プロパティ（Object 型）を IADsAccessControlList にキャストして、要素を IADsAccessControlEntry にキャスト、そして上記の通りソートしてグループ化します。
カウンタ変数を用意して、まずは属性名を出力します。
上記プロパティの値でグループ化した ACE の各要素に対してループ処理します。
1. 先頭の ACE を取出し
2. カウンタをインクリメント
3. Trustee プロパティの情報を出力（ユーザやグループの名前部分のみ）
4. AccessMask プロパティの値をテキスト化（対応する列挙体は ADS_RIGHTS_ENUM）
5. AceFlags プロパティの値をテキスト化（対応する列挙体は ADS_ACEFLAG_ENUM）
6. AceType プロパティの値をテキスト化（対応する列挙体は ADS_ACETYPE_ENUM）
7. Flags プロパティの値をテキスト化（対応する列挙体は ADS_FLAGTYPE_ENUM）
列挙体のプロパティ値をテキスト化する ToEnumValueText メソッドの処理です。
引数として、設定されている値とそれに対応する列挙体の型を受け取ります。
まずは設定されている値の列挙体文字列のリストを生成します。
リストに中身がない時は、設定されている値を文字列にして返します。
AceType（ADS_ACETYPE_ENUM）の時はビットマスクがかぶってしまうことがあるので、その場合は列挙値が小さい方を削除します。
1. リスト内の列挙体文字列を列挙値（数値）に変換して合計を算出
2. 設定されている値と合計値が違ってればビットマスクがかぶってるので、列挙値が小さい方（差分）の列挙体文字列をリストから削除
値と カッコで括った値の列挙体文字列を 文字列にして返します。
設定されている値の列挙体文字列のリストを生成します。
リストに中身がない時は、設定されている値を文字列にして返します。
最後に、設定されている値と リストの要素をパイプで連結した文字列をカッコで括ったものを 文字列にして返します。
これは、Visual Basic Advent Calendar 2013 12/9日の記事。
今回は、導入方法および実際に簡単なプログラムを組んでみたいと思います。
Visual Studio 2013 Express 2013 for Desktop を使用しています。
取りあえずのサンプルとして、新規プロジェクトをプロジェク名「RoslynTest」としてコンソール版を作成します。
■Roslynパッケージの導入
Roslynの安定版パッケージを導入するには、NuGetを使うのが簡単でいいです。
[ツール]→[ライブラリ パッケージマネージャー]→[ソリューション NuGetパッケージの管理]を選択すると下記の画面が表示されるので検索で”Roslyn”を入力します。Roslynで複数抽出されてきますが、「Roslyn」のみ選択すれば他のものも一緒に含まれて取得されます。
参照設定として、下記のオブジェクトが自動的に設定されます。
Roslyn.Compilers
Roslyn.Compilers.CSharp
Roslyn.Compilers.VisualBasic
Roslyn.Services
Roslyn.Services.CSharp
Roslyn.Services.VisualBasic
Roslyn.Services.Utilities
今回サンプルとして、文字列変数にVisual Basicのソースコードを埋め込んでコンソール画面に出力してみます。
Imports System.Text
Imports Roslyn.Compilers
Imports Roslyn.Compilers.VisualBasic
Imports Roslyn.Scripting
Imports Roslyn.Scripting.VisualBasic
Module Module1
Sub Main()
Dim engine As ScriptEngine = New ScriptEngine()
Dim session = engine.CreateSession()
Dim srcCode As String =
"Dim str As String = ""using Visual Basic!""" & vbNewLine &
"System.Console.WriteLine(""Hello World "" & str)"
session.Execute(srcCode)
Console.ReadLine()
End Sub
End Module
これを実行すると、文字列変数のソースコードがコンパイルされコンソール画面に”Hello World using Visual Basic!”と表示されます。
次回はRoslynの機能としてコード解析をしてみます。
追記
ゲームスクリプトとして「Lua」が多様されているようだけど、わざわざ「Lua」のような異なる言語を使う必要は無く、ゲームスクリプトでも素直にゲームを作成した言語のまま.NET(Visual Basic、C#)で組める方がいいでしょう。Roslynを使うことでそれが可能になります。
また、コルーチンのyieldも実装済みですから、ゲームスクリプトにはもってこいです。
ScriptCS: C#をスクリプト言語にする
現在、WHSやPowerShellを使っているスクリプトも、ScriptCSを使用してC#に置き換わる時代も来るかも知れませんね。
7日、わんくまで初めて LT で発表させていただきました。
ネタは最近ブログに書いてた Active Directory データの "大きい整数" についてです。
これは 9月に .NETラボの勉強会の LT で発表した Active Directoryデータのプロパティ出力（OutputProperties） の COM 対応版で、"大きい整数" もちゃんと出力できるようにしたものです。
LT で使ったスライドです。
Active Directoryデータの "大きい整数"
サンプルコードです。
OutputProperties(COM 対応版)
サンプルアプリのクラスライブラリ（LibVB/LibCS）の DirectoryAccess クラスにコピペしてください。
呼出し元は Windows アプリの各リスト画面のフォームで、一覧 ListBox の SelectedIndexChanged イベントハンドラから呼び出されるメソッド内から、OutputProperties メソッドや OutputOptionalProperties メソッドを呼び出します。
引数は、選択されたオブジェクトの Entry プロパティと出力先のファイルパスを指定します。
コードを組み込むサンプルアプリはこちらからどうぞ。
.NET4用（ユーザ、グループの表示まで実装）
.NET4.5.1用（ユーザ、グループ、コンピュータの表示まで実装）
Visual Studio 2013は、64bitでもエディット＆コンティニューができたりする優れものですが、Visual Basic 2013としての最強環境にするには、Productivity Power Tools 2013が必須です。
http://visualstudiogallery.msdn.microsoft.com/dbcb8670-889e-4a54-a226-a48a15e4cace
Productivity Power Toolsは2012版もありましたが、今月になってやっと2013版が登場しました。
2013版の新機能としては次のようなものがあります。
- Peek Help
- Solution Explorer Errors
- Structure Visualizer
- Double click to maximize windows
- Timestamp margin
- Quick tasks ? Edit Present On
- Ctrl + Click to Peek Definition
- HTML Copy improvements
- Recently Closed Documents
- Match Margin
- Power Commands context menu cleanup
しかし、Visual Basic環境として考えると2012版のときにもあった「Organize Imports for Visual Basic 」がProductivity Power Toolsを導入する必要十分条件であるといえるでしょう。
この拡張機能を入れると何ができるかといえば
のようにImports宣言のソートや未使用なものの削除ができるのです。
これによりImports宣言が整理されて非常にすっきりしたものにできます。
Codezineに記事が掲載されました。
http://codezine.jp/article/detail/7529
今回は高DPIにかわっても目に優しい拡大表示を行うためにMultiTouchのズーム機能を使う方法をとりあげています。
--引用ここから
モバイルデバイスの画面はますます高解像度になり、大画面化も進んでいます。それと同時に、フルHD解像度であれば8インチモデルなども登場してきました。つまり、必然的に高DPI化してきています。その結果、マルチ解像度対応が考慮されていないアプリではコンテンツの大きさが相対的に小さくなってしまい、文字が小さくて目が疲れるなど健康面での影響すら生じてしまいます。今回は、「Multitouch for Windows Form 1.0J」を使って、Windowsフォームでの高DPI化対応にスポットあて、対応の前後でどれくらい見やすさか違うかを検証してみたいと思います。
--引用ここまで
よかったらご一読ください。
Active Directory データのプロパティ出力の COM 対応版について、変更点の説明です。
今回は大きい整数に関係する部分についてです。（コードはこちら VB C#）
まずは呼出し側です。
通常のプロパティ出力（OutputProperties）もオプションのプロパティ出力（OutputOptionalProperties）もプロパティ名（属性）の数だけループしてます。
プロパティは DirectoryEntry.Properties.Item(プロパティ名) で取得でき、型は PropertyValueCollection です。
プロパティは値を複数持つものもあるのでコレクションになってます。
値は PropertyValueCollection.Value で取得でき、型は Object です。この値は、コレクションの要素の数が 0 だと null 参照、1 つだとその要素の値、複数だと各要素の値の配列（のコピー）になります。
大きい整数かどうかは この値の型が IADsLargeInteger かどうかで判断してます。
大きい整数の場合はその値を取得する GetLargeIntegerValue メソッドを呼び出してます。引数はプロパティ（属性）名とその値（IADsLargeInteger）です。
次は大きい整数値を取得する GetLargeIntegerValue メソッド側です。
大きい整数（LargeInteger）の属性のとこで書きましたが、"大きい整数" の属性の値は整数で表されるものと日付で表わされるものとがあるので、属性とその値によってどのような値を返すかが変わってきます。
最初に IADsLargeInteger 型の value パラメータの値を Int64 に変換してます。
IADsLargeInteger インターフェイスのメンバは HighPart プロパティと LowPart プロパティの 2 つです。（型は Int32）
Int64 への変換は HighPart プロパティと LowPart プロパティの値を 8 桁の 16 進文字列にして連結し、それを Convert.ToInt64 メソッドで行ってます。
※MSDN ライブラリ 標準の数値書式指定文字列 - 16 進数 ("X") 書式指定子、Convert.ToInt64 メソッド (String, Int32)
C# の方は次のコードをコメントアウトしてます。
var lval = (long)((uint)value.LowPart + (((long)value.HighPart) << 32));
このコードは MSDN ライブラリの「大きい整数のプロパティ型」に載ってるんですが、VB でこれに相当するコードだと LowPart プロパティが負の値の時に OverflowException がスローされるので、同じやり方ができる今のコードにしました。（符号なしの型は CLS に準拠してないですし・・・という言い訳）
この変換した値とプロパティ（属性）名でどのような値を返すか決めます。
まずはプロパティ（属性）名が lockoutTime かどうかを判断してます。
コメントには「ロックアウトしたことがある時」と書いてますが意味は同じです。というのもロックアウトしたことがなければ値がないので、このメソッドが呼び出されることはないからです。
※DirectoryEntry.Properties には 値のないプロパティは含まれません。
ロックアウトしたことがある時は、変換した値が 0 より大きければ その値とそれを日付にしたものを文字列にして返してます。そうでなければ変換した値（0）を返してます。
※理由は lockoutTime属性の値の確認をご覧ください。
次に IsInteger メソッドを呼び出して、プロパティ（属性）が整数を表すものかどうかを確認してます。
整数を表すプロパティ（属性）であれば変換した値を返してます。
その次に変換した値が 0 か最大値（Int64.MaxValue）なら文字列「（なし）」を返してます。
最後、どれにも該当しないプロパティ（属性）は日付を表すものなので、変換した値を DateTime.FromFileTime メソッドで現地時刻に変換して返してます。
Int64 に変換した値は 100 ナノ秒（ns）刻みで表したファイル時刻を表しているので、このメソッドで欲しい時刻を得ることができます。
また、1601/1/1 を起点として 100 ナノ秒刻みの経過時間を加算して現地時刻に変換しても同じ結果を得ることができます。
※コメント部分 VB ： #1/1/1601#.AddTicks(lval).ToLocalTime() C# ： new DateTime(1601, 1, 1).AddTicks(lval).ToLocalTime()
すべての属性について値を確認できたわけではないので怪しいとこもあるかもしれませんが、よく使いそうな属性についてはカバーできるんじゃないかなぁと思います。
アップデートがあるといわれたのでクリックしたら
なんてものが出てきました。
危うく、なんも考えずに更新しちゃうところだった。一部パスを見てるところがあるからおそらく動かないのよねぇ。。。
Active Directoryデータのプロパティ出力の COM 対応版の C# のコードです。
※2013/12/10 Trustee はユーザやグループの名前部分のみ出力、AceType は値とその列挙体文字列を出力するよう修正しました。
※2013/12/11 GetValue メソッドの name パラメータを削除しました。
以前からの変更点は VB のコードの方に書いてます。
public static void OutputProperties(DirectoryEntry entry, string filePath)
{
var props = entry.Properties.PropertyNames.Cast<string>().OrderBy(s => s).ToList(); //プロパティ名のリスト
using (var writer = new StreamWriter(filePath, false, Encoding.UTF8))
{
foreach (var pname in props) //プロパティ数分
{
var val = entry.Properties[pname].Value;
if (val is byte[]) //バイト配列の時
{
var pstr = GetByteValue(pname, (byte[])val); //バイト値を取得
writer.WriteLine("{0}：{1}", pname, pstr);
}
else if (val is IADsSecurityDescriptor) //セキュリティ記述子の時
{
var sd = (IADsSecurityDescriptor)val;
var aceGroups = ((IADsAccessControlList)sd.DiscretionaryAcl).Cast<IADsAccessControlEntry>().OrderBy(
ace => System.IO.Path.GetFileName(ace.Trustee)).ThenBy(ace => ace.AccessMask).ThenBy(ace => ace.AceFlags).ThenBy(
ace => ace.AceType).ThenBy(ace => ace.Flags).GroupBy(ace => String.Format("{0}|{1}|{2}|{3}|{4}",
ace.Trustee, ace.AccessMask, ace.AceFlags, ace.AceType, ace.Flags)).ToList(); //プロパティ値でグループ化したACE
var ctr = 0;
writer.WriteLine(pname);
foreach (var aceGroup in aceGroups) //ACE数分
{
var ace = aceGroup.First();
ctr++;
writer.WriteLine(" {0:D2}. Trustee ：{1}", ctr, System.IO.Path.GetFileName(ace.Trustee));
writer.WriteLine(" {0:D2}. AccessMask：{1}", ctr, ToEnumValueText(ace.AccessMask, typeof(ADS_RIGHTS_ENUM)));
writer.WriteLine(" {0:D2}. AceFlags ：{1}", ctr, ToEnumValueText(ace.AceFlags, typeof(ADS_ACEFLAG_ENUM)));
writer.WriteLine(" {0:D2}. AceType ：{1}", ctr, ToEnumValueText(ace.AceType, typeof(ADS_ACETYPE_ENUM)));
writer.WriteLine(" {0:D2}. Flags ：{1}", ctr, ToEnumValueText(ace.Flags, typeof(ADS_FLAGTYPE_ENUM)));
}
}
else if (val is IADsLargeInteger) //大きい整数の時
{
var li = GetLargeIntegerValue(pname, (IADsLargeInteger)val); //大きい整数値を取得
writer.WriteLine("{0}：{1}", pname, li);
}
else //それ以外の時
{
foreach (var pval in entry.Properties[pname]) //値数分
{
var value = GetValue(pval); //値を取得
writer.WriteLine("{0}：{1}", pname, value);
}
}
}
}
}
public static void OutputOptionalProperties(DirectoryEntry entry, string filePath)
{
var schema = (IADsClass)entry.SchemaEntry.NativeObject; //スキーマ オブジェクト
var props = (object[])schema.OptionalProperties; //オプションのプロパティ
using (var writer = new StreamWriter(filePath, false, Encoding.UTF8))
{
entry.Invoke("GetInfoEx", props, 0); //プロパティをディレクトリ ストアから読込
foreach (string pname in props) //オプションのプロパティ数分
{
var pvcol = entry.Properties[pname]; //PropertyValueCollection
if (pvcol.Value == null) //値がない時
{
writer.WriteLine("{0}：<未設定>", pname);
continue;
}
if (pvcol.Value is byte[]) //バイト配列の時
{
var bstr = GetByteValue(pname, (byte[])pvcol.Value); //バイト値を取得
writer.WriteLine("{0}：{1}", pname, bstr);
}
else if (pvcol.Value is IADsLargeInteger) //大きい整数の時
{
var li = GetLargeIntegerValue(pname, (IADsLargeInteger)pvcol.Value); //大きい整数値を取得
writer.WriteLine("{0}：{1}", pname, li);
}
else //それ以外の時
{
foreach (var pval in pvcol) //値数分
{
if (pval is byte[]) //バイト配列の時
{
var pstr = GetByteValue(pname, (byte[])pval); //バイト値を取得
writer.WriteLine("{0}：{1}", pname, pstr);
}
else //バイト配列以外の時
{
var value = GetValue(pval); //値を取得
writer.WriteLine("{0}：{1}", pname, value);
}
}
}
}
}
}
//バイト値を取得
private static string GetByteValue(string name, byte[] value)
{
if (name.Equals("objectSid"))
{
return new SecurityIdentifier(value, 0).ToString();
}
else if (name.Equals("objectGUID"))
{
return new Guid(value).ToString();
}
else
{
return BitConverter.ToString(value);
}
}
//大きい整数値を取得
private static object GetLargeIntegerValue(string name, IADsLargeInteger value)
{
//var lval = (long)((uint)value.LowPart + (((long)value.HighPart) << 32));
var lval = Convert.ToInt64(value.HighPart.ToString("x8") + value.LowPart.ToString("x8"), 16);
if (name.Equals("lockoutTime")) //ロックアウトしたことがある時
{
if (lval > 0) //ロックアウト中又はロックアウト期間が過ぎただけの時
{
return String.Format("{0}({1})", lval, DateTime.FromFileTime(lval)); //判り易いよう日付も付ける
}
return lval; //明示的にロック解除又はロックアウト期間が過ぎてログオン成功しているので値は0
}
if (IsInteger(name, lval)) //整数の時
{
return lval;
}
if ((lval == 0) || (lval == Int64.MaxValue))
{
return "（なし）";
}
return DateTime.FromFileTime(lval); //eq. new DateTime(1601, 1, 1).AddTicks(lval).ToLocalTime()
}
//整数かどうか
private static bool IsInteger(string name, long value)
{
if (name.Equals("maxStorage"))
{
return true;
}
if (name.StartsWith("msDS-"))
{
return false;
}
if (name.StartsWith("uSN"))
{
return true;
}
return false;
}
//値を取得
private static object GetValue(object value)
{
if ((value is DateTime) == false) //日付ではない時
{
return value;
}
var d = Convert.ToDateTime(value);
return d.Date.Equals(new DateTime(1601, 1, 1)) ? d : d.ToLocalTime();
}
//列挙体のプロパティ値をテキスト化
private static string ToEnumValueText(int value, Type enumType)
{
if (enumType == typeof(ADS_ACETYPE_ENUM))
//AceTypeの時
{
return String.Format("{0}({1})",
value, Enum.ToObject(enumType, value));
}
Func<int, string> selector = e => Enum.ToObject(enumType, e).ToString();
var values = Enum.GetValues(enumType).Cast<int>().Where(
e => (value & e) == e).OrderBy(selector).Select(selector).ToList(); //設定されている値の列挙体文字列
if (values.Count == 0) //設定されている値がない時
{
return value.ToString();
}
return String.Format("{0}({1})", value, String.Join(" | ", values));
}
以前書いた Active Directory データのプロパティ出力（VB、C#、スライド） の COM 対応版です。
※2013/12/10 Trustee はユーザやグループの名前部分のみ出力、AceType は値とその列挙体文字列を出力するよう修正しました。
※2013/12/11 GetValue メソッドの name パラメータを削除しました。
なんで "大きい整数" 対応版にしてないかというと、"大きい整数" で表される IADsLargeInteger のほかにも COM（ADSI オブジェクト）があるからです。
それはセキュリティ記述子です。これの属性は nTSecurityDescriptor で IADsSecurityDescriptor として扱え、値をこのインターフェイスにキャストできます。
nTSecurityDescriptor 属性は通常のプロパティ（DirectoryEntry.Properties）で取得できます。オプションのプロパティでは取得できません。
以前からの変更点
・セキュリティ記述子を見やすい形で出力する
・"大きい整数" を数値や日付で出力する
・構造化例外処理を使わないで値がないかを確認する
・COM じゃない値（バイト配列や日付）も正しく出力する
説明は別途ということで まずはコードを。
Public Shared Sub OutputProperties(entry As DirectoryEntry, filePath As String)
Dim props = entry.Properties.PropertyNames.Cast(Of String)().OrderBy(Function(s) s).ToList() 'プロパティ名のリスト
Using writer As New StreamWriter(filePath, False, Encoding.UTF8)
For Each pname In props 'プロパティ数分
Dim val = entry.Properties.Item(pname).Value
If TypeOf val Is Byte() Then 'バイト配列の時
Dim pstr = GetByteValue(pname, DirectCast(val, Byte())) 'バイト値を取得
writer.WriteLine("{0}：{1}", pname, pstr)
ElseIf TypeOf val Is IADsSecurityDescriptor Then 'セキュリティ記述子の時
Dim sd = DirectCast(val, IADsSecurityDescriptor)
Dim aceGroups = DirectCast(sd.DiscretionaryAcl, IADsAccessControlList).Cast(Of IADsAccessControlEntry)().OrderBy(
Function(ace) Path.GetFileName(ace.Trustee)).ThenBy(Function(ace) ace.AccessMask).ThenBy(
Function(ace) ace.AceFlags).ThenBy(Function(ace) ace.AceType).ThenBy(Function(ace) ace.Flags).GroupBy(
Function(ace) String.Format("{0}|{1}|{2}|{3}|{4}",
ace.Trustee, ace.AccessMask, ace.AceFlags, ace.AceType, ace.Flags)).ToList() 'プロパティ値でグループ化したACE
Dim ctr = 0
writer.WriteLine(pname)
For Each aceGroup In aceGroups 'ACE数分
Dim ace = aceGroup.First()
ctr += 1
writer.WriteLine(" {0:D2}. Trustee ：{1}", ctr, Path.GetFileName(ace.Trustee))
writer.WriteLine(" {0:D2}. AccessMask：{1}", ctr, ToEnumValueText(ace.AccessMask, GetType(ADS_RIGHTS_ENUM)))
writer.WriteLine(" {0:D2}. AceFlags ：{1}", ctr, ToEnumValueText(ace.AceFlags, GetType(ADS_ACEFLAG_ENUM)))
writer.WriteLine(" {0:D2}. AceType ：{1}", ctr, ToEnumValueText(ace.AceType, GetType(ADS_ACETYPE_ENUM)))
writer.WriteLine(" {0:D2}. Flags ：{1}", ctr, ToEnumValueText(ace.Flags, GetType(ADS_FLAGTYPE_ENUM)))
Next
ElseIf TypeOf val Is IADsLargeInteger Then '大きい整数の時
Dim li = GetLargeIntegerValue(pname, DirectCast(val, IADsLargeInteger)) '大きい整数値を取得
writer.WriteLine("{0}：{1}", pname, li)
Else 'それ以外の時
For Each pval In entry.Properties.Item(pname) '値数分
Dim value = GetValue(pval) '値を取得
writer.WriteLine("{0}：{1}", pname, value)
Next
End If
Next
End Using
End Sub
Public Shared Sub OutputOptionalProperties(entry As DirectoryEntry, filePath As String)
Dim schema = DirectCast(entry.SchemaEntry.NativeObject, IADsClass) 'スキーマ オブジェクト
Dim props = DirectCast(schema.OptionalProperties, Object()) 'オプションのプロパティ
Using writer As New StreamWriter(filePath, False, Encoding.UTF8)
entry.Invoke("GetInfoEx", props, 0) 'プロパティをディレクトリ ストアから読込
For Each pname As String In props 'オプションのプロパティ数分
Dim pvcol = entry.Properties.Item(pname) 'PropertyValueCollection
If pvcol.Value Is Nothing Then '値がない時
writer.WriteLine("{0}：<未設定>", pname)
Continue For
End If
If TypeOf pvcol.Value Is Byte() Then 'バイト配列の時
Dim bstr = GetByteValue(pname, DirectCast(pvcol.Value, Byte())) 'バイト値を取得
writer.WriteLine("{0}：{1}", pname, bstr)
ElseIf TypeOf pvcol.Value Is IADsLargeInteger Then '大きい整数の時
Dim li = GetLargeIntegerValue(pname, DirectCast(pvcol.Value, IADsLargeInteger)) '大きい整数値を取得
writer.WriteLine("{0}：{1}", pname, li)
Else 'それ以外の時
For Each pval In pvcol '値数分
If TypeOf pval Is Byte() Then 'バイト配列の時
Dim pstr = GetByteValue(pname, DirectCast(pval, Byte())) 'バイト値を取得
writer.WriteLine("{0}：{1}", pname, pstr)
Else 'バイト配列以外の時
Dim value = GetValue(pval) '値を取得
writer.WriteLine("{0}：{1}", pname, value)
End If
Next
End If
Next
End Using
End Sub
'バイト値を取得
Private Shared Function GetByteValue(name As String, value As Byte()) As String
If name.Equals("objectSid") Then
Return New SecurityIdentifier(value, 0).ToString()
ElseIf name.Equals("objectGUID") Then
Return New Guid(value).ToString()
Else
Return BitConverter.ToString(value)
End If
End Function
'大きい整数値を取得
Private Shared Function GetLargeIntegerValue(name As String, value As IADsLargeInteger) As Object
Dim lval = Convert.ToInt64(value.HighPart.ToString("x8") & value.LowPart.ToString("x8"), 16)
If name.Equals("lockoutTime") Then 'ロックアウトしたことがある時
If lval > 0 Then 'ロックアウト中又はロックアウト期間が過ぎただけの時
Return String.Format("{0}({1})", lval, DateTime.FromFileTime(lval)) '判り易いよう日付も付ける
End If
Return lval '明示的にロック解除又はロックアウト期間が過ぎてログオン成功しているので値は0
End If
If IsInteger(name, lval) Then '整数の時
Return lval
End If
If (lval = 0) OrElse (lval = Int64.MaxValue) Then
Return "（なし）"
End If
Return DateTime.FromFileTime(lval) 'eq. #1/1/1601#.AddTicks(lval).ToLocalTime()
End Function
'整数かどうか
Private Shared Function IsInteger(name As String, value As Long) As Boolean
If name.Equals("maxStorage") Then
Return True
End If
If name.StartsWith("msDS-") Then
Return False
End If
If name.StartsWith("uSN") Then
Return True
End If
Return False
End Function
'値を取得
Private Shared Function GetValue(value As Object) As Object
If (TypeOf value Is Date) = False Then '日付ではない時
Return value
End If
Dim d = Convert.ToDateTime(value)
Return If(d.Date.Equals(#1/1/1601#), d, d.ToLocalTime())
End Function
'列挙体のプロパティ値をテキスト化
Private Shared Function ToEnumValueText(value As Integer, enumType As Type) As String
If enumType Is
GetType(ADS_ACETYPE_ENUM) Then 'AceTypeの時
Return String.Format("{0}({1})", value, [Enum].ToObject(enumType, value))
End If
Dim selector = Function(e As Integer) [Enum].ToObject(enumType, e).ToString()
Dim values = [Enum].GetValues(enumType).Cast(Of Integer)().Where(
Function(e) (value And e) = e).OrderBy(selector).Select(selector).ToList() '設定されている値の列挙体文字列
If values.Count = 0 Then '設定されている値がない時
Return value.ToString()
End If
Return String.Format("{0}({1})", value, String.Join(" | ", values))
End Function
大きい整数（LargeInteger）の属性に対話型ログオンに関する属性が 2つあります。
それは msDS-LastSuccessfulInteractiveLogonTime と msDS-LastFailedInteractiveLogonTime で、最後に対話型ログオンに成功/失敗した時刻です。
今回は対話型ログオンを有効にして、対話型ログオンした時の属性（msDS-LastSuccessfulInteractiveLogonTime）の値を確認してみました。
対話型ログオンを有効にするには lockoutTime属性の値の確認同様、管理ツール「グループ ポリシーの管理」で Default Domain Policy を編集する必要があります。
※どの図もクリックすると新しいウィンドウで拡大図が表示されます。
「コンピュータの構成」－「ポリシー」－「管理用テンプレート」－「Windows コンポーネント」－「Windows ログオンのオプション」を選択し、「ユーザーログオン時に以前のログオンに関する情報を表示する」を有効にします。
このポリシーの説明には
「このポリシー設定では、以前のログオンおよびログオンの失敗に関する情報をユーザーに表示するかどうかを制御します。」
と書かれていて、続けて
「この設定を有効にした場合、ユーザーがログオンした後に、そのユーザーが前回ログオンに成功した日時、そのユーザー名で前回ログオンに失敗した日時、および前回の正常なログオン以降に、そのユーザーがログオンに失敗した回数を示すメッセージが表示されます。Microsoft Windows デスクトップで作業するには、ユーザーがこのメッセージを確認する必要があります。」
と書かれてます。
ひとまず Administrator でログオンしなおしてみたら こんなん出ました。
ログオン後に Administrator のプロパティの属性エディタタブで msDS-LastSuccessfulInteractiveLogonTime の値を見てみました。
時刻が設定されてるのが判ります。
この属性の値は lockoutTime 属性と違って日付で表示されてるので、プログラムからは値をそのまま日付にすればよさそうです。
もちろん現地時刻で。
海外のサイトですがbestwindows8app.netというのがあるそうです。
そこの中の人から突然メールがきて「君のアプリがEditor's pick award」になったよとのこと。
壺でも売りつけられんじゃ？と恐る恐るリンク先を訪れてみると。。
Brick Controller EV3
http://bestwindows8apps.net/brick-controller-ev3/
Editor rating: 
(9.5 / 10)
コメント：
nice app very convinience
Its very easy and fun enjoy
One of the few apps that are useful and minimalistic, but look great
Also available for Windows Phone
Leap Simon Says
http://bestwindows8apps.net/leap-simon-says/
Editor rating: 
(10 / 10)
コメント：
Its very easy and fun enjoy
Thank you for supporting and validating my game.
Thank you for the award and the rating :)
Thank you for adding ..
疑ってごめんなさい。
コメントがすごくうれしい。
- 10:40 ～ 11:00 開場・受付開始
- 11:00 ～ 11:10 わんくまについて
- 11:10 ～ 12:00 「Xamarin と C# によるクロスプラットフォーム・プログラミング」 by 赤坂玲音さん Lv.2くまー
- 12:00 ～ 13:00 おひるごはん
- 13:00 ～ 13:30 ライトニングトーク
- 13:40 ～ 14:30 「Windows Azure、Visual Studio 2013 と認証・フェデレーションの開発 (2014 年の Web 系認証技術 まとめ)」 by 松崎さん Lv.2くまー
- 14:40 ～ 15:30 「Dynamics CRM 2013を使ったCRMのススメ」 by FutureRays株式会社 CRMチームマネージャー 松原さん Lv.1くまー
- 15:40 ～ 16:30 「Dynamics CRM Online と Office 365 のカスタマイズについて」 by 新谷さん Lv.2くまー
- 16:40 ～ 17:30 「Windows8.1のMVVMパターン」 by えムナウ Lv.2くまー
- 18:00 ～ 懇親会
- 12:30 ～ 12:40 わんくまについて等
- 12:40 ～ 13:30 「C#でもメタプロがしたい！！」 by クレストさん Lv.1くまー
- 13:40 ～ 14:30 「データ解析ビジネスインテリジェンスとデータサイエンティストの現在の纏めと今後の動向(調査報告)」 by 青木さん Lv.1くまー
- 14:40 ～ 15:00 ライトニングトーク
- 15:10 ～ 16:00 「FirefoxOS向けのアプリを作ってみよう」 by たかなお@uniunixさん Lv.1くまー
- 16:10 ～ 17:00 「WiFiの暗号について調べてみました」 by kawakawaさん Lv.1くまー
- 16:10 ～ 17:40 「第2回「破：HPC on Azureを作ろう！」（仮）なのか「VRTX裏話」になるのかこうご期待』」 by くろちんさん Lv.2くまー
- 18:00 ～ 懇親会～
ちなみに今回東京勉強会の会場が、移転され今までのホテルの真向かいのビルになりました。
ビルの設備もかわって、プロジェクタースクリーンがなくなりました。そのためスクリーンを購入しました。
これケース持ち歩くの重い・・・
ぜひ新しい会場見学もふくめて気楽に参加してください。
これは、Visual Basic Advent Calendar 2013 12/3日の記事。
Visual Studio 2013が発売されました、いつもならVisual Basicも新機能が追加されて「Visual Basic 2013」になるかと思ったのですが、残念ながら新機能の追加は見送れました。
No new C# and VB Language Features in VS 2013
言語的な新機能なし（C#もVBも、VS 2013で）
上記ブログによれば
・（ツールのアップデート間隔を短くしても）言語のアップデートは今まで通り（2～3年間隔）のペースがいいと思っている
・Roslynプロジェクトが進行中で、C#、VB のコンパイラーを再実装中
マイクロソフト全体として製品のリリース サイクルを縮めており、ランタイム、ライブラリ、言語、ツールはそれぞれのタイミングでリリースしていく方針になっていくようです。
昨年は、Yieldステートメントについて記事を書いてみたのですが、今年は新機能が無いのでどうしようか悩んだのですが、以前から「Roslyn」というキーワードが気になって軽く調べたりしてたけど、特に深く追求したりしてなかったので、今年はこれを機会に追求してみます。
■Roslynとはなんぞや？
「Roslyn」は、なんて読むのかというと「ロズリン」です。開発コードネームなので製品時に名称が変わることもありえますが、そのままの名前になりそうな予感です。開発コードネームは地名とか多かったりするのですが、「Roslyn」もワシントン州の町の名前だったりします。
Roslynは、Compiler as a Serviceと呼ばれていた言語機能の解析エンジンです。
コンパイラの機能として、プログラムを解析し、エラーなどの検出を行い、一通りのエラーが解消すると実行形式のオブジェクトを生成したりしますが、これらの中身については一般的にブラックボックス化されています。
Roslynでは、ブラックボックス化されたC# や Visual Basicのコード解析やオブジェクト生成のAPI等を公開したのです。
■Roslynで何が出来るのか？
例えば文字列変数にソースコードをセットすると、文字列変数から言語解析して実行させることが出来ます。
C#でありますが、参照：Visual Studio Express で Roslyn のコードを見るとイメージ出来るでしょう。
使いこなせれば、TypescriptのようにJavascriptを拡張したように、Visual Basicを拡張させることが出来るかも知れません。
Visual Basicには足りない複数行コメントを使えるように出来たり、リスト内包を書けばLinqに変換させるようなことも可能でしょう。
「Roslyn の恐怖 - Compiler as a service の全貌」の最後の方に書かれていますが、C#/VB間のソースコード自動変換がコピーアンドペーストするだけで自動的に変換されます。C#をコンパイル後にVisual Basicに変換されるために、正確にしかも必ず動作するように変換されるわけです。
Roslynを活用すれば新たなコード生成機能や言語機能の追加、コード解析、リファクタリングなどを行うためのプログラム生成に役立てることができるわけです。
次回以降は、導入方法および実際にプログラムを組んでみたいと思います。少し調査したのですが、C#のサンプルに比べてVisual Basicのサンプルはかなり乏しいです。その上、C#にはある「Syntax.ParseStatement」という文字列のソースを解析するメソッドがVisual Basicには見当たらないなど、何点か機能的にC#より追いついていないのかも知れません。また、CTP（Community Technology Preview）「配布する対象を限定した評価版」であるため、サンプルでも変更されたメソッドがあってエラーになったりします。参照「CTP2からの変更」
例 SyntaxTree.ParseCompilationUnitがなくなって、ParseTextとParseFileに変更
