11/11/2009 - made some significant updates to the ICA Client script below after noticing on error was enabled and was inevitably carrying the hostname variable to the next instance upon error. Which resulted in different users all appearing as if they were using the same hostname. After correcting the error in case 31560 everything looked good. Doh! And I was getting upset at some SCCM administrators for deploying the unsupported 11.1 and 11.2 Citrix clients. Sorry about that one!

10/26/2009 - added support for the Citrix 11.2.0 client

Ok so lately, I’ve been somewhat on the lazy side and have been looking for some type of creative way to gather farm metrics, and not have to tool around with the summary database or metrics server. Note: Although its not possible to gather citrix client versions via the metrics server, it is possible to gather the data via the summary database. That being said, here is a great way to quickly query your farm and report back user information such as client version, server name, application name and user name to an easy to read spreadsheet.

Run the following vbscript as many times as you want, each spreadsheet will be named a unique value based on time and date for easy management. I’ll also do my best to keep up with the versioning. Right now the script will detect Windows 7 rdp sessions, and the latest Citrix 11 client.

'UPDATED 11/11/2009 Citrix Client Script 'USE metaframe api to determine client info such as 'EDIT Version 1.02 'citrix client version, 'workstation ip address, 'user logon id, 'user hostname, 'application used, 'server application hosted on On Error Resume Next 'Member must be part of farm administration 'Set and create object metaframecom.metaframefarm Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm") theFarm.Initialize(1) 'set time for later use Hr = DatePart("h", Now) Min = DatePart("n", Now) Yr = DatePart("yyyy", Now) Mth = DatePart("m", Now) Dy = DatePart("d", Now) 'create object scripting.filesystemobject then 'create a unique csv file for no conflicts Set fso = CreateObject("Scripting.FileSystemObject") Set fp = fso.OpenTextFile("ICA_ClientVersions_" & Yr & "-" & _ Mth & "-" & Dy & "_" & Hr & "-" & Min & ".csv", 2, vbTrue) For each aSession in theFarm.Sessions fp.writeline GetVersion(aSession.ClientBuild) Set CurrentBuild = Nothing Set ShortVer = Nothing Next fp.close 'clean variables and echo completed Set thefarm = Nothing Wscript.echo "Check ICA Client versions: Complete" 'grab version citrix client version 'path: c:\Program Files\Citrix\ICA Client\version.dat 'path: if manual check version is needed Function GetVersion(sBuild) Dim MainVer Select Case sBuild 'added 10/21/2009 'citrix 64bit client version 'C:\Program Files (x86)\Citrix\ICA Client Case 7600 MainVer = "RDP Windows 7" Case 0 MainVer = "Disconnected" 'added 10/26/2009 'added version 11.2.0.31560 Case 31560 MainVer = "11.2.0" 'added 10/21/2009 Case 37363 MainVer = "9.102" 'added 10/21/2009 Case 19460 MainVer = "11.1.0" Case 142 MainVer = "Java" Case 317 MainVer = "3.00" Case 324 MainVer = "3.00" Case 330 MainVer = "3.00" Case 349 MainVer = "3.00" Case 304 MainVer = "MAC 6.30" Case 314 MainVer = "MAC 6.30" Case 323 MainVer = "MAC 6.30" Case 326 MainVer = "MAC 6.30" Case 400 MainVer = "MAC 7.00" Case 402 MainVer = "MAC 7.00" Case 405 MainVer = "MAC 7.00" Case 406 MainVer = "MAC 7.00" Case 407 MainVer = "MAC 7.00" Case 402 MainVer = "MAC 7.00" Case 411 MainVer = "MAC 7.00" Case 500 MainVer = "MAC 7.10" Case 600 MainVer = "MAC 10.00" Case 601 MainVer = "MAC 10.00" Case 128b1 MainVer = "MAC 10.00" Case 12221 MainVer = "Linux 10.x" Case 44467 MainVer = "Linux 10.00" Case 115659 MainVer = "Linux 10.6" ''this isn't the "BuildID" Case 50123 MainVer = "Linux 10.6" 'this isn't the "BuildID" Case 13126 MainVer = "Solaris 7.00" Case 581 MainVer = "4.00" Case 606 MainVer = "4.00" Case 609 MainVer = "4.00" Case 614 MainVer = "4.00" Case 715 MainVer = "4.20" Case 727 MainVer = "4.20" Case 741 MainVer = "4.20" Case 779 MainVer = "4.21" Case 730 MainVer = "wyse1200le" Case 910 MainVer = "6.00" Case 931 MainVer = "6.00" Case 961 MainVer = "6.01" Case 963 MainVer = "6.01" Case 964 MainVer = "6.01" Case 967 MainVer = "6.01" Case 985 MainVer = "6.20" Case 986 MainVer = "6.20" Case 1041 MainVer = "7.00" Case 1050 MainVer = "6.30" Case 1051 MainVer = "6.31" Case 1414 MainVer = "Java 7.0" Case 1679 MainVer = "Java 8.1" Case 1868 MainVer = "Java 9.4" Case 1876 MainVer = "Java 9.5" Case 2600 MainVer = "RDP 5.01" Case 3790 MainVer = "RDP 5.2" Case 6000 MainVer = "RDP 6.0" Case 6001 MainVer = "RDP 6.0" Case 2650 MainVer = "10.200" Case 02650 MainVer = "10.200" Case 5323 MainVer = "11.0.0" Case 5357 MainVer = "11.0.0" Case 8292 MainVer = "10.25" Case 10359 MainVer = "10.13" Case 17106 MainVer = "7.0" Case 17534 MainVer = "7.00" Case 20497 MainVer = "7.01" Case 21825 MainVer = "7.10" Case 22650 MainVer = "7.10" Case 24737 MainVer = "8.00" Case 26449 MainVer = "8.00" Case 28519 MainVer = "8.05" Case 29670 MainVer = "8.10" Case 30817 MainVer = "8.26" Case 31327 MainVer = "9.00" Case 32649 MainVer = "9.00" Case 32891 MainVer = "9.00" Case 34290 MainVer = "8.40" Case 35078 MainVer = "9.00" Case 36280 MainVer = "9.100" Case 36824 MainVer = "9.02 WinCE" Case 39151 MainVer = "9.150" Case 44236 MainVer = "9.15 WinCE" Case 44367 MainVer = "9.200" Case 44376 MainVer = "9.200" Case 45418 MainVer = "10.00" Case 46192 MainVer = "9.18 WinCE" Case 49686 MainVer = "10.00" Case 50211 MainVer = "9.230" Case 52110 MainVer = "10.00" Case 52504 MainVer = "9.20" Case 53063 MainVer = "9.237" 'added 10/21/2009 Case 54783 MainVer = "10.002" Case 55362 MainVer = "10.08" Case 55836 MainVer = "10.100" Case 58643 MainVer = "10.150" Case Else MainVer = "Unknown" End Select 'prep string for entry into csv file GetVersion = MainVer & "," & sBuild & "," & _ aSession.ClientAddress & "," & aSession.UserName & _ "," & aSession.ClientName & "," & _ aSession.AppName & "," & aSession.ServerName End Function