Hvilken software er installeret?

Jeg har brug for et par pointere ang. hvordan man kan finde ud af ovenstående, regner ikke med en løsning (ej heller en halv!)

Lidt a la følgende, bare med netværksunderstøttelse, samt mulighed for at lede efter andre specifikke programmer.

Option Explicit
Function FileExists(sFileName$) As Boolean
On Error Resume Next
FileExists = IIf(Dir(Trim(sFileName)) <> "", _
True, False)
End Function

Public Function IsAppPresent(strSubKey$, _
strValueName$) As Boolean
IsAppPresent = CBool(Len(GetRegString(HKEY_CLASSES_ROOT, _
strSubKey, strValueName)))
End Function

Private Sub Form_Load()
Label6.Caption = IsAppPresent("Access.Database\CurVer", "")

Label7.Caption = IsAppPresent("Excel.Sheet\CurVer", "")

Label8.Caption = IsAppPresent("PowerPoint.Slide\CurVer", "")

Label9.Caption = IsAppPresent("Word.Document\CurVer", "")

Label10.Caption = IsAppPresent("FrontPage.Explorer\CurVer", "")
End Sub