Testen, ob WSH installiert ist?

[sx2008]

Delphi-Quellcode:

uses
  ActiveX;

function ProgIDExists(const ProgID: WideString): Boolean;
var
  Tmp: TGUID;
begin
  Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), Tmp));
end;

function IsWSHInstalled: Boolean;
begin
  Result := ProgIDExists('WScript.Shell');
end;

Vielleicht gibt es auch noch bessere/weitere ProgIds die man testen kann.