Gå til innhold

Hvordan finne ut sist gang pcen ble skrudd på?


Anbefalte innlegg

Videoannonse
Annonse

Her er et vbs-script for Windows som viser siste boot up tid og oppetid fra siste boot up tid:

 

pc = "." 
set objTid = CreateObject("WbemScripting.SWbemDateTime")
set objX = GetObject("winmgmts:\\" & pc & "\root\cimv2")
set objY = objX.InstancesOf("Win32_OperatingSystem")
for each objZ in objY
objTid.Value = objZ.LastBootUpTime
Wscript.Echo "Siste Boot Up Tid: " & objTid.GetVarDate & vbcrlf & _
"Oppetid fra Siste Boot Up Tid: " &   Tid(objTid.GetVarDate,Now) & " (tt:mm:ss)"
next
Function  Tid(m1, m2) 
If (isDate(m1) And IsDate(m2)) = false Then 
Tid = "00:00:00" 
Exit Function 
End If 
sekunder = Abs(DateDiff("S", m1, m2)) 
minutter = sekunder \ 60 
klokketimer = minutter \ 60 
minutter = minutter mod 60 
sekunder = sekunder mod 60 
if len(klokketimer) = 1 then klokketimer = "0" & klokketimer
Tid = klokketimer & ":" & RIGHT("00" & minutter, 2) & ":" & RIGHT("00" & sekunder, 2) 
End Function 

 

PS: I stedet for wscript.Echo-instruksjonen kan du sette inn instruksjoner som lagrer data i en tekstfil. Sørger du så for at scriptet aktiveres ved shutdown, ja da har du en fullstendig logg over tid for boot up tid og den ditto oppetid.

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...