開発メモ/Windows/VBS/アンインストール情報を取得する
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[開発メモ/Windows]]
#codeprettify(linenums:1){{
strHost = "."
Const HKLM = &H80000002
'アンインストール情報
'(「プログラムの追加と削除」に表示される)
'の入ったレジストリパス
Const strBaseKey = "Software\Microsoft\Windows\CurrentVer...
'レジストリのサブキーを取得するために、
'WMIのStdRegProvを使用する
Set objReg = GetObject("winmgmts://" & strHost & "/root/d...
'レジストリパスから、サブキーを取得
objReg.EnumKey HKLM, strBaseKey, arrSubKeys
'サブキーを一つ一つ取り出して、
'プログラム名を表示する
strInsList = ""
For Each strSubKey In arrSubKeys
intRet = objReg.GetStringValue(HKLM, strBaseKey & strS...
"DisplayName", strValue)
If intRet <> 0 Then
intRet = objReg.GetStringValue(HKLM, strBaseKey & ...
"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 "完了"
}}
終了行:
[[開発メモ/Windows]]
#codeprettify(linenums:1){{
strHost = "."
Const HKLM = &H80000002
'アンインストール情報
'(「プログラムの追加と削除」に表示される)
'の入ったレジストリパス
Const strBaseKey = "Software\Microsoft\Windows\CurrentVer...
'レジストリのサブキーを取得するために、
'WMIのStdRegProvを使用する
Set objReg = GetObject("winmgmts://" & strHost & "/root/d...
'レジストリパスから、サブキーを取得
objReg.EnumKey HKLM, strBaseKey, arrSubKeys
'サブキーを一つ一つ取り出して、
'プログラム名を表示する
strInsList = ""
For Each strSubKey In arrSubKeys
intRet = objReg.GetStringValue(HKLM, strBaseKey & strS...
"DisplayName", strValue)
If intRet <> 0 Then
intRet = objReg.GetStringValue(HKLM, strBaseKey & ...
"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 "完了"
}}
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
