Last Reboot (VBScript)

Details

Category: Scripts and Code

Published on Tuesday, 08 November 2011 03:14

Written by Christian Dunn

This script retrieves the last reboot time from the operating system and converts it into Hours, Minutes and Seconds.

Simply copy and paste the code into notepad and save as uptime.vbs. Double click the file to run.

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
    dtmBootup = objOS.LastBootUpTime
    dtmLastBootupTime = WMIDateStringToDate(dtmBootup)
    dtmSystemUptimeH = DateDiff("h", dtmLastBootUpTime, Now)
dtmSystemUptimeS = DateDiff("s", dtmLastBootUpTime, Now)
dtmSystemUptimeM = round(dtmSystemUptimeS/60,0)
    Wscript.Echo "Last Reboot: " & dtmLastBootUpTime & vbCrLf & vbCrLf & "This was " & dtmSystemUptimeH & " hours or " & dtmSystemUptimeM & " minutes or " & dtmSystemUptimeS & " seconds ago"

Next
Function WMIDateStringToDate(dtmBootup)
    WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & _
         Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _
         & " " & Mid (dtmBootup, 9, 2) & ":" & _
         Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup, _
         13, 2))
End Function