By using the following script you can get the list of servers along with their IP addresses published on a farm. The result would be generated in MS Excel. So you must have MS Excel installed on your system in order to execute it.
<package>
<job id=” FarmApplications”>
<runtime>
<description>
List Servers and their IP address for all apps in the farm.
</description>
</runtime>
<reference object=”MetaFrameCOM.MetaFrameFarm”/>
<script language=”VBScript”>
Dim wkbNew
Set objExcel = CreateObject(“Excel.Application”)
Set wkbNew = objExcel.Workbooks.Add
set wksNew = wkbNew.Worksheets(1)
wksNew.Activate
wksNew.Application.Visible = True
Dim theFarm,AppName ,anApp,aServer, Array()
Set oShell = WScript.CreateObject(“WScript.Shell”)
Set theFarm = CreateObject(“MetaFrameCOM.MetaFrameFarm”)
if Err.Number <> 0 Then
WScript.Echo “Can’t create MetaFrameFarm object”
WScript.Echo “(” & Err.Number & “) ” & Err.Description
WScript.Echo “”
WScript.Quit Err.Number
End if
theFarm.Initialize(MetaFrameWinFarmObject)
if Err.Number <> 0 Then
WScript.Echo “Can’t Initialize MetaFrameFarm object”
WScript.Echo “(” & Err.Number & “) ” & Err.Description
WScript.Echo “”
WScript.Quit Err.Number
End if
‘WScript.Echo “MetaFrame Farm Name: ” & theFarm.FarmName
‘WScript.Echo “”
Row = 1
Col = 1
maxServer = 0
wksNew.Cells(Row, Col).Value = “Server”
wksNew.Cells(Row, Col + 1).Value = “IP address”
For Each anApp In theFarm.Servers
Row = Row + 1
Col = 1
if Err.Number <> 0 Then
WScript.Echo “Can’t enumerate applications”
WScript.Echo “(” & Err.Number & “) ” & Err.Description
WScript.Echo “”
WScript.Quit Err.Number
End if
wksNew.Cells(Row, Col).Value = aServer.ServerName
wksNew.Cells(Row, Col + 1).Value = aServer.IPAddress
numServers = anApp.Servers.Count
If numServers > maxServers Then
maxServers = numServers
End If
Next
For sCount = 1 To maxServers
wksNew.Cells(1, scount + 5).Value = “Server” & scount
Next
wksNew.Range(wksNew.Cells(2, 1), wksNew.Cells(Row, maxServers + 5)).Sort wksNew.Range(“A2”),,,,,,,xlNo
wksNew.Range(“B2”).Select
objExcel.ActiveWindow.FreezePanes = True
wksNew.Range(wksNew.Cells(1, 1), wksNew.Cells(1, maxServers + 5)).Select
wksNew.Range(wksNew.Cells(1, 1), wksNew.Cells(1, maxServers + 5)).Interior.ColorIndex = 16
wksNew.Range(wksNew.Cells(1, 1), wksNew.Cells(1, maxServers + 5)).Font.ColorIndex = 2
wksNew.Range(wksNew.Cells(1, 1), wksNew.Cells(1, maxServers + 5)).Font.Bold = True
wksNew.Range(wksNew.Cells(1, 1), wksNew.Cells(1, maxServers + 5)).HorizontalAlignment = 7
wksNew.Range(wksNew.Cells(1, 1), wksNew.Cells(1, maxServers + 5)).AutoFilter
wksNew.Range(wksNew.Cells(2, 1), wksNew.Cells(Row, maxServers + 5)).Columns.AutoFit
</script>
</job>
</package>
Execute on the any server of farm, whose information you want. Hope you enjoy executing this script.