WSH(vbs)


windows7でのOLE/COM Object viewのインストール方法

OLE/COM Object viewは、システムに現在インストールされている全てのオブジェクトを調べることができるツール。

2015/03現在ダウンロード場所
-----------------------------------------------------------------

http://jp.downv.com/install-OLE-COM%83I%83u%83W%83F%83N%83g%83r%83%85%81%5B%83A-10555289.htm

http://download.cnet.com/Windows-2000-Resource-Kit-Tool-OLE-COM-Object-Viewer-oleview-exe/3000-10250_4-10732958.html

-----------------------------------------------------------------

自分のwindowsでは C:\Program Files (x86)\Resource Kit にインストールされた。

oleview.exeを実行すると、システムによっては「iviewers.dllというファイルがない」というメッセージが出る。

dllのダウンロード場所
-----------------------------------------------------------------

http://download.microsoft.com/download/2/f/1/2f15a59b-6cd7-467b-8ff2-f162c3932235/ovi386.exe

古いバージョンのoleview.exeから取得することができる。デフォルトではファイルはC:\MSTOOLS\BINディレクトリにインストールされる。

https://www.microsoft.com/en-us/download/details.aspx?id=8279

Windows SDKをインストールしてもOK。

https://msdn.microsoft.com/ja-jp/windows/desktop/bg162891.aspx

Widnows8.1用だが7もOK。
-----------------------------------------------------------------

必要なのはiviewer.dllだけ。oleview.exeと同じディレクトリにコピーした後、下記のコマンドラインを実行して、dllを登録する。(コマンドラインを管理者権限で開くには、Ctrl + Shiftを押しながら起動)

--------------------------------------------------------
Regsvr32 "(iviewers.dllのパス)"
例:例: Regsvr32 "C:\Program Files (x86)\Resource Kit\iviewers.dll"
--------------------------------------------------------

参考サイト

http://open-shelf.appspot.com/AutoIt3.3.6.1j/html/intro/ComRef.htm

http://qiita.com/zakuroishikuro/items/d9530f6feb5467fc318b

【vbs】windows7でmp3ファイルの再生時間を取得

windows7でmp3ファイルの再生時間を取得するためのメモ

//このスクリプトをvbsファイルとして保存
--------------------------------------------------------------
'Explicit(エクスプリシット)はっきりと述べられた、明白な、の意。
'変数の宣言を強制する
Option Explicit

Dim itm

With CreateObject("Shell.Application").Namespace("C:\Users\Public\Music\Sample Music")
For Each itm In .Items

'InStr は文字列の中に指定の言葉があるか
'LCase は小文字に変換
If InStr(LCase(itm.Type), "mp3") Then
WScript.Echo itm.Name & " , 長さ:" & .GetDetailsOf(itm, 27)
'XPの場合は21
End If
Next
End With
--------------------------------------------------------------

ちなみに他の主な項目は次のとおり。

-----------------------------------------------------------------------------
WScript.Echo itm.Name & " , ファイルサイズ:" & .GetDetailsOf(itm, 1)
WScript.Echo itm.Name & " , ファイルの種類:" & .GetDetailsOf(itm, 2)
WScript.Echo itm.Name & " , 更新日時:" & .GetDetailsOf(itm, 3)
WScript.Echo itm.Name & " , 作成日時:" & .GetDetailsOf(itm, 4)
WScript.Echo itm.Name & " , アクセス日時:" & .GetDetailsOf(itm, 5)
WScript.Echo itm.Name & " , 属性:" & .GetDetailsOf(itm, 6)
WScript.Echo itm.Name & " , 所有者:" & .GetDetailsOf(itm, 10)
WScript.Echo itm.Name & " , 参加アーティスト:" & .GetDetailsOf(itm, 13)
WScript.Echo itm.Name & " , アルバム:" & .GetDetailsOf(itm, 14)
WScript.Echo itm.Name & " , 年:" & .GetDetailsOf(itm, 15)
WScript.Echo itm.Name & " , ジャンル:" & .GetDetailsOf(itm, 16)
WScript.Echo itm.Name & " , 指揮者:" & .GetDetailsOf(itm, 17)
WScript.Echo itm.Name & " , 評価:" & .GetDetailsOf(itm, 19)
WScript.Echo itm.Name & " , 参加アーティスト:" & .GetDetailsOf(itm, 20)
WScript.Echo itm.Name & " , タイトル:" & .GetDetailsOf(itm, 21)
WScript.Echo itm.Name & " , コメント:" & .GetDetailsOf(itm, 24)
WScript.Echo itm.Name & " , トラック番号:" & .GetDetailsOf(itm, 26)
WScript.Echo itm.Name & " , 長さ:" & .GetDetailsOf(itm, 27)
WScript.Echo itm.Name & " , ビット レート:" & .GetDetailsOf(itm, 28)
WScript.Echo itm.Name & " , コンピューター:" & .GetDetailsOf(itm, 53)
WScript.Echo itm.Name & " , 名前:" & .GetDetailsOf(itm, 155)
WScript.Echo itm.Name & " , フォルダーのパス:" & .GetDetailsOf(itm, 177)
WScript.Echo itm.Name & " , 項目の種類:" & .GetDetailsOf(itm, 182)
WScript.Echo itm.Name & " , エンコード方式:" & .GetDetailsOf(itm, 193)
WScript.Echo itm.Name & " , 発行元:" & .GetDetailsOf(itm, 195)
WScript.Echo itm.Name & " , サブタイトル:" & .GetDetailsOf(itm, 196)
WScript.Echo itm.Name & " , アルバムのアーティスト:" & .GetDetailsOf(itm, 217)
WScript.Echo itm.Name & " , ビート数/分:" & .GetDetailsOf(itm, 219)
WScript.Echo itm.Name & " , 作曲者:" & .GetDetailsOf(itm, 220)
WScript.Echo itm.Name & " , イニシャル キー:" & .GetDetailsOf(itm, 221)
WScript.Echo itm.Name & " , コンパイルの一部:" & .GetDetailsOf(itm, 222)
WScript.Echo itm.Name & " , 雰囲気:" & .GetDetailsOf(itm, 223)
WScript.Echo itm.Name & " , セットのパート:" & .GetDetailsOf(itm, 224)
WScript.Echo itm.Name & " , サブタイトル:" & .GetDetailsOf(itm, 254)
WScript.Echo itm.Name & " , 共有ユーザー:" & .GetDetailsOf(itm, 268)
-----------------------------------------------------------------------------