gezielte Abfrage eines Arrays

06/12/2007 - 11:35 von Torsten Koehler | Report spam
Hallo,

mit folgendem Script ist es mir möglich, die Registrierung nach
installierter Software auf einem PC abzufragen:


Const HKCR = &H80000000
Const HKCU = &H80000001
Const HKLM = &H80000002

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
".oot\default:StdRegProv")

sUninstallPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

oReg.EnumKey HKLM, sUninstallPath, aSubkeys

On Error Resume Next
For Each sSubkey In aSubkeys
oReg.GetStringValue HKLM, sUninstallPath & "\" & sSubkey, "DisplayName",
sAppName
WScript.Echo sAppName
Next


Ich möchte nun dieses Array auf Vorhandensein einer bestimmten Software
abfragen um im Anschluß gezielt eine Aktion auszuführen.

Vielen Dank für Eure Hilfe.

Torsten
 

Lesen sie die antworten

#1 Nils Kaczenski [MVP]
06/12/2007 - 16:40 | Warnen spam
Moin,

Torsten Koehler schrieb:
Ich möchte nun dieses Array auf Vorhandensein einer bestimmten Software
abfragen um im Anschluß gezielt eine Aktion auszuführen.



da es hier wohl nicht auf Performance ankommt, wàre ein einfacher Weg
dieser:

For Each sSubkey In aSubkeys
oReg.GetStringValue HKLM, sUninstallPath & "\" & sSubkey,
"DisplayName",
sAppName
If sAppName = "DeinWert" Then
' was immer die Aktion ist
Exit For
End If
Next

Ein eleganterer Weg wàre evtl. eine gezielte WMI-Suche nach der
Software. Dazu siehe TechNet ScriptCenter.

Vielen Dank für Eure Hilfe.



Gern.


Schöne Grüße, Nils

Nils Kaczenski - MVP Windows Server
www.faq-o-matic.net
Antworten bitte nur in die Newsgroup!
PM: Vorname at Nachname .de
https://mvp.support.microsoft.com/p....Kaczenski

Ähnliche fragen