くろねこ研究所全ての話題

[Delphi] マシンの稼動状況を確認する死活監視(Ping)

2011-12-27T00:15:42+09:00

マシンの死活監視に欠かせないのがPing。

くろねこも社内でアプリケーションサーバーがDBサーバーに接続しに行く前に死活監視を...と言う話を切り出してからはなかなか実現できず、問題だけが積み上がっていた。
だって、それに集中する時間が無いんだもん...

すでに、社内のマネージャからは「ライフワーク」といわれ始めた...

そんな状況を打開するために、ちょっと気合いを入れて調査してみる。

よくあるPingのサンプルプログラムでは管理者権限が必要。
管理者権限が不要といわれているプログラムをいくつか試してみたが動かず暗礁に乗り上げていたが...

本日、先日買ったノートPCで帰宅中に、最悪.net Frameworkでもいいか～と調べていると...
やっぱり、Pingクラスってあるんですね。
さらに、Pingクラスを使っている例が無いかググってみると、WMIで実行する方法がある。
WMIはWin32でも実行できるので、今回はこちらでコーディングしてみることにした。

できあがったソース。
なお、このプログラムのコンパイルにはタイプライブラリの取り込みが必要です。
Microsoft WMI Scripting V1.2 Library を取り込み、作成されたユニットをプロジェクトと同じフォルダに置くことを前提に作成してある。
※取り込み方法：メニューの「コンポーネント｜コンポーネントのインポート」で、コンポーネントのインポートウィザードを表示し、次にタイプライブラリのインポートを選択し「次へ」、一覧からMicrosoft WMI Scripting V1.2 Library を選択し「次へ」、ユニットの作成を選択し「完了」ボタンをクリック。

program PingExec;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Variants,
  ComObj,
  ActiveX,
  WbemScripting_TLB in 'WbemScripting_TLB.pas';

type
// 参考
//  Win32_PingStatus = record
//    string  Address;
//    uint32  BufferSize = 32;
//    boolean NoFragmentation = FALSE;
//    uint32  PrimaryAddressResolutionStatus;
//    string  ProtocolAddress = "";
//    string  ProtocolAddressResolved = "";
//    uint32  RecordRoute = 0;
//    boolean ReplyInconsistency;
//    uint32  ReplySize;
//    boolean ResolveAddressNames = FALSE;
//    uint32  ResponseTime;
//    uint32  ResponseTimeToLive;
//    string  RouteRecord[];
//    string  RouteRecordResolved[];
//    String  SourceRoute = "";
//    uint32  SourceRouteType = 0;
//    uint32  StatusCode;
//    uint32  Timeout = 1000;
//    uint32  TimeStampRecord[];
//    string  TimeStampRecordAddress[];
//    string  TimeStampRecordAddressResolved[];
//    uint32  TimeStampRoute = 0;
//    uint32  TimeToLive = 80;
//    uint32  TypeofService = 0;
//  end;
  TPingResult = record
    BufferSize: cardinal;
    ProtocolAddress: string;
    ResponseTime: cardinal;
    ResponseTimeToLive: cardinal;
  end;

function SendPing(address: string; var pr: TPingResult): integer;
var
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObjSet:  ISWbemObjectSet;
  SObject:  ISWbemObject;
  Enum:     IEnumVariant;
  TempObj:  OleVariant;
  TempVal: Cardinal;
  Query: string;
begin
  Result := -1;

  if Failed(CoInitialize(nil)) then Exit;
  try
    Locator := CoSWbemLocator.Create;
    Services := Locator.ConnectServer('.', 'root\cimv2', '', '', '', '', 0, nil);
    Query := 'SELECT * FROM Win32_PingStatus WHERE address=' + QuotedStr(address);
    SObjSet := Services.ExecQuery(Query, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
    TempVal := 0;
    Enum := (SObjSet._NewEnum) as IEnumVariant;
    if (Succeeded(Enum.Next(1, TempObj, TempVal)) and (TempVal > 0)) then
    begin
      try
        SObject := IUnknown(TempObj) as ISWBemObject;
        if (SObject <> nil) then
        begin
          if VarIsNull(SObject.Properties_.Item('StatusCode', 0).Get_Value) then exit;

          Result := (SObject.Properties_.Item('StatusCode', 0).Get_Value);

          if (Result = 0) then
          begin
            with SObject.Properties_ do
            begin
              pr.ProtocolAddress := VarToStr(Item('ProtocolAddress', 0).Get_Value);
              pr.BufferSize := StrToIntDef(VarToStr(Item('BufferSize', 0).Get_Value), 0);
              pr.ResponseTime := StrToIntDef(VarToStr(Item('ResponseTime', 0).Get_Value), 0);
              pr.ResponseTimeToLive := StrToIntDef(VarToStr(Item('ResponseTimeToLive', 0).Get_Value), 0);
            end;
          end;
        end;
      finally
        SObject := nil;
        VarClear(TempObj);
      end;
    end;
  finally
    Enum.Reset;
    SObjSet := nil;
    Services := nil;
    Locator := nil;
  end;
end;

(** Main **)
var
  pr: TPingResult;
begin
  if (SendPing(ParamStr(1), pr) = 0) then
  begin
    System.Writeln(Format('%s からの応答: バイト数 =%d 時間 =%dms TTL=%d', [
      pr.ProtocolAddress, pr.BufferSize, pr.ResponseTime, pr.ResponseTimeToLive]));
  end
  else
  begin
    System.Writeln(Format('%s からの応答: 宛先ホストに到達できません。', [ParamStr(1)]));
  end;
end.

RFC 791準拠.ちなみにパラメータはコンピュータ名でもIPアドレスでも実行可能。IPv6 and IPv4 Support in WMIということなのでIPアドレスはIPv4, IPv6 双方可能だと思われる。

■参考URI

...

12/18 サブノートPCが届く

2011-12-18T20:01:42+09:00

なんでほしくなったのか詳細は不明だが、とりあえず12/1にサブノートPCの注文をしてしまった。
ほしいなと感じたのは、その約1週間ほど前、docomoのタブレットへの興味が薄れ、後継に何を所有するか？と考えたときこの結論になったようだ。

やはり、アンドロイドごときでは窓の代わりにはなれない！

と言うことが最大の原因だったようだ。

しかし、今回のターゲットは所詮サブノートであるため、それほど高い性能は必要無い。とはいうもののAtomでは性能が心許ない。よってCPUはi3～i5とした。
また、通勤時間が長めなのでバッテリーの持ちは長めを希望する。おおむね6時間以上もってほしい。サイズも持ち運びに便利な13.3程度が望ましいと判断した。
が、昨今の主流は15.6インチ程度になってしまっており、このサイズはネットブック程度しか無い。サブノートの需要はそれほど多くなく、今は以前デスクトップがになっていたファースト機としての性能がノートPCに求められていることも有り、画面サイズもかなり大型化してきている。

そんななか、くろねこがチョイスしたのがLenovoのX220とマウスコンピュータのLuvBook手頃なサイズで性能もi3～i7まで選択可能なのだが...
X220は値段が高すぎて...と言うことでLuvBookとなってしまった。OSなどはすでにもっているので、購入する必要も無いのだが、SSDモデルなどいろんな観点から考えたところ、価格.com限定パッケージのLB-S210S-SSD-KKとなった。インテル製SSD 120GBに変更されているのでバッテリーも長持ちするはず、動作速度もHDDよりは速いだろうということを期待した。
まあ、まだあまり使ってないので、体感でそこそこ行けるかな？程度なのであるが...

とりあえず開封時の写真

しかし、昔に比べて箱の大きさがずいぶんと小さくなったな～。
マニアルの冊数とかもかなり減ってるんだけど。

しかし、このパッドはいつ使っても使いにくいな～。
Lenovoとか昔のTOSHIBA機のようなトラックポイントの方が個人的には使いやすい…

TOSHIBA機で復活しないかな～？ ...

11/29 使いやすいCMSを求めて…

2011-11-29T23:52:17+09:00

最近便利なCMSを求めてCMS比較サイトなどを眺めていました。

とりあえず個人で使ってみて良かったら、会社でも…と言うもくろみがあります。
今使っているCMSはGeeklogですが、正直高機能でも使いやすくもないと思います。
特にバージョンアップがめんどくさいです。でも、だいぶんマシになりました。昔はConfigをよけておいて、新しくインストールしたところに自分のコンフィグを足し込むことが必要でした。今でも一部のファイルはそんな感じです。

求めるCMSは、

デザインがよく
カスタマイズ可能であり
高機能で
メンテナンスが楽である
かつ低価格

と言うことで、今個人的に注目のCMSはbingo CMSです。
価格が2万円台でかつそれなりに高機能です。ただ、ユーザー数は未知数でフォーラムなどが充実してなさそうで、カスタマイズ方法などを公式サポートで確認しているとすぐに高価なCMSと同等になってしまう危険性がありますが、一応ほとんどの機能は網羅されていそうです。

ちょっと、メーカーに問い合わせなどして見ながら詳細を詰めていきたいなと考えているところです。 ...

11/27 SoftBankと契約してしまった…

2011-11-27T23:18:02+09:00

通勤時間の有効活用にサブノートPCとWifiルーターを検討し始めて1週間。
先週、ヤマダ電機で進められたイーモバイルのWifiルーターを購入しようかと、いつものケーズデンキへ。

パソコンコーナーで一番最初に声をかけてきたのはeoさん、eoさんはキャンペーンで入り口にもブースを広げていたけどかなりユーザーを獲得したいようです。そんなeoさんにeoモバイルについて質問してみたら、eoモバイルは遅いのでSoftBankさんのウルトラモバイルをお勧めされた。

ウルトラモバイルがキャンペーン中で結構安くて3,800/月。速度も下り42Mbps、上り10Mbpsで業界としては結構早い方。(現在1位はdocomoのxi。でもルータータイプの売りが今はないと言うことと、結構値段が高い。)
このキャンペーン11月末までと言うこと。と言うことは、くろねこ的には11月の最終土日の今日が最終日。今日決めないと、次来たときには4,980になっていると言うことなんですね。

仕方が無いのでノートパソコンが決まらない間にどんどん回線の契約だけが進んでしまいましたよ。
決め手は、3,880円/月が解約するまでずっと続くと言うこと、この金額が現在のdocomoでの契約と比べて若干安いと言うこと。(しかもdocomoのキャンペーン料金は契約の2年が過ぎると通常の値段に戻り、高くなる予定だった。)

速度が上がって、料金が安くなって言うこと無しなので契約したと言うことですね。
docomoの解除料が高いですけど...

肝心のノートPCはサイズとお値段がauのがケーズでは見つかりませんでした。
富士通のPCを取り寄せすると良い感じのがあったのですけど...
取り寄せすると値引きがほとんどないので、割高なんです。

と言うことで、今は下のどちらかと言う所なのかな？

ThinkPad Edge E420 CTO
マウスコンピュータ LuvBook S シリーズ LB-S210S(OSレス構成)

OSレスでOpen LicenseでL+SAで購入してみようかな？

...

11/27 docomoを解約

2011-11-27T23:02:48+09:00

本日docomoの回線を解約してきました。

定額データプランSバリューの解約違約金と、GALAXY TABの本体代の残りで33,000円ちょいだそうで、これが次月の請求分にプラスされて来るようです。

解約の理由の主なところとして...

回線のハンドオーバーがしっかり出来ていない。
電車での移動中にyoutubeを閲覧しようとすると、ずっとぐるぐる回り続けるところが多いです。
FXのアプリくらいの通信であれば特に問題は無いようです。
GALAXY TABの電源を入れることがほとんど無くなっていた。
IS04の頃はauのスマートフォンが非常に安定しないため、よく修理に出していたこともありサブとしての出動も多かったですが、最近はあんまりでした。
androidよりもやはりWindowsノートPCのほうが使い勝手が良い。
ノートPCと接続するには大きなTABよりも小さくて電池も長持ちする、Wifiルーターがほしくなってきていた。GALAXY TABもかなり電池は長持ちしますよ？

くろねこハウス建築中

2011-10-24T00:02:04+09:00

みなさま、おひさしぶりです。

くろねこです。

本日、MoE世界に自宅を作ることになりました。
住所はゲオ西の外れミニアルター5番付近です。

家を買うときにはやはり下見が大切。最初はソレスにしようかと考えていろいろ見て回ったんだけど、今は震災の影響でなのか腐るはずの家が腐らず、良い土地が少ないように思えます。

ソレスの中心部の家で2件ほど残り3日で腐敗がストップしている状況の物がありました。
この土地、表記とは異なり最も早くても11/1にならないと購入できません...

まあ、そんなソレスをおいといてゲオを見て回ると、アルターからの大通りに面した土地が空いていることに気づきました。ミニアルターもそれなりに近いので、結局そこに決めることになりました。

住む場所を決めたら、今度は上物です。維持費を稼ぎたいので店舗併設可能なスタイルとします。
と言う訳で、店舗ハウスの作成を進めます。
まず、石灰岩を掘って次に粘土岩を掘って… って掘ってばかりで結構疲れるんですね～。それに石灰岩は採掘だけど、粘土岩は収穫で掘るなんて聞いてないよ？

なーんておもいながら、さくさく作った自宅は3日と12時間ほど建設にようするようです。

SSもはっ付けようかと思いましたが、完成してから追加することにします～。 ...

ロリモア出る！

2011-09-21T23:04:24+09:00

回復魔法をもったペットがほしい！フィニュでも良いけど、飛んでる方が良い…。と言うことでロリモアを選定、ロリモアは光放つ魔道書からでると言うことで...
モエガチャ(D,E,P)を回すことになった。

モエガチャと言えば、今週はずっとラッキータイムで上位のアイテムが当たりやすくなっている(らしい)。
くろねこは、とりあえずエレメンタルプルルームがほしいのだが、今は魔フィニュが高く売れるので、動物ガチャシルバーを回して魔フィニュを当てて交換に持っていくか？(たぶんおつりがくる…)
もしくは、直接狙うか…
初日18日は(というか日付的には19日)300円ガチャだと1000円ずつきれいに使えないから、50円の動物ガチャシルバーを2回回して、次の日からもえガチャ300円を回すことにした。
初日は、魚籠となんか
2日目、箱入り染色液(黒)...
3日目(今朝)...
回してみたら、金色...

なんだろうと思って待ってると...

なんと！光放つ魔道書！

狙いどおりでしたよ。これで5M程度で買いチャネルを立てる必要がなくなってラッキーでした。

カオスでも結構レアアイテムが出てるほうらしいし、MoEでは結構運がいいのかな？ ...

[Delphi] MainFormOnTaskBarとタスクバーボタン2

2011-08-30T10:38:45+09:00

[Delphi] MainFormOnTaskBarとタスクバーボタンで完成できていなかったActiveFormOnTaskBarの動きがようやく完成です。
サポートの方にもご協力いただいて...実現しました。

ウィンドウスタイルを変更すると概観にも変化が起きてしまうので、今度はタスクバーそのものを直接いじってます。
このため、今回はComObjectを利用することになりました。
よって、uses にComObj, ShlObjを追加しておいてください。

タスクバーにタスクバーボタンを追加する関数と削除する関数です。

procedure AddTaskBarBtn(hnd: THandle);
var
  TaskbarList: ITaskbarList;
begin
  TaskbarList := CreateComObject(CLSID_TaskbarList) as ITaskbarList;
  TaskbarList.HrInit;
  TaskbarList.AddTab(hnd);
  TaskbarList.ActivateTab(hnd);
end;

procedure DelTaskBarBtn(hnd: THandle);
var
  TaskbarList: ITaskbarList;
begin
  TaskbarList := CreateComObject(CLSID_TaskbarList) as ITaskbarList;
  TaskbarList.HrInit;
  TaskbarList.DeleteTab(hnd);
end;

これを実際のプログラムに組み込んで行きます。
子フォームを生成する側/生成される側両方に組み込む必要があること、その両方の立場になるフォームが出来ることが予想されますから、テンプレートのフォームを作って組み込んでおき、そこから派生して行くのがいいかと思います。
組み込むイベントは、OnActivate/Deactivate/FormCloseの3ヶ所です

procedure TForm1.FormActivate(Sender: TObject);
var
  i: integer;
begin
  AddTaskBarBtn(Handle);

  if (fsModal in FormState) then
    for i := 1 to Screen.FormCount - 1 do
      DelTaskBarBtn(Screen.Forms[i].Handle);
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  DelTaskBarBtn(Handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // ダイアログ(モード付き)の場合には、
  // ...CALL元でダイアログ情報を参照する可能性があるので破棄しない
  if not(fsModal in FormState) then
    Action := caFree;
  if (not Application.Terminated) and (Owner <> nil) and (Owner is TForm) then
  begin
    TForm(Owner).Show;
    if (fsModal in FormState) then
      AddTaskBarBtn(TForm(Owner).Handle);
  end;
end;

テストは、Showのみ、ShowModalのみ、ShowとHide、ShowModalとHideの4種類で確認しました。

procedure TForm1.btnShowClick(Sender: TObject);
begin
  with TForm1.Create(Self) do
  begin
    Show;
  end;
end;

procedure TForm1.btnShowHideClick(Sender: TObject);
begin
  with TForm1.Create(Self) do
  begin
    Self.Hide;
    Show;
  end;
end;

procedure TForm1.btnShowModalClick(Sender: TObject);
begin
  with TForm1.Create(Self) do
  begin
    ShowModal;
    Release;
  end;
end;

procedure TForm1.btnShowModalHideClick(Sender: TObject);
begin
  with TForm1.Create(Self) do
  begin
    Self.Hide;
    ShowModal;
    Release;
  end;
end;

なお、実際のテストは複数フォームを作成するのがめんどくさいので1つのフォームでまとめてやりました。
なので、何個目のフォームか簡単に識別するためにOnCreateでキャプションの変更をしています。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Format('Form%d', [Screen.FormCount]);
end;

皆様のご参考になれば幸いです。 ...

08/29 グラフィックドライバインストール方法

2011-08-29T23:07:07+09:00

当サイトにAMDのグラフィックドライバを求めて訪問される方が非常に多いので、最新版のダウンロード方法をまとめることにしました。
といっても、かつてドライバのダウンロード方法を記載した当時に比べて、今は初心者の方が迷わずにダウンロードできるように各社工夫されており、非常にドライバのインストールが簡単になっています。

ただ、自身のパソコンに搭載されているグラフィックが、AMD(ATI)なのかnVIDIAなのか、もしくはIntelなのかはユーザー自身が確認しなければなりません。その方法も知ってしまえば簡単なので、まとめてご紹介いたします。
面倒なら下記のインストール手順に従って、nVIDIAサイトで自動認識させて見ましょう。どこのメーカーのどのチップセットなのか判断してホームページ上に表示してくれます。

各社ダウンロードサイト

グラフィックチップ確認方法

マイコンピュータを右クリック
プロパティを選択
ハードウェアタブを選択
ディバイスマネージャをクリック
「ディスプレイアダプタ」を展開すると使用しているグラフィックの一覧が表示される。
Intelの例

nVIDIAの例

nVIDIAサイトでのダウンロード方法
1. 下記のリンクをクリックしてダウンロードサイトを表示します。
  http://www.nvidia.co.jp/Download/index.aspx?lang=jp
2. オプション2: エヌビディア製品用ドライバを自動検索するをクリックします。
3. 後は、画面の指示どおりに進めるだけです。
ショートカット: http://www.nvidia.co.jp/Download/Scan.aspx?lang=jp
現在はこのURIで、1と2の手順を代用できます。
AMDサイトでのダウンロード方法
1. 下記のリンクをクリックしてダウンロードサイトを表示します。
  http://support.amd.com/us/gpudownload/Pages/index.aspx
2. Graphics Drivers & Software Step1 のコンボボックス右側にある Automatically Detect and InstallのDownload Now をクリックします。
  
  後は、画面の指示どおりに進めるだけです。
ショートカット: http://www2.ati.com/drivers/auto/amddriverdownloader.exe
現在は上記URIで1と2の手順を代用できます。
Intelサイトでのダウンロード方法
1. 下記のリンクをクリックしてダウンロードサイトを表示します。
  http://www.intel.com/p/ja_JP/support/detect/graphics
2. 画面中央にある「使用システムに適した最新ドライバーの確認」ボタンをクリックします。
3. 後は、画面の指示どおりに進めるだけです。

08/28 おもちゃのけん+8

2011-08-28T11:43:15+09:00

先日早取りして、11-08-23 精錬の泉新学期ラッキータイムのお知らせを見て、慌てて課金してフェティッシュタブレットのセットを2セット買い、IDにキャラがなかったのでキャラ作成して...

で、持っていたおもちゃのけん+7を泉に放り込んでみた！
結果、2回失敗した後成功し、+8に

ここで、まだフェティッシュタブレットも残っていたので...別キャラが持っていたおもちゃのけん+6も放り込んでみたら...
またまた同じく、2回失敗した後成功し+7へ

きっと運が良かったのだと、思いそれ以上はせずにその日は就寝。

次の日聞いてみたら、確率1.5倍は帰還中のラッキータイムだけでその日はラッキータイムではなかった!!
成功して良かったな～

で、本日ラッキータイムなので先日+7にしたおもちゃのけんを+8に...
またまた同じ結果で、2回失敗した後に成功して+8に...

なんでいつも同じパターンなのですかね？
計6回の失敗と3回の失敗で、9個のフェティッシュタブレットと3000spを使ってまだもうちょっと余っている。
ボルケを精錬するか、くろねこのお面を精錬するか、はたまたロリモアを狙ってガチャるか次の機会においておくかどうしよう？ ...

くろねこ研究所 全ての話題