This is in line with my post here as I am doing the Application Architecture Landscape for our Enterprise Architecture. At one point I need to check what versions of IIS we are running in each server, so once again the easiest way for me is to just write a VBS Script to handle that. Here is how it goes
Set oExcel = CreateObject("Excel.Application")If (Err.Number <> 0) Then
On Error GoTo 0
Wscript.Echo "You need to install an Excel Application"
Wscript.Quit
End If
On Error GoTo 0
sExcelPath = "D:Servers-STJOHN.xls"
' Open Spreadsheet and Use First Worksheet.
oExcel.WorkBooks.Open sExcelPath
Set objSheet = oExcel.ActiveWorkbook.Worksheets(1)
' Loop through all the items in Speadsheet, 1st row is a Header Row
intRow = 2
Do While objSheet.Cells(intRow, 1).Value <> ""
strServerName = objSheet.Cells(intRow, 1).Value
On Error Resume Next
' This takes care if you dont have IIS installed on the server
'Get the IIS Server Object
Set objWMIService = GetObject("winmgmts:{authenticationLevel=pktPrivacy}\" & strServerName & "rootmicrosoftiisv2")
If (Err <> 0) Then
Else
Set colItems = objWMIService.ExecQuery("Select * from IIsWebInfo")
For Each objItem in colItems
'Wscript.Echo "Major IIS Version Number: " objItem.MajorIIsVersionNumber
'Wscript.Echo "Minor IIS Version Number: " objItem.MinorIIsVersionNumber
'Wscript.Echo "Name: " & objItem.Name
Set oFile = CreateObject("Scripting.FileSystemObject")
Set oTextFile = oFile.OpenTextFile("D:IIS-Versions.txt", 8, True)
oTextFile.WriteLine(strServerName & " - " & objItem.MajorIIsVersionNumber & "." & objItem.MinorIIsVersionNumber & " - " & objItem.Name)
oTextFile.Close
Set oTextFile = Nothing
Set oFile = Nothing
Next
End If
intRow = intRow + 1
Loop
' Close Workbook and Excel.
oExcel.ActiveWorkbook.Close
oExcel.Application.Quit
' Clean up.
Set oExcel = Nothing
Set objSheet = Nothing
Set objUser = Nothing
Set oW3SVC = Nothing
Set oWebSite = Nothing
Wscript.Echo "Done"Note : This is taking into consideration that you already know what are your servers and listed it on an Excel Spreadsheet