strHost = "."

Const HKLM = &H80000002

Set objReg = GetObject("winmgmts://" & strHost & _
"/root/default:StdRegProv")
Const strBaseKey = _
"Software\Microsoft\Windows\CurrentVersion\Uninstall\"
objReg.EnumKey HKLM, strBaseKey, arrSubKeys
	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
Inhalt = Inhalt & strValue & vbCrLf
End If

Next

'################## Datei schreiben ################################
logdatei = "wmi_software.txt"       ' Pfad zur Logdatei
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(logdatei, True)
a.Write(inhalt)
a.Close