MFCOM Check Logon status script

This Script uses MFCOM to query the logon status of all the servers in a Citrix Farm. This can be handy as part of a daily farm health check as the output can be sorted to provide only useful information (eg. Servers that are disabled)

StrOutputFileName = "outputfilename.txt"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Objfso = CreateObject("Scripting.FileSystemObject")
Set Output_File = Objfso.CreateTextFile(stroutputFileName, True)

WshShell.Exec("MFREG.exe ZDCServer")

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

for each server in farm.servers

set objServer = CreateObject("MetaFrameCOM.MetaFrameServer")
Compname = Server.Servername
objServer.Initialize 6, CompName
Set StrState = server.WinServerObject
If StrState.EnableLogon = 0 Then
OutPut_File.Writeline Server.Servername & " Logons are Disabled"
End If

Next

Output_file.Close