WSH(VBS) 「Windows Installer」「.NET Framework」 を調べるスクリプト

.NetFrameworkはたぶんこんな感じで探せるような気がする。

もっと良い方法とかあるかな。

あんまりテストもしてないので、そこはご勘弁。

On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objRegistry=GetObject("winmgmts:\\" & _

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\.NETCompactFramework"

objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

For Each objSubkey In arrSubkeys

If Left(objSubkey,4) = "v1.0" Then

WScript.Echo ".Framework v1.0がインストール済"

End If

If Left(objSubkey,4) = "v2.0" Then

WScript.Echo ".Framework v2.0がインストール済"

End If

Next

Installerはどうでしょうね...

WindowsXPは標準が2.0だから、

KB893803が当たってるかどうかで2.0なのか3.1なのかは分かるといえるのかな？

やっつけ仕事で

Set Shell = WScript.CreateObject("WScript.Shell")

RegKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB893803v2\Fix Description"

Installer = ""

On Error Resume Next

Installer = Shell.RegRead(RegKey)

On Error GoTo 0

if Installer="" then

WScript.Echo "「Windows Installer 3.1」が見つからない"

else

WScript.Echo "「Windows Installer 3.1」が見つかった"

end if

とかじゃ駄目でしょうか。