MFCOM To List Servers Silo

A collague asked me for a script to list all the servers and their assigned silo into a text file so he can put the information into a change control.

Here's the script.

StrOutputfilename = "server_silo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Output_File = fso.CreateTextFile(stroutputFileName, True)

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

for each server in farm.servers
Output_File.Writeline server.Servername & " " & server.ParentFolderDN
Next

Outputfile.Close