MFCOM Check Citrix Load Evaluator Script

Ive written this handy script that queries the assigned load evaluator for each server in the Farm and outputs the result to a text file.
This can quickly detect if any servers have been incorrectly set to a incorrect load evaluator.


StrOutputFileName = "outputfilename.txt"
Set Objfso = CreateObject("Scripting.FileSystemObject")
Set Output_File = Objfso.CreateTextFile(stroutputFileName, True)

WshShell.Exec("MFREG.exe ZDCservername)
Set farm=CreateObject("MetaframeCOM.MetaframeFarm")
farm.initialize 1

StrFlag = 0
StrEvalFlag = 0

for each server in farm.servers

set objServer = CreateObject("MetaFrameCOM.MetaFrameServer")
Compname = Server.Servername
objServer.Initialize 6, CompName
Set objLE = objServer.AttachedLE
objLE.Loaddata(True)
evaluatorName = objLE.LEName
OutPut_File.Writeline Compname & " " & evaluatorName

Next