Visual Basic

Windows OSとか Active Directoryのセキュリティーグループに所属するかを確認したい！

Wed, 19 Dec 2018 21:00:00 GMT

ここ最近、UiPathでイロイロ遊んでます。そこでUiPath (ja) Advent Calendar 2018に参加してみました。第二弾！

結論！

セキュリティー担保したいなら、Orchestrator買え。以上。

はじめに

UiPathを軽くみんなでお安く使用しようとすると、Node-Lockedライセンスという共有端末をみんなで使うライセンス形態があります。しかし！、この場合、どのユーザーでログインしても、端末に入っているすべてのロボットが見えてしまいます。つまり申請系と承認系のロボットが起動できてしまうという、監査人大喜びのツッコミどころができてしまいます。

そこで、ユーザーがActive DirectoryなりWindows OSのセキュリティーグループに所属しているかを確認するプログラムを作ってみます。

Active Directoryでは、グループの中にグループを突っ込めたりするので、単にグループのメンバーの一覧取得だと、ガッつり再帰かけないといけないので面倒すぎます。この時IADsGroupクラスのIsMember を使うのがいつものパターンです。

ではやってみる。

↑OrchestratorなしのNode Lockedライセンスだと、すべてのロボットがどのユーザーにログインしても見えて実行が可能

Orchestratorなしで頑張ってみる

まずは、参照の追加。DirectoryEntryは System.DirectoryServicesの参照を追加して…あれ？IADsGroupはCOMだけどどうやって参照するんだ？

XAMLで追加するのはあくまでclr-namespaceなので、きっぱりあきらめる。
ここで登場するのは、「カスタムアクティビティ」

自分でもサクっとアクティビティを作れてしまうのがUiPathのいいところ。だって、まんまWFなんだもの。

■作業

１、プログラムを作成

２、パッケージを作成

３、UiPathに読込

４、使ってみる

１、プログラムを作成

新しい.クラスライブラリ（NET Framework）のプロジェクトを作って次の4つを参照追加

.NET
・System.Activities
・System.ComponentModel.Composition
・System.DirectoryServices
COM

・Active DS Type Library

（コードは最後に入れてます）

２、パッケージを作成

詳しい作成方法は、「カスタムアクティビティ」をごらんあれ

３、UiPathに読込

「パッケージを管理」から設定を押して、作成したパッケージの場所を追加してください。詳しくは（以下略
Activitiesペインに表示されるようになります

４、使ってみる

ローカルコンピューターのAdministratorsグループにいるかを確認

TargetGroup：”Administrators”
TargetService：System.Environment.MachineName

成功！！！

こんなもん作ってメンテナンスするくらいなら、Orchestrator買いましょう＾＾；

以下、コード

Imports System.Activities
Imports System.ComponentModel
Imports System.DirectoryServices
Imports ActiveDs

Public Class IsGroupMember
Inherits CodeActivity

    <Description("Domain | Domain\ComputerName | ComputerName")>
     <Category("Input")>
     <RequiredArgument>
     Public Property TargetService As InArgument(Of String)

    <Description("対象のグループ名")>
     <Category("Input")>
     <RequiredArgument>
     Public Property TargetGroupName As InArgument(Of String)

    <Description("結果")>
     <Category("Output")>
     <RequiredArgument>
     Public Property Result As OutArgument(Of Boolean)
     Protected Overrides Sub Execute(context As CodeActivityContext)
         Dim comInfo As DirectoryEntry = New DirectoryEntry("WinNT://" + TargetService.Get(context))
         Dim theGroup As DirectoryEntry = comInfo.Children.Find(TargetGroupName.Get(context), "group")
         Dim localgroup As IADsGroup = CType(theGroup.NativeObject, IADsGroup)
         Dim currentUser As String = "WinNT://" + System.Environment.UserDomainName + "/" + System.Environment.UserName

Result.Set(context, localgroup.IsMember(currentUser))
End Sub
End Class

プロ生で話してきました＾＾

Thu, 27 Jun 2013 21:15:00 GMT

シェルのお話しなんかウケるかなぁと思ったら、結構楽しんでもらえたかも。

一番ウケたのは、PowerShellの結果をExcelに直接つっこむデモでした。
やっぱりExcel最強！？

Excel PowerShell Tool Version 1.0の紹介書くと受けるかな＾＾
これ、証明書の関係でWindows 8にインストールするとき一度モジュールから証明書引っ張り出して、一時的に信頼するルート証明に突っ込まないとインストールできない＞＜。と言って作者さんに売り物の証明を買えというのもアレなので、インストールのときだけ信頼するルート証明機関に突っ込んでインストールが終了したら速攻削除のパターンかなぁ（でも、正直紹介記事書くのも怖い鬼の所業だ＾＾；）

プログラミング生放送勉強会第23回
http://atnd.org/events/40204

au WiFi接続マネージャとかActive Connectionとかと、Hyper-V

Thu, 01 Nov 2012 03:09:00 GMT

Windows Phone 8のエミュレータはHyper-V向けの仮想マシンです。インストールすると、勝手にネットワークカードをブリッジ化して仮想NICを作成してくれます。

ここで困るのは、標記の接続マネージャの類は物理NICがブリッジ化されているとNICを見つけてくれません。
ですので、ブリッジを「内部」か「プライベート」にしてやらないと接続マネージャが使用できない残念な状態です。
当然、この設定をするとHyper-Vの仮想マシンから外部にアクセスできません。

Windows Phone 8のエミュレータなど、Hyper-V上の仮想マシンから外部へアクセスしたい場合は、「外部ネットワーク」を選択して、接続マネージャを終了させないと、接続マネージャのお節介機能で不安定になったり接続できなかったりします。

ということで、au 接続マネージャでWiFiに接続するか、Hyper-Vのチャイルドパーティションから外部へ接続するかのどちらか一つしか選べない、といった残念な結果となっています。なんか良い方法があったらおしえてくださいm(_ _)m

図、Hyper-Vマネージャの画面

Windows Phone SDK 8.0 日本語版のダウンロード

Thu, 01 Nov 2012 01:53:00 GMT

MSDNサブスクリプションの画面から落とそうとすると、間違って英語版を落としそうになるので、日本語版のリンクを備忘録代わりに貼っておきます。

Download: WPSDK 8.0 - Microsoft Download Center - Download Details
http://www.microsoft.com/ja-jp/download/details.aspx?id=35471

楽しい楽しい Visual BasicのNothing

Thu, 15 Dec 2011 23:36:00 GMT

みんな大好きなVisual Basicのなかでも、愛して已まないのはやっぱり「Nothing」ですよね☆
もう、こんなカワイイじゃじゃ馬っ娘と暮らしたら、離れなれなくなります。

普段はあんまり遊んであげられなのですが、こんなホリデーシーズンにはNothingで遊んであげましょう。
そう、これはVisual Basic Advent Calendar 2011の一環です。
難しい話題はMVPの方にお任せして、またーり遊んでみましょう☆
（師走で死ぬほど忙しい、とかいうのはこの際目をつぶってくださいｗ）

では、Visual BasicでNothingとはどんなものでしょうか。MSDNで見るとずばり

「Nothing:任意のデータ型の既定値を表します。」

nothingの日本語訳は「何もない」のハズです。すでに訳が分かりませんね＾＾；

挑戦１、そのまま表示したら何がでるかな？

ということで、「Console.WriteLine(Nothing)」をやってみました。

もうね、コンパイラさんの頑張りに申し訳なさでいっぱいです

挑戦２、既定値なんだよね？

せっかく上記でいろんな型が出てきたので、あそんでみませう。

.NETでは、サフィックスをつけると型を明示できます。ということで遊んでみるなど。

まずは、数値。

既定値は０なので、以下で「True」が返ってくるのは想定内。
ちなみに、＝を二つ並べなくったって、VBでは”=”一個だけだと比較です。（このせいで、λ式とかめんどっちいことにorz）

調子に乗って。もう、C系の人からぶんなぐられそうですｗ
VBerの皆さん。数学的にはこちらが正しい、と言い張りましょうｗ

次に文字列行ってみましょう

さて、このあたりから愛が加速していきます。
文字列型の既定値は空白文字なので以下の比較ができます。

とりあえず、上の2行を業務で書く人がいたらブっちょめすｗcがはく
＃ホントに居たらごめんなさいm(_ _)m

挑戦３、オブジェクトに使ってみよう

VB6のころのNothingは、ちゃんと何もなくしてくれました。
以下も、終了するとちゃんとExcel.exeお家に帰ってタスクマネージャーからいなくなります＾＾

今のVB.NETは……。単にオブジェクト変数に既定値を放り込むだけなんですね。

せっかく来てくれたのに、Excelくんは遥か彼方の亜空間でずっと待機＞＜

Excel.exeがタスクマネージャに残ったままになります。
可哀そうですが、タスクマネージャから追い返えすなどorz

VB.NETではちゃんとお別れしましょう

お別れは、作った絆をちゃんとすべてReleaseComObjectで解放してお家へ帰らしてあげましょう

【ご参考】COM オブジェクトの参照カウントを解放する

ということで、ホリデーシーズンにピッタリの愛があふれるお話でした＾＾/

Visual Basic .NETにおけるコンストラクタとデストラクタ

Thu, 08 Dec 2011 19:38:00 GMT

Visual Basicのコレ（Advent Calendar 2011）にも参加したので何かネタを＾＾
きっと難しいことはVisual BasicのMVPな人たちが書いてくれるはずなので、簡単なおさらいなど＾＾；
＃以下は、ホリデーシーズンの影響で、かなり独断と偏見に満ちあふれていますｗ

で、Java使いやC♯erから結構よく聞かれるのは、「VBのデストラクタってどうやって書くの？」です。
いわゆるコンストラクタはNewメソッドの実装で行われるということは割と普通に有名みたいです。
ではデストラクタは？

さて、もともとプロトタイピングツール？といわれたVBは20年周年（VB1.0 1991年6月）。
もともとVBにクラスなんて概念はありませんでした。
順調に成長を続けて、Visual Basic 4.0ではクラスモジュールが追加され、初期化と解放にはInitializeイベントとTerminateイベントが用意されました。

つまり、Visual Basic的な考え方では、初期化時と解放時にはイベントが呼び出されると言う文化が醸成されていると言えると思います。
ここで、注意していただきたいのは、C系でイベントプログラミングをされる方は、イベントは購読の登録をすればよく、イベントとハンドラが1対多の関係に違和感を感じません。しかし、伝統的にVBではイベントとハンドラは1対1だったため、いまだにVBerには1対1になってないと、気持ち悪がる人が多いように思います。

以上を踏まえて、まずはコンストラクタから。
初期化はイベントで、それは1対1であるという文化で問題になるのは、いわゆるコンストラクタは引数の数などがオーバーロードできるため、同じクラス内で複数個のコンストラクタがないと不便であるということです。
なので、コンストラクタはVisual Basic 7（いわゆる、.NET版）からは、Newメソッド化するという荒業に出ています。

次に、デストラクタです。では、オブジェクトを破壊するということはどういうことでしょうか。
端的に言って、作成したインスタンスを開放して無くしてくれる動作になります。
では、誰が開放して無くすのか？それはランタイムですよね。いわゆるガベージコレクタです。
要は、デストラクタは、ガベージコレクタがお掃除するときに呼び出されるものです。
.NETのランタイムでは、いわゆるFinalizeメソッドがこれに当たります。
つまり、VBでは、クラスのFinalizeメソッドがデストラクタにあたります。
そして、以前のイベント時代と同じようなUIで記述することが可能です^^（オーバーロードがないため、VBerにはイベントに見えるｗ）
ちなみに、C#でもデストラクタは暗黙的にFinalizeを呼び出します。
（というか、VBerからしてみれば、そちらさんのほうがヘンテコな書き方用意しやがって。ともかく、あのニョロのセンスは何事？と思ってしますわけです＾＾；）

おまけ：
Finalizeメソッドを実装すると、ガベージコレクタが動作するときに、Finalizeを呼び出すために解放が1世代遅れてしまいます。
ということで、用がないのでしたら、実装しないに越したことはありません。

ということで、結論

コンストラクタ：Newメソッド
デストラクタ：Finalizeメソッド

【ご参考】
「コンストラクタとデストラクタの使用方法」（VB）
http://msdn.microsoft.com/ja-jp/library/2z08e49e(v=VS.90).aspx

「Finalize メソッドおよびデストラクタ」（C#）
http://msdn.microsoft.com/ja-jp/library/0s71x931(v=VS.90).aspx

「C# ガベージコレクション」
http://uchukamen.com/Programming/GC/

言われてみれば気持ち悪い（？）VBの割り算

Tue, 19 Apr 2011 13:02:00 GMT

むかーしから、計算機代わりに以下のようなことをしていたので、言われてみて初めて気持ち悪さを感じた
＃って、本当は全然気持ち悪くないの。VB Loveだからに違いないｗ

? 5/2

2.5

----コード(VB)

Console.WriteLine((5I / 2I).ToString() & " ←" & (5I / 2I).GetType().ToString())
Console.WriteLine((5I \ 2I).ToString() & " ←" & (5I \ 2I).GetType().ToString())

----結果
2.5 ←System.Double
2 ←System.Int32

というか、後者のほうが気持ち悪い＾＾；
5割る2は2.5……だろ、JK
四捨五入したら2じゃなくて３だろ？（銀行屋さん爆（ry
＃R丸めてやるｗ（←決して、某Rさんのことをタタむとか、Rさんが丸い体型ということではないです Wikipediaに載ってた「R丸め」ってあんまり聞かないなぁ

＜追記＞
うみゅ、商を求めるので小数点以下をなくせばいいんですよね＾＾紛らわしくてごめんなさいm(_ _)m
C系だと、キャストしたときも同じ動作でしたよね＾＾

丸めるのはCIntとかのキャストですー。
＃むしろ Console.WriteLine( (int)(7/2).ToString); が３になるのが気持ち悪くてかなわない＞＜
##こくぶんさんありがとでした＾＾

----コード(C#)

static void Main(string[] args)
{
Console.WriteLine((5 / 2).ToString() + " ←" + (5 / 2).GetType().ToString() );

}

----結果
2 ←System.Int32

#結論、計算結果を変数に代入せず、そのままオブジェクトで使うのがいちばんキショいorz

と、自らの情弱を晒してみるorz

Crystal Reports for Visual Studio 2010のリリース日

Thu, 04 Nov 2010 16:07:00 GMT

元ネタ：SAP Network Blog: Update on the CR for VS 2010 Release

上記に、ETA for the production release is now November 15 2010.とあるので、11月15日に予定されていると思っていいんですよね！？（ETA:Expected Time of Arrival）。

BETAの”B"が抜けているとか、alpha-beta-gamma-delta-epsilon-zeta-etaとかだとブっちょめす！

さて、日本語環境でちゃんと動いてほしいもんだ。

[VB Love] Visual BasicでWindows Phone 7

Sat, 25 Sep 2010 11:17:00 GMT

元ネタ： Microsoft、「Windows Phone 7」開発ツールにVisual Basicを追加 - ITmedia エンタープライズ

やっと出ましたVB用開発ツール＾＾。といってもまだCTPなのでアプリストアには登録できないらしい。10月初めの「Windows Phone Marketplace」へのアプリ登録開始に間に合ってくれるといいな。

ちなみに、「Professional Edition」以上の「Visual Studio 2010」が必要だそうな。Expression Editionでガンガル人はC#を使ってください、ということなのかなorz

＃まぁ、.NETのプログラマなら両刀どころかあと数種の言語で記述できるスキルをお持ちの方が多いと思いますが、VB Love（←これを言いたかっただけ）

【Love VB】初期化子でいろいろとツッコめるようになりました＾＾（VB10）

Fri, 21 May 2010 18:55:00 GMT

元ネタ：Visual Basic 2010 のコレクション初期化子と配列初期化子MSDN マガジン October 2009

先日、久しぶりにjavaでテストケース書いて、便所で泣くくらいスゲーdisられた。

ArrayList arList= new ArrayList();
arList.add(0);
arList.add(1);
arList.add(2);
assertEquals("要素は3つ",3,arList.size());

だって、今までこうやって書いてたんだもん＞＜
Dim arList As New List(Of Integer)
arList.Add(0)
arList.Add(1)
arList.Add(2)
AssertEquals("要素は3つ",3,arList.Count)

まぁ、C#でも以下のよう書くから、自分でも情けないやら恥ずかしいやらorz
List array = new List { 0, 1, 2};

もう、Visual Basic使いも馬鹿にされずに済むｗ

■コレクションの初期化子：以下の一行だけでOK!
Dim arList As New List(Of Integer) From {0, 1, 2}

ちなみに、配列でもOK^^
■配列の初期化子
Dim arInt() As Integer = {1, 2, 3}

あと、型推論君があるのでこんな書き方もできますよっと
Dim arInt = {1, 2, 3}

ちなみに、型推論君はコンパイル時に型を決定するので、1%とか、1Lとかサフィックスを付けてあげればコンパイル時にちゃんと型を決定してくれます。そして、IDEでちゃんと認識してくれますよん。で、いろいろと混ぜてあげても、ちゃんと最適な型にしてくれます。惚れるねぇｗ

◎3Lと「L」を付けたので、Logになった（3Lの周りの○と赤線ははちゅきが描画）
　　

◎1.0R［Double型］、2L［Long型］、3%［Integer型］を並べた結果、Double型に（赤線ははちゅきが描画）

※中途半端なハンガリアン記法もdisられる原因だったのは生暖かい目で...＾＾；

あと、こんな書き方もできるようになりました＾＾
注目すべきは、宣言途中での改行にアンスコが要らないとか、（単にAddメソッド呼ぶだけみたいですが）初期化時に突っ込める記述ができること、そしてProperty、でp1、p2と書かれたコンストラクタ。New Person("ちゅき", "一般優良市民")と書いたとき、対応するコンストラクタがなかったら、右クリックして追加することができます＾＾。（Eclipseでもできるけれど＾＾；)。ちなみにPropertyはGet/Setを自動生成してくれます。このとき、_Nameというプライベートなメンバ変数が非表示として一緒に作られています。C系の人でアンスコを付ける癖のある人は、微妙に注意が必要です。
＃アンスコは男の敵！

Public Class Person
??? Property Name As String
??? Property Description As String

??? Sub New(ByVal p1 As String, ByVal p2 As String)
??????? Name = p1
??????? Description = p2
??? End Sub
End Classe

Sub Main()
??? Dim persons As New List(Of Person) From???
??????? {?? New Person("ちゅき", "一般優良市民"),
??????????? New Person("中", "道しるべ"),
??????????? New Person("割と普通","割と変態")
??????? }
??? For Each item In persons
??????? Console.WriteLine(item.Name & "さん:" & item.Description)
??? Next
End Sub

disる：disrespect、バカにしたりすることだそうな

Visual Basic

Windows OSとか Active Directoryのセキュリティーグループに所属するかを確認したい！

結論！

はじめに

Orchestratorなしで頑張ってみる

１、プログラムを作成

２、パッケージを作成

３、UiPathに読込

４、使ってみる

ローカルコンピューターのAdministratorsグループにいるかを確認

TargetGroup：”Administrators”TargetService：System.Environment.MachineName

プロ生で話してきました＾＾

au WiFi接続マネージャとかActive Connectionとかと、Hyper-V

Windows Phone SDK 8.0 日本語版のダウンロード

楽しい楽しい Visual BasicのNothing

挑戦１、そのまま表示したら何がでるかな？

挑戦２、既定値なんだよね？

まずは、数値。

次に文字列行ってみましょう

挑戦３、オブジェクトに使ってみよう

Visual Basic .NETにおけるコンストラクタとデストラクタ

言われてみれば気持ち悪い（？）VBの割り算

Crystal Reports for Visual Studio 2010のリリース日

[VB Love] Visual BasicでWindows Phone 7

【Love VB】初期化子でいろいろとツッコめるようになりました＾＾（VB10）

TargetGroup：”Administrators”
TargetService：System.Environment.MachineName