WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Enumerate Citrix Applications


From: BradSjue

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