開発メモ/Windows/VBS/アンインストール情報を取得する のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 開発メモ/Windows/VBS/アンインストール情報を取得する へ行く。
  • 1 (2013-01-28 (月) 02:52:07)

開発メモ/Windows

linenums:4

strHost = "." Const HKLM = &H80000002

'アンインストール情報 '(「プログラムの追加と削除」に表示される) 'の入ったレジストリパス Const strBaseKey = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"

'レジストリのサブキーを取得するために、 'WMIのStdRegProvを使用する Set objReg = GetObject("winmgmts://" & strHost & "/root/default:StdRegProv")

'レジストリパスから、サブキーを取得 objReg.EnumKey HKLM, strBaseKey, arrSubKeys

'サブキーを一つ一つ取り出して、 'プログラム名を表示する strInsList = "" For Each strSubKey In arrSubKeys

  intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
      "DisplayName", strValue)
  If intRet <> 0 Then
      intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
      "QuietDisplayName", strValue)
  End If
  If (strValue <> "") and (intRet = 0) Then
       strInsList = strInsList & strValue &vbCrLf
  End If

Next

Dim FSO Dim oLog

Set FSO = CreateObject("Scripting.FileSystemObject") Set oLog = FSO.CreateTextFile(".\uninstall.txt")

oLog.WriteLine(strInsList)

oLog.Close()

Set oLog = Nothing

Set FSO = Nothing

WScript.echo "完了" }}