'==================================================================
'' ファイルのバージョンチェック・コマンドラインで標準出力
'http://www10.plala.or.jp/palm84/archives/wsh/FileVersion_for_Batch.vbs.txt
'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/FileVersion_for_Batch.vbs.txt
'==================================================================
Option Explicit

If WScript.Arguments.Count = 0 Then
    WScript.Echo "コマンドライン引数が指定されていません"
	WScript.Quit
End If

MyFileVer

'*********************************************************
'Sub MyFileVer
'*********************************************************
Sub MyFileVer
Dim objFile, objFolder, objFolderItems, objItem
Dim strPath, strFileName, strFolder, strName, strName2, strName3, strName4, strName5
	' Shell.Application オブジェクト作成
	Dim objShellApp
	Set objShellApp = CreateObject ("Shell.Application") 
	' FileSystemObject オブジェクト作成
	Dim objFSO
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	For Each strPath In WScript.Arguments
		If objFSO.FileExists(strPath) Then
			Set objFile = objFSO.GetFile(strPath)
			strFileName = objFSO.GetFileName(strPath)
			strFolder = objFile.ParentFolder
			Set objFolder = objShellApp.Namespace (strFolder) 
			Set objFolderItems = objFolder.Items
			Set objItem = objFolderItems.Item(strFileName)
			Wscript.Echo "========================================================="
			Wscript.Echo strPath
			Wscript.Echo "========================================================="
			Dim n
			For n=0 to 300
				strName = objFolder.GetDetailsOf(Nothing, n)
				If strName = "ファイル バージョン" Then
					Wscript.Echo "File Version    : ", objFolder.GetDetailsOf(objItem, n)
				End If
			Next
			Dim m
			For m=0 to 300
				strName2 = objFolder.GetDetailsOf(Nothing, m)
				If strName2 = "製品バージョン" Then
					Wscript.Echo "Product Version : ", objFolder.GetDetailsOf(objItem, m)
				End If
				Next
			Dim l
			For l=0 to 300
				strName3 = objFolder.GetDetailsOf(Nothing, l)
				If strName3 = "説明" Then
					Wscript.Echo "説明            : ", objFolder.GetDetailsOf(objItem, l)
				End If
			Next
			Dim k
			For k=0 to 300
				strName4 = objFolder.GetDetailsOf(Nothing, k)
				If strName4 = "ファイルの説明" Then
					Wscript.Echo "ファイルの説明  : ", objFolder.GetDetailsOf(objItem, k)
				End If
			Next
			Wscript.Echo "最終更新日時    : ", objFolder.GetDetailsOf(objItem, 3)
			Wscript.Echo "作成日時        : ", objFolder.GetDetailsOf(objItem, 4)
			Wscript.Echo "サイズ          : ", objFolder.GetDetailsOf(objItem, 1)
		End If
    Next
			Wscript.Echo "========================================================="
	Set objFSO = Nothing
	Set objShellApp = Nothing
End Sub