VBS(VBScript)による各フォルダの詳細情報を確認する方法を紹介
WMIを使って、各フォルダの詳細情報を確認(フォルダ名、各詳細プロパティ)
サンプルソース
※取得可能なプロパティ(情報)は、以下手順で取得可能⇒WMIのクラス・プロパティ一覧の確認
※「型が一致しません」のエラーが出る場合⇒VBSのWMIの出力で、型が一致しませんのエラーが出る場合
(入力:cscript)
Dim qu,cl,swbe,service,sms1,sms2,sms3,sms4
Set swbe = WScript.CreateObject("WbemScripting.SWbemLocator")
Set service = swbe.ConnectServer
Set qu = service.ExecQuery("Select * From Win32_Directory")
For Each cl In qu
sms1 = cl.Description
sms2 = cl.FSName
sms3 = cl.LastAccessed
sms4 = cl.System
Wscript.Echo "Description:" & sms1
Wscript.Echo "FSName:" & sms2
Wscript.Echo "LastAccessed:" & sms3
Wscript.Echo "System:" & sms4
Wscript.Echo
Next
(出力)
Description : C:\
FSName : NTFS
LastAccessed :
System :
Description : c:\$recycle.bin
FSName : NTFS
LastAccessed : 20150806133426.421102+540
System : True
Description : c:\$recycle.bin\s-1-5-18
FSName : NTFS
LastAccessed : 20150129132423.654219+540
System : True
Description : c:\$recycle.bin\s-1-5-21-1957994488-1085031214-839522115-500
FSName : NTFS
LastAccessed : 20150806133426.421102+540
System : True
・・・・・・・・・・・・(省略)・・・・