Assign Load Evaluator via Script

The following script uses MFCOM to assign a load evaluator to a XenApp server(s) This can be handy as part of a biuld script to ensure the correct load evaluator is assiged to a XenApp server

Dim ServerLE
const MetaFrameWinSrvObject = 6
Const ForRead = 1
Const ForWrite= 2

on error resume next

Set FSO = CreateObject("scripting.FileSystemObject")
set SaveLE = FSO.OpenTextFile("H:\Scripts\Files\LoadEval.txt",ForWrite,True)

Set WshShell = WScript.CreateObject("WScript.Shell")
set rc = WshShell.Exec("MFREG.exe HAVWCP01")

Set farm=CreateObject("MetaframeCOM.MetaframeFarm")
farm.initialize 1

SvrName = "xxxx"

Set ServerLE = CreateObject("MetaframeCom.MetaFrameServer")
ServerLE.Initialize MetaFrameWinSrvObject, SvrName

Set LE = ServerLE.AttachedLE
LE.Loaddata(True)

ServerLE.AttachLEByName "Load to Max"

LE.SaveData(True)

SaveLE.Close