This is what we are using. It runs on one of the Citrix servers. The others don't collect farm data. It's not real pretty, but it does what we need.
BEGIN '******************************************************************* '******************************************************************* '*******************************************************************
'***********************************************************************
' ' VBScript Source File ' ' NAME: CITRIXALL.VBS ' ' AUTHOR: John A. Milburn ' DATE : 02/04/05 ' ' '***********************************************************************
Option Explicit '***********************************************************************
Const ForReading = 1 Const ForWriting = 2
Public Const wbemFlagReturnImmediately = &h10 Public Const wbemFlagForwardOnly = &h20
'On Error Resume Next
Dim strComputer strComputer = "."
Dim strFileOut, blArgs Dim lngResult, lngUsersOnFarm lngResult = 0
strFileOut = "-ctxinfo"
Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(strFileOut) Then fso.DeleteFile(strFileOut) End If Set fso = Nothing
lngUsersOnFarm = GetFarmUsers(strComputer) lngResult = GetCitrixInfo(strComputer)
WScript.Quit lngResult '***********************************************************************
'***********************************************************************
'***********************************************************************
'***********************************************************************
'***********************************************************************
' Function name: GetCitrixInfo ' Parameters: ' '***********************************************************************
Function GetCitrixInfo(strComputer) '***********************************************************************
' On Error Resume Next
Dim strFarmName, strIPAddress, strLoginsEnabled, strNumberOfActiveSessions Dim strNumberOfDisconnectedSessions, strNumberOfSessions, strServerName Dim strServerType, strZoneName, strZoneRanking
Dim objWMIService, colItems, objItem Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\Citrix") Set colItems = objWMIService.ExecQuery("SELECT * FROM MetaFrame_Server", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)
Dim strOutstrOut = "" For Each objItem In colItems strFarmName = objItem.FarmName strIPAddress = objItem.IPAddress strLoginsEnabled = objItem.LoginsEnabled strNumberOfActiveSessions = objItem.NumberOfActiveSessions strNumberOfDisconnectedSessions = objItem.NumberOfDisconnectedSessions strNumberOfSessions = objItem.NumberOfSessions strServerName = objItem.ServerName strServerType = objItem.ServerType strZoneName = objItem.ZoneName strZoneRanking = objItem.ZoneRanking Next Set objItem = Nothing Set colItems = Nothing Set objWMIService = Nothing
strZoneName = Right(strZoneName, Len(strZoneName) - (InStr(strZoneName, Chr(34)))) strZoneName = Left(strZoneName, (InStr(strZoneName, Chr(34)) - 1))
strOut = strOut & "Farm Name : " & strFarmName & vbLf strOut = strOut & "Farm users : " & CStr(lngUsersOnFarm) & vbLf strOut = strOut & "IP Address : " & strIPAddress & vbLf strOut = strOut & "Logins Enabled : " & strLoginsEnabled & vbLf strOut = strOut & "Sessions" & vbLf strOut = strOut & " Active : " & strNumberOfActiveSessions & vbLf strOut = strOut & " Disconnected : " & strNumberOfDisconnectedSessions & vbLf strOut = strOut & " Total : " & strNumberOfSessions & vbLf strOut = strOut & "Server Type : " & strServerType & vbLf strOut = strOut & "Zone Name : " & strZoneName & vbLf strOut = strOut & "Zone Ranking : " & strZoneRanking & vbLf strOut = strOut & vbLf strOut = strOut & strNumberOfActiveSessions & " users active" & vbLf strOut = strOut & vbLf ' WScript.Echo strOut
Dim fso, objFileOut
Set fso = CreateObject("Scripting.FileSystemObject")
Dim blRed, blYellow, blGreen
blRed = False
blYellow = False
blGreen = True'Set warning and error If strNumberOfActiveSessions > 20 Then blYellow = True End If
If strNumberOfActiveSessions > 25 Then blRed = True End If
Set objFileOut = fso.OpenTextFile(strFileOut, ForWriting, True) If blRed Then objFileOut.WriteLine "red Citrix Server Information" Else If blyellow Then objFileOut.WriteLine "yellow Citrix Server Information" Else objFileOut.WriteLine "green Citrix Server Information" End If End If
objFileOut.WriteLine "" objFileOut.WriteLine strOut objFileOut.WriteLine "" objFileOut.Close
Set fso = Nothing GetCitrixInfo = -1 Exit Function
End Function '***********************************************************************
'***********************************************************************
Function GetFarmUsers(strComputer) 'Server: \\COSTERMSERV3\root\Citrix:Citrix_Server.ServerName="D8TERMSERV1" 'Zone: \\COSTERMSERV3\root\Citrix:Citrix_Zone.ZoneName="D8" '***********************************************************************
Dim lngUserCount, objWMIService, colItems, objItem Dim strThisServer, lngPtr, strThisComputer Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\Citrix") Set colItems = objWMIService.ExecQuery("SELECT * FROM Citrix_ServersInZone", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems strThisServer = objItem.Server lngPtr = InStr(strThisServer, "=") + 2 strThisComputer = Mid(strThisServer, lngPtr, (Len(strThisServer) - lngPtr)) lngUserCount = lngUserCount + GetUsersOnServer(strThisComputer) Next Set objItem = Nothing Set colItems = Nothing Set objWMIService = Nothing GetFarmUsers = lngUserCount End Function '***********************************************************************
'***********************************************************************
Function GetUsersOnServer(strThisComputer) '***********************************************************************
Dim objWMIService, colItems, objItem, lngNumberOfSessions Set objWMIService = GetObject("winmgmts:\\" & strThisComputer & "\root\Citrix") Set colItems = objWMIService.ExecQuery("SELECT * FROM MetaFrame_Server", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems ' lngNumberOfSessions = CLng(objItem.NumberOfSessions) lngNumberOfSessions = CLng(objItem.NumberOfActiveSessions) ' lngNumberOfSessions = CLng(objItem.NumberOfDisconnectedSessions) ' lngNumberOfSessions = CLng(objItem.NumberOfSessions) Next Set objItem = Nothing Set colItems = Nothing Set objWMIService = Nothing
GetUsersOnServer = lngNumberOfSessions
End Function '***********************************************************************
'******************************************************************* '******************************************************************* '******************************************************************* END
-----Original Message----- From: Jeffcoat, Al [mailto:Al.Jeffcoat at orhs.org] Sent: Monday, September 11, 2006 9:59 AM To: hobbit at hswn.dk Subject: RE: [hobbit] Query current host status via CLI
There's a file in the contrib directory of the source distribution file called citrix.zip. We are using it with the bbwin client.
Al
-----Original Message----- From: Enrico Morigi [mailto:emorigi at auslrn.net] Sent: Monday, September 11, 2006 8:49 AM To: hobbit at hswn.dk Subject: Re: [hobbit] Query current host status via CLI
hi,
where can i download the citrix plugin to get the users sessions?
thanks enrico
To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk
This e-mail message and any attached files are confidential and are intended solely for the use of the addressee(s) named above. If you are not the intended recipient, any review, use, or distribution of this e-mail message and any attached files is strictly prohibited. This communication may contain material protected by Federal privacy regulations, attorney-client work product, or other privileges. If you have received this confidential communication in error, please notify the sender immediately by reply e-mail message and permanently delete the original message. To reply to our email administrator directly, send an email to: postmaster at orlandoregional.org . If this e-mail message concerns a contract matter, be advised that no employee or agent is authorized to conclude any binding agreement on behalf of Orlando Regional Healthcare by e-mail without express written confirmation by an officer of the corporation. Any views or opinions presented in this e-mail are solely those of the author and do not necessarily represent those of Orlando Regional Healthcare.
To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk