WMI Fun !! 〜 WMIに興味がある方・システム管理者必見!! 〜
 WMI Step|WMI Sample|WMI Reference|WMI Library|My Let'snote|Personal|Link|About WMI Fun !!

WMI Fun !! > WMI Sample (VBS) > ファイルの各種属性を取得する

Panasonic Let'snoteを長年愛用しています、その理由はMy Let'snoteで…
インクを買うよりもしかしたら安い?インクジェット複合機Canon PIXUS MP493
ビジネスにパソコンを活用する為のバイブル、月刊仕事とパソコン

ファイルの各種属性を取得する: CIM_DataFile - WMI Sample (VBS)

Topics

ファイルの各種属性を取得するサンプルプログラムです。CIM_DataFileクラスを使用します。

従来のVB(VB6)版のサンプルはこちらで公開しています。


Sample Code

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr

'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From CIM_DataFile Where Name = 'c:\\boot.ini'")

'コレクションを解析する。
For Each oClass In oClassSet

sMesStr = "ファイル名:" & oClass.Name & vbCrLf & _
"アーカイブ:" & oClass.Archive & vbCrLf & _
"圧縮:" & oClass.Compressed & vbCrLf & _
"暗号化:" & oClass.Encrypted & vbCrLf & _
"隠しファイル:" & oClass.Hidden & vbCrLf & _
"読み取り専用:" & CBool(Not (oClass.Writeable)) & vbCrLf & _
"システムファイル:" & oClass.System & vbCrLf

Next

MsgBox ("ファイルの各種属性です。" & vbCrLf & vbCrLf & sMesStr)

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing


Comment

実行するとcドライブにある、boot.iniファイルを検索して各種属性を表示します。読み取り専用属性の取得に関してはちょっと遠回りな考え方で書き込めるかどうかの判断のになるためNot関数を通してます。

CIM_DataFile クラスに関連するサンプルは他に、

を紹介しています。
なおWMIの使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShellを対象)に関してはWMI Stepも参考にしてみてください。(WMI初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソーステンプレートも公開しています。プログラム/スクリプト作成時に役立てば…と思っています。


Recommended book

個人的にお勧めする本の紹介です。


Latest sample information

最近WMI Sampleへ追加したサンプルのご紹介です。

興味のあるサンプル・クラスがありましたら参考にしてみて下さい。


ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています
WMIに関して調べているけど探し物が見つからない…という方はSearch Resultから検索してみましょう!!

MCP(Microsoft Certified Professional)一応MCP(Microsoft Certified Professional)、MCA(Microsoft Certified Associate)所有してたりします…

- WMI Fun !! -
http://www.wmifun.net/
Microsoft社のテクノロジーであるWMI(Windows Management Instrumentation)の使い方を
Visual Basicを使ってのんびり公開しています
WMIはVB/VBAや.Net(VB,C#)以外でもWMICやWSH(VBS/JS)・PowerShellなどスクリプト言語からも使えますよ!
Windowsベースの社内ITシステムに関する資産管理、アセットマネジメントや監視業務の効率化、 インベントリ情報収集系システムツール開発にWMIはお勧めです

This website is created by Toh.
Copyright(C) 1997-2012 WMI Fun !!. All rights reserved.
WMI Fun !!へのリンクはご自由に…相互リンクに関するお問い合わせはアンケートページからお願いします。

∧ ページの先頭へ…