VBScript to find out last reboot for multiple computers

' Description  : This script will display the Last reboot of the machines in a '                     Excel file
' Instructions : Create a text file by name servers.txt in C: drive with the server '                     names which u need to check the Last Reboot. Output will be '                     an excel file which will be saved in C: drive with file name as '                     "LastReboot_<date> <time>.xls"
              

Dim objExcel, objWorkbook, objWorksheet, objRange
Dim objNtpad, objFile

Const ForReading = 1


'Opening the Input file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\servers.txt", ForReading)

Set WSHShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If (Err.Number <> 0) Then
    On Error GoTo 0
    Wscript.Echo "Excel application not found."
    Wscript.Quit
End If

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = FALSE

Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)


'Creating Header for the Template excel
objWorksheet.Cells(1, 1).Value = "Server Name"
objWorkSheet.Cells(1, 2).Value = "Last Rebooted Date"
objWorkSheet.Cells(1, 3).Value = "Time"

strDate= Replace(Date,"/","-")
strTime= Replace(Time,":","-")
strSavefile = "C:\LastReboot_" & strDate & " " & strTime & ".xls"

x = 2

Do
       strComputer = objFile.ReadLine
       objWorksheet.cells(x,1).value = strComputer

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
    Bootup = objOS.LastBootUpTime

NYear = Left(Bootup,4)
NMonth = Mid(Bootup,5, 2)
NDate = Mid(Bootup,7, 2)
Nhr= Mid(Bootup,9, 2)
Nmin = Mid(Bootup,11, 2)
Nsec= Mid(Bootup,13, 2)


objWorksheet.cells(x,2).value = (NMonth & "/"& NDate & "/" & NYear)
objWorksheet.cells(x,3).value = (Nhr & ":" & Nmin & ":" & Nsec)


Next
 x = x+1

 Loop Until objFile.AtEndOfStream=True

Set objrange = objWorksheet.Usedrange
objrange.entirecolumn.autofit()

objworkbook.SaveAs strSavefile

WScript.Echo "Excel file has been saved in C:\LastReboot_" & strDate & " " & strTime & ".xls"

objExcel.Application.Quit

Set objExcel = Nothing
Set objworkbook = Nothing
Set objworksheet = Nothing
Set objfile = Nothing

' End of script