The following Citrix MFCOM vbscript will allow you to quickly enumerate farm applications, and users to an excel spreadsheet for easy auditing and management.

Citrix MFCOM vbscript - Enumerate farm applications and users.

Option Explicit '_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+ 'enumerate farm applications and users for citrix presentation server 4.5 'tested ver. 4.5 (success) 'tested ver. 4.0 (success) 'to run: cscript scriptname.vbs 'requires microsoft excel 'script will grab total 'unique user' set and create an excel spreadsheet 'with the data '_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+ On Error Resume Next Const cMetaFrameWinFarmObject = 1 Const cMetaFrameWinAppObject = 3 Const cForReading = 1, cForWriting = 2 Const xlLeft = -4131 Const xlRight = -4152 Const cLightPurple = 16764108 Const cWhite = 2 intCellColor = cLightPurple Dim oExcel, oGroup, oMember, oDicApps, arrApps Dim strScriptFullName, strScriptPath, strSaveName, strTemp, strAppDN Dim theFarm, anApp, aWinApp, anUser, anGroup Dim intAppUserCount, intTotalAppUsers, intTotalFarmUsers, intCurRow, intCellColor, intA, intB Dim oDicFarmUsers ' 'Create the Excel document Set oExcel = CreateObject("Excel.application") oExcel.Visible = True oExcel.Workbooks.Add ' 'Set up basic scripting objects strScriptFullName = WScript.ScriptFullName strScriptPath = Left(strScriptFullName, InStrRev(strScriptFullName, "\")) Set oDicFarmUsers = CreateObject("Scripting.Dictionary") ' ' Create MetaFrameFarm object Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm") If Err.Number <> 0 Then WScript.Echo "Can't create MetaFrameFarm object" WScript.Echo "(" & Err.Number & ") " & Err.Description WScript.Echo "" CloseOpenObjects WScript.Quit Err.Number End If ' ' Initialize the farm object. theFarm.Initialize(cMetaFrameWinFarmObject) If Err.Number <> 0 Then WScript.Echo "Can't Initialize MetaFrameFarm object" WScript.Echo "(" & Err.Number & ") " & Err.Description WScript.Echo "" CloseOpenObjects WScript.Quit Err.Number End If ' ' Are you Citrix Administrator? If theFarm.WinFarmObject.IsCitrixAdministrator = 0 Then WScript.Echo "You must be a Citrix admin to run this script" WScript.Echo "" CloseOpenObjects WScript.Quit 0 End If ' ' Setup the look, header, etc. oExcel.Range("A1:A1").ColumnWidth = 55 oExcel.Range("B1:B1").ColumnWidth = 25 oExcel.Range("C1:C1").ColumnWidth = 6 oExcel.Range("A1:A1").Font.Size = 16 oExcel.Range("A1:A3").Font.Bold = True oExcel.Range("A1:C1").Interior.Color = vbBlack oExcel.Range("A1:A1").Font.ColorIndex = cWhite oExcel.Range("A2:A6").Font.ColorIndex = 5 oExcel.Range("A1:A6").HorizontalAlignment = xlLeft oExcel.Range("A7:C7").Font.Bold = True oExcel.Range("A7:C7").Interior.Color = vbBlack oExcel.Range("A7:C7").Font.ColorIndex = cWhite WScript.echo "Citrix Farm Potential Users Report" oExcel.Cells(1, 1).Value = "Citrix Farm Potential Users Report" WScript.Echo "MetaFrame Farm Name: " & theFarm.FarmName & vbCRLF oExcel.Cells(2, 1).Value = theFarm.FarmName & " Farm" strTemp = Date() & " " & Time() oExcel.Cells(3, 1).Value = strTemp oExcel.Cells(7,1) = "App's Distinguished Name" oExcel.Cells(7,2) = "Application Name" oExcel.Cells(7,3) = "Users" oExcel.Cells(5, 2).Value = "Total # of unique users with access to at least one app:" oExcel.Range("B5:C5").Font.Bold = True oExcel.Range("B5:B5").HorizontalAlignment = xlRight intCurRow = 7 ' ' Iterate through all applications in the farm, add app DN's to dictionary object, copy the ' dictionary object to an array, sort the array, then process each application Set oDicApps = CreateObject("Scripting.Dictionary") For Each anApp In theFarm.Applications If Not oDicApps.Exists(anApp.DistinguishedName) Then 'WScript.Echo "Adding app to dictionary: " & anApp.DistinguishedName oDicApps.Add anApp.DistinguishedName, anApp.DistinguishedName End If Next arrApps = oDicApps.Keys() For intA = UBound(arrApps) - 1 To 0 Step -1 For intB= 0 To intA If arrApps(intB)>arrApps(intB+1) Then strTemp=arrApps(intB+1) arrApps(intB+1)=arrApps(intB) arrApps(intB)=strTemp End If Next Next For Each strAppDN In arrApps 'WScript.Echo strAppDN ProcessApp (strAppDN) Next oExcel.Cells(5, 3).Value = intTotalFarmUsers CloseOpenObjects ' --------------------------------------------------------------- Sub ProcessApp(strAppNDN) Dim oDicAppUsers, anApp, CurrentApp If Err.Number <> 0 Then WScript.Echo "Error enumerating applications" WScript.Echo "(" & Err.Number & ") " & Err.Description WScript.Echo "" CloseOpenObjects WScript.Quit Err.Number End If Set oDicAppUsers = CreateObject("Scripting.Dictionary") intCurRow = intCurRow + 1 If intCellColor = vbWhite Then intCellColor = cLightPurple Else intCellColor = vbWhite End If ' ' Get a reference to the app Set CurrentApp = CreateObject("MetaframeCOM.MetaFrameApplication") CurrentApp.Initialize cMetaFrameWinAppObject, strAppDN CurrentApp.LoadData(False) oExcel.Cells(intCurRow, 1).Value = CurrentApp.DistinguishedName oExcel.Cells(intCurRow, 2).Value = CurrentApp.AppName WScript.echo "Processing App: " & CurrentApp.AppName ' ' Count users granted access to the published app ' For Each anUser In CurrentApp.Users ' ' MetaFrameUser object. ' If Not oDicAppUsers.Exists(anUser.UserName) Then oDicAppUsers.Add anUser.UserName, anUser.UserName End If If Not oDicFarmUsers.Exists(anUser.UserName) Then oDicFarmUsers.Add anUser.UserName, anUser.UserName End If Next ' ' For each group that the app is published to, get each group member (no ' processing of nested groups, if any), and add the user to the list of app users. ' For Each anGroup In CurrentApp.Groups If Not (anGroup.GroupName = "*CITRIX_ADMINISTRATORS*") Then If GroupIsAccessible(anGroup.AAName,anGroup.GroupName) = True Then WScript.echo " - Processing group-->" & anGroup.AAName & "\" & anGroup.GroupName Set oGroup = GetObject("WinNT://" & anGroup.AAName & "/" & anGroup.GroupName & ",group") For Each oMember In oGroup.Members 'GRAB list for later use. wscript.echo CurrentApp.DistinguishedName & " - " & CurrentApp.AppName & " Group: " & omember.name & "\" & angroup.aaname If Not oDicAppUsers.Exists(oMember.Name) Then oDicAppUsers.Add oMember.Name, oMember.Name End If If Not oDicFarmUsers.Exists(oMember.Name) Then oDicFarmUsers.Add oMember.Name, oMember.Name End If Next Else WScript.echo " - IGNORING inaccessible group-->" & anGroup.AAName & "\" & anGroup.GroupName End If End If Next intTotalAppUsers = oDicAppUsers.Count intTotalFarmUsers = oDicFarmUsers.Count oExcel.Cells(intCurRow, 3).Value = intTotalAppUsers oExcel.Cells(intCurRow, 1).Interior.Color = intCellColor oExcel.Cells(intCurRow, 2).Interior.Color = intCellColor oExcel.Cells(intCurRow, 3).Interior.Color = intCellColor WScript.echo "TOTAL APP USERS (" & CurrentApp.AppName & ") = " & intTotalAppUsers WScript.echo "TOTAL FARM USERS SO FAR = " & intTotalFarmUsers Set oDicAppUsers = Nothing End Sub '_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+ Function GroupIsAccessible(strDomain,strGroupToCheck) On Error Resume Next Set oGroup = GetObject("WinNT://" & strDomain & "/" & strGroupToCheck & ",group") If Err.Number <> 0 Then GroupIsAccessible = False Else GroupIsAccessible = True End If On Error Goto 0 End Function '_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+ Sub CloseOpenObjects ' 'Save the doc, quit Excel and clean up variables strSaveName = strScriptPath & CreateLogFileName & " - " & theFarm.FarmName & " Potential Users Report.xls" oExcel.ActiveWorkbook.SaveAs(strSaveName) oExcel.Quit Set oExcel = Nothing Set oGroup = Nothing Set oMember = Nothing Set oDicFarmUsers = Nothing End Sub '_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+ Function CreateLogFileName Dim strLogFileName Dim strTemp strLogFileName = DatePart("yyyy", Now) ' Year strTemp = DatePart("m", Now) ' Month If CInt(strTemp) < 10 Then strTemp = "0" & strTemp End If strLogFileName = strLogFileName & "-" & strTemp strTemp = DatePart("d", Now) ' Day If CInt(strTemp) < 10 Then strTemp = "0" & strTemp End If strLogFileName = strLogFileName & "-" & strTemp strTemp = DatePart("h", Now) ' Hour If CInt(strTemp) < 10 Then strTemp = "0" & strTemp End If strLogFileName = strLogFileName & " " & strTemp strTemp = DatePart("n", Now) ' Minute If CInt(strTemp) < 10 Then strTemp = "0" & strTemp End If strLogFileName = strLogFileName & strTemp CreateLogFileName = strLogFileName End Function '_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+