| List of shell extensions. | |
|---|---|
'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
Set Key = S.GetKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved")
Wscript.Echo "Number of shell extensions: " & Key.numValues
For Each Value In Key.Values
Wscript.Echo Value.Value
Next | |