explorer.exe unter Citrix starten

[Glombi]

Gerade habe ich folgendes Problem bearbeitet: Ein Anhang soll aus einem Dokument gelöst und dann gestartet werden.
Für den letzten Teil nutze ich
  task = Shell ("explorer.exe " & path, 3)

Jetzt kann es sein, dass der User einen Citrix TS verwendet. Dort gibt es folgendes Problem
http://groups-beta.google.com/group/alt.os.citrix/browse_thread/thread/2f4d21eb149bd746/105cb5f7ee76307d?q=citrix+%22windows+explorer%22&_done=%2Fgroups%2Fsearch%3Fq%3Dcitrix+%22windows+explorer%22%26&_doneTitle=Back+to+Search&&d#105cb5f7ee76307d

Also, die Lösung ist

Yes, that's a tricky one! On the Citrix server, create a copy of
explorer.exe, called it anything you like, for example explorer2.exe.
Publish explorer2.exe under the published name Explorer (or whatever you
like). Now the users get explorer.

Es soll aber natürlich nicht der Server Desktop geöffnet werden. Dazu kann man folgenden Workaround machen:

Dim Citrix_Client As Integer
...
'Prüfe, ob Citrix Client verwendet wird
'explorercitrix.exe durch den entsprechenden Namen ersetzen
ret_eval = Evaluate( |@IsAppInstalled( "explorercitrix.exe" )| )
If Isarray( ret_eval ) Then
   If ret_eval(0) = "1" Then
      Citrix_Client = True
   End If
End If


If Citrix_Client Then
   task = Shell ("explorercitrix.exe " & path, 3)
Else
   task = Shell ("explorer.exe " & path, 3)
End If


Jede Anmerkung / Verbesserung ist willkommen!

Andreas