Codefieber.de

IT-Blog

Installierte Software aus Registry auslesen (VBS)

| 1 Kommentar

Installierte Software aus Registry auslesen (VBS)

Kurzer Quellcode um Software aus der Registry mit VBS (Visual Basic Script) auszulesen:

'  Dieses Skript listet alle installierten Programme und Hotfixes in einer Textdatei auf
'  
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
        set fs = CreateObject("Scripting.FileSystemObject")
        logfile = "c:\Software.txt"
        set handle = fs.OpenTextFile(logfile,8,true)

        softwareName = strValue
        handle.WriteLine softwareName
        handle.close
End If
Next
avatar

Autor: Pascal

Codefieber.de wird von Pascal Betke geführt, administriert und gestaltet. Alle Inhalte sind persönlich von mir ausgewählt und erstellt, nach bestem Gewissen und Können, was die Möglichkeit von Fehlern nicht ausschließt.

Ein Kommentar

  1. avatar

    Hallo Pascal,
    Ich habe das Skipt unter win7 per doppelklick ausgeführt. Es wird mir allerdings keine Textdatei im Verzeichnis c erzeugt. Woran kann dies liegen? Danke für die Rückmeldung.

Schreibe einen Kommentar

Pflichtfelder sind mit * markiert.