Dim mfFarm Dim mfLE Set mfFarm = CreateObject("MetaFrameCOM.MetaFrameFarm") mfFarm.Initialize 1 For Each mfLE In mfFarm.LoadEvaluators mfLE.LoadData 1 WScript.Echo "Load Evaluator Name - " & mfLE.LEName Next
' __________________________________________________________________ ' ' Script Name: AttachLE.vbs ' ' Purpose: Attaches a load evaluator to a Citrix farm server. ' ' Syntax: attachle servername lename ' ' servername The farm server's computer name. ' lename The load evaluator's name. ' ' Author/Email : Frank-Peter Schultze ' Last Update : 05-Mar-2007 ' __________________________________________________________________ ' If (WScript.Arguments.Count <> 2) Then WScript.Echo "Attaches a load evaluator to a Citrix farm server." WScript.Echo "" WScript.Echo WScript.ScriptName & " servername lename" WScript.Echo "" WScript.Echo " servername The farm server's computer name." WScript.Echo " lename The load evaluator's name." WScript.Quit End If strFarmServer = WScript.Arguments(0) strLEName = WScript.Arguments(1) Set objFarm = CreateObject("MetaFrameCOM.MetaFrameLoadEvaluator") objFarm.LEName = strLEName objFarm.LoadData(True) objFarm.AttachToServerByName False, strFarmServer objFarm.SaveData() Set objFarm = Nothing