LastBootTime

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

LastBootTime

Logged in as: Guest

arrSession:exec spGetSession 2,2,57461

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> LastBootTime
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

LastBootTime - 3/4/2008 8:25:30 PM

Kapteinen

Posts: 9
Score: 0
Joined: 2/18/2008
Status: offline

Hi,
I'm running this script to determine the last boot time on the servers in my domain. (abt. 300 servers)

When running this script it outputs to an .xls.
My problem is that I have duplicate entries in the .xls, the inputlist does not.
The script does not always continue to the next line in the txt input file.

ex.

server1 ... 12.01.2008
server2.....14.01.2008
server3.....16.02.2008
server3.....16.02.2008
server3.....16.02.2008
server3.....16.02.2008
server3.....16.02.2008
server3.....16.02.2008
server4.....18.02.2008

If the server responds slowly, will it report it as an error and try again, but still write to the .xls?

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Machine Name"

objExcel.Cells(1, 2).Value = "Last Boot Time Stamp"

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("servers.txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

On Error Resume Next '<------can this be the problem????

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = UCase(objItem.CSName)

objExcel.Cells(intRow, 2).Value = ConvWbemTime(objItem.LastBootUpTime)

'Is something more needed here to let the script continue to the next line in servers.txt?

intRow = intRow + 1

Loop

objExcel.Range("A1:B1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.HorizontalAlignment = 2

objExcel.Cells.EntireColumn.AutoFit

objExcel.Columns("B:B").Select

objExcel.Selection.NumberFormat = "DDDD, MMMM DD, YYY h:mm AM/PM"

Function ConvWbemTime(IntervalFormat)

sMonth = mid(IntervalFormat,5,2)

sDay = mid(IntervalFormat,7,2)

sYear = mid(IntervalFormat,1,4)

sHour = mid(IntervalFormat,9,2)

sMinutes = mid(IntervalFormat,11,2)

sSeconds = mid(IntervalFormat,13,2)

ConvWbemTime =  sMonth & "-" & sDay & "-" & sYear & " " & sHour & ":" & sMinutes & ":" & sSeconds

End Function

MsgBox "Done"

any ideas?

Thanks!

Stian , Norway

Post #: 1

RE: LastBootTime - 3/5/2008 1:44:29 AM

ebgreen

Posts: 4972
Score: 31
Joined: 7/12/2005
Status: online

Remove the On Error Resume Next and determine what error you are getting and code in a way to handle the error.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to Kapteinen)