.vbs 比較演算の書き方

Question

以下の

===
dim path
path="C:\Windows\System32....."
MsgBox GetVersion(path)

Answer 1

こんな感じでいかがでしょうか。

dim path
path="C:\Windows\System32\drivers\srv.sys"
MsgBox GetVersion(path, "6.1.7601.23889")

Function GetVersion(pathspec, basever)
	Dim fso, temp
	Set fso = CreateObject("Scripting.FileSystemObject")
	temp = fso.GetFileVersion(pathspec)

	' バージョン情報なし
	If Len(temp) = 0 Then
		GetVersion = "バージョン情報がありません。"
		Exit Function
	End If

	' 分割して桁を揃えるように文字列化
	v1 = Split(basever, ".")
	v2 = Split(temp, ".")
	v1str = Right("00" & v1(0), 2) & Right("00" & v1(1), 2) & Right("0000" & v1(2), 4) & Right("00000" & v1(3), 5)
	v2str = Right("00" & v2(0), 2) & Right("00" & v2(1), 2) & Right("0000" & v2(2), 4) & Right("00000" & v2(3), 5)

	' 文字列化したバージョン同士で比較
	If v1str <= v2str Then
		GetVersion = "問題ありません。"
	Else
		GetVersion = "○○を適用してください。"
	End If

End Function

解説
試したところ、取得できたバージョン情報は6.1.7601.23889のような値でした。
各桁数が環境によって揃っているとは限らないので、単純な比較はできません。
そこで一旦ドット単位で分割した後、桁を揃えるように文字列化しています。
つまり6.1.7601.23889でも1.1.1.1でも以下のような文字列になります。
06.01.7601.23889
01.01.0001.00001
こうすることで単純にIf文で比較ができるようになります。
各桁数は現状固定で、2,2,4,5 としてありますので、もし不都合があるようなら適宜修正してください。

Comments

[退会済みユーザー]

わかりやすく、ありがとうございます。

Answer 2

以下参考に。
Hey, Scripting Guy! インストール済みのデバイス ドライバのリストを取得する方法はありますか
ビデオコントローラのドライバを取得する: Win32_VideoController - WMI Sample (VBS)
※どのドライバーを取得するかは.ExecQuery("Select * from XXXX")のXXXXで指定するようです。

また、ドライバーのバージョン自体は文字列だと思われるので以下のように分割して比較する必要があるかもしれません。

for i=1 to Ubound(split(oObj.DriverVersion,"."))
 if split(oObj.DriverVersion,".")(i) ="XXXX" then
next

Comments

[退会済みユーザー]

とても勉強になります。
ありがとうございます。