Submitted By: Anonymous Submission

Retrieves information from an Excel spreadsheet and then echoes that data to the screen.

Visual Basic
Edit|Remove
Dim xlApp, xlBook, xlWks
Dim intRow

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\scripts\ServerList.xls")
Set xlWks = xlBook.Worksheets(1)
'xlApp.Visible=True
xlWks.Activate

intRow=1
Do Until xlApp.Cells(intRow,1).Value = ""
	WScript.Echo "ServerName: " & xlApp.Cells(intRow, 1).Value & "," & " IP Address: " & xlApp.Cells(intRow, 2).Value _
	& "," & " 2nd IP Address: " & xlApp.Cells(intRow, 3).Value & "," & " Rack: " & xlApp.Cells(intRow, 6).Value _
	& "," & " Applications: " & xlApp.Cells(intRow, 7).Value & "," & " Operating System: " & xlApp.Cells(intRow, 4).Value _ 
	& "," & " Domain: " & xlApp.Cells(intRow, 15).Value
	WScript.Echo "ServerName: " & xlApp.Cells(intRow, 1).Value & "," & " Hardware: " & xlApp.Cells(intRow, 21).Value _
	& "," & " Serial Number: " & xlApp.Cells(intRow, 26).Value & "," & " CPU: " & xlApp.Cells(intRow, 20).Value _
	& "," & " Memory: " & xlApp.Cells(intRow, 19).Value
	intRow = intRow+1
Loop

xlBook.Close True
xlApp.Quit
Set xlWks=Nothing
Set xlBook=Nothing
Set xlApp=Nothing