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
No comments:
Post a Comment