CIB Engineering

Here is an alternate to emulate the what qfarm.exe can do but call on a server remotely and request the server load.
We tested this on both one of our legacy metaframe farms and a citrix xenapp 4.5 and 5.0 farm.
 

** qfarm is a great utility, but can only be run on a server and cannot be launched from a standard os with no citrix dependancies.

Logic is as follows:
1.) attach to server > arrComputers
2.) attach to WMI Namespace - root\citrix
3.) query against MetaFrame_Server_LoadLevel
 

On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 arrComputers = Array(".") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\Citrix") Set colItems = objWMIService.ExecQuery("SELECT * FROM MetaFrame_Server_LoadLevel", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems WScript.Echo "LoadLevel: " & objItem.LoadLevel WScript.Echo "ServerName: " & objItem.ServerName WScript.Echo Next Next