To get WMI properties

ちょいとWindowsクライアントからメモリの情報を取得したくて、
ひっさびさにVBScriptなんぞを書いてインベントリの真似事的なものを作成している。

知りたいのは、だいたい以下の感じ。
　・メモリスロットの総本数
　・メモリ搭載容量
　・ メモリ種類

スクリプト的にはこんなところか。

Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") 
aryForm = Array("Unknown","Other","SIP","DIP","ZIP","SOJ","Proprietary","SIMM", _
    "DIMM","TSOP","PGA","RIMM","SODIMM","SRIMM","SMD","SSMP", _
    "QFP","TQFP","SOIC","LCC","PLCC","BGA","FPBGA","LGA")
aryType = Array("Unknown","Other","DRAM","Sync-DRAM","Cache-DRAM","EDO","EDRAM","VRAM", _
    "SRAM","RAM","ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM", _
    "3DRAM","SDRAM","SGRAM","RDRAM","DDR","DDR2")

' -----------------------------------------

Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem") 
For Each objItem in colItems
    strResult = strResult & "SystemName: " & objItem.Name & vbCr
    strResult = strResult & "SystemManufacturer: " & objItem.Manufacturer & vbCr
    strResult = strResult & "SystemModel: " & objItem.Model & vbCr
    strResult = strResult & "TotalMemory: " & objItem.TotalPhysicalMemory & " bytes" & vbCr
Next

Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_PhysicalMemoryArray") 
For Each objItem in colItems
    strResult = strResult & "MemorySlot: " & objItem.MemoryDevices & vbCr
Next

Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_PhysicalMemory") 
For Each objItem in colItems 
    strResult = strResult & "----- " & aryForm(objItem.FormFactor) & " Module (" & _
        aryType(objItem.MemoryType) & ") on " & objItem.DeviceLocator & vbCr

    strResult = strResult & "Tag: " & objItem.Tag & vbCr
    strResult = strResult & "DataWidth: " & objItem.DataWidth & " bit" & vbCr
    strResult = strResult & "MemoryCapacity: " & objItem.Capacity & " bytes" & vbCr
    strResult = strResult & "Speed: " & objItem.Speed & "MHz" & vbCr
Next

WScript.Echo strResult

Option Explicitしていないので汚いもんだけど。


結果は下記のとおり。

で、Moduleの後ろのカッコ内がMemoryTypeから拾ったデータなんだが、
なぜか0（=Unknown）になってしまう。

MSDNのライブラリを確認すると、DDR3がない。
「じゃあDDR3なんじゃね？」としたいところだが、
このPC、DDR2なんだよね。本来21が返らないといかん。

謎。
だが、大勢に影響なさそうなのでこれで通す感じ。

WindowsXP Installation

あと半年でsupport expiredだっつーのに今更なんじゃーという話ではあるんだが、
会社で思いっきりハマったので備忘録。


以下は、こんな方へのお勧めレシピ（はぁと

• WindowsXP SP3入れたが、Windows Updateがいつまで経っても進まない
  （「最新のソフトウェアを確認しています」のまま帰ってこない）
• WindowsUpdateでチェック中に「0x8024D001」でエラーになる
• どっちにしても時間ばかり浪費して、僕もう疲れたよなんだかとっても眠いんだ

というところで、以下をチェックすると幸せかもしれない。
パトラッシュ、一緒に旅立とう（←ダメ）

1. InternetExplorerを8にしてみる。
   どうやら6は見限られて久しいらしい。
   ダウンロードはここら辺に。
2. Updateエージェントが古い可能性があるらしい。
   エージェントを手動で突っ込むのだが、
   最新版のスタンドアロンはないらしいので、
   ひとまず旧版をインストールするべし。
   ここらへん。
3. それでもアカン場合、MSのサイトにテスト＆フィックスするツールがある。
   こちらのfix itページを見るといいかも。
4. 上記のfix itだったりで「.NET Frameworkの最新版が欲しい」とか言い出す場合がある。
   その時は2.0 SP2を入れればいいかもしれない。
5. 癇癪おこさない。
   残念だけど、WindowsUpdateはえらく時間がかかります。
   仕掛けて一晩寝かすとかの方が精神的には楽。

とにかく妙にブラックボックス化されてるところが面倒なんだよなあと毎回思う。
完全に隠蔽するか（ただのMac）、もっと開示するか（ただのLinux）のどっちかにしてほしい。
※あくまでも個人の主観と感想によるものであり、弊社の公式見解ではありません。

さて、行方不明のデバイスドライバを探すか…。

Matters to be attended to asking question

社内サポートの業務に戻ったこともあって、これまたリハビリの一環でOKwaveなどのQ&Aサイトを見たり回答したりしているが、

ケースとして多く回答するときに苦慮するのが

「勝手にエラー等の表示を省略・丸めてしまう」

ということ。


 「接続できませんでした」といった一言で終わらせてしまうのは、最近の高度化したコンピュータのなかで思いつく原因が多岐に渡りすぎていて、
見当すらつけられない場合が多い。

純粋に「○○で■■したら△△というエラーが出た」と言ってくれた方がまだ判りやすい。


丸めてしまう人の大概は、誤った知識や「判ったふり」の上に成り立っていることが多く（判っていれば悩んでいないだろう、というケースが非常に多い）、
どこまで正しい判断をしているのかが判らないケースだらけ（上記例で言うと「接続できない」とした判断基準が曖昧 or 誤解の上に成り立っている）。

そうすると、擦り合わせのやり取りがムダに長くなってしまい、本人としては善かれと思った『省略』が逆に長期化の原因となる。

さらに、「うぇ？ここが判ってなかったの！？」という『後戻りストレス』が発生するので、回答側の語勢もだんだん荒くなり、問題が解決しようがしまいが非常に気まずくなったりする。

 双方ともが持つ善意や気遣いの果てに発生するすれ違いなので、悪者がいないのがなんとも遣り切れない。


ということで、

「あ、ありのまま今起こったことを話すぜ！」メソッド

↑これ、冗談でなく結構重要だったりする。

Japan IT week

正直、IT屋を離れて４年近く経っているので…
業界動向がだいぶ変化していることもあって、リハビリも兼ねて行ってきた。


ビッグサイトではなく幕張メッセの展示会は久しぶり。

…というか、よく考えたら2002年前後のキャラクターショーに出展社として行った後、メッセは完全にご無沙汰でした。


資産管理だったりクラウドだったり、
MDMとかのBYOD対策だったり。
新しいソリューションももちろんのこと、４年以上前に導入したり試したりして未だ健在にバージョンアップしているソフトウェアなんかもあって、なかなかに勉強になった。

昔めちゃめちゃお世話になった業者の方と話して「あの担当さん辞めたのかー」とかとか。
無駄に長いこと居ると、入れ替わりも激しいやね。



さくらインターネットのブースではVPSサービス拡充の話を社員の方としていたところ…
ふと振り返ると同社PRキャラの桜葉愛ちゃんが三次元に来てました。


もちろん業種的にコミケなどでコスプレは慣れたものだが、ちょっとビビった＆感動した。

After installing OSX Mavericks

朝方までかかってダウンロード完了し、早速MacBook Airにインストール。

ProTools 9のプラグイン回りが完全に避けられました。


ちーん。
メイン環境への適用はもうちょっと後にする。


 …いや、古いバージョンのまま年貢を納めていない俺が悪い。

4万か…

OS X Mavericks.

ようやっとOS X Mavericksがリリースされたようで。

MacBook Air（2012）を購入するにあたってUSキーボード配列のBTO品にメモリの多い奴が在庫切れしていたため、4GBで頑張って使っていた訳ですが。
SSDなのでスラッシングがかかってもそんなに気にはならなかったものの、VMware Fusionなんぞを使いだすと結構痛いことになってたのですよ。

Mavericksで期待していたのはコアレッシングと圧縮メモリ。これがうまいこと動いてくれれば、より使いやすくなるかな。

が。

自宅回線はWiMAXで遅く、先が思いやられる感じのEstimate timeとなっております。

あと、昔っからのMac Userとしては、
圧縮メモリとか聞くと

これ思い出すよね。

New stage.

ちょっと河岸を変えてブログっぽいメモを作ってみようかと。

おそらくサーバ管理とかそっち方面＆趣味的なものを。