Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Here is a way using MFCOM to enumerate Citrix applications. Only works for Citrix XP.
; Enumerate Citrix apps and some properties ERRORMODE(@OFF) mfFarm = CreateObject("MetaFrameCOM.MetaFrameFarm") ERRORMODE(@CANCEL) Lerr = LastError() If Lerr >0 BoxShut() Message(AppTitle, "Failed to bind to MFCOM, exiting") Exit Endif mfFarm.Initialize('1') ForEach mfApp In mfFarm.Applications AppInfo = "" mfApp.LoadData('1') ThisApp = mfApp.AppName DN=mfApp.DistinguishedName ;Application Distinguished Name theapp = CreateObject("MetaFrameCOM.MetaFrameApplication") theApp.Initialize('3', DN) theApp.LoadData('1') theWinApp = theApp.WinAppObject3 ;Get the WinApp interface. Defprog=theWinApp.DefaultInitProg BrowName=theWinApp.BrowserName WinScale=theWinApp.DefaultWindowScale WinType=theWinApp.DefaultWindowType appsrvrs = mfapp.servers AppInfo = StrCat(AppInfo, ThisApp, @CRLF, DN, @CRLF, Defprog, @CRLF, BrowName, @CRLF) AppInfo = StrCat(AppInfo, "Windows Scale: ", WinScale, @CRLF, "Windows Type: ", WinType, @CRLF) ForEach appsrv in Appsrvrs ThisServer = appsrv.servername AppInfo = StrCat(AppInfo, ThisServer, @CRLF) Next ; Load the Groups objGroups = mfapp.Groups ForEach mfgroup in objGroups ThisGroup = mfgroup.GroupName AppInfo = StrCat(AppInfo, ThisGroup, @CRLF) Next Message(ThisApp, AppInfo) Next Message("App Enumerator", "Done")
Article ID: W16553
File Created: 2005:02:18:12:21:26
Last Updated: 2005:02:18:12:21:26