Тема: VBS: Время работы системы
Вот наваял код показывающий время работы компьютера после включения рядом с системными часами:
'SysTime.vbs
dim objWMI, WshShell, colOS, strComputer, bd, bd1, s, m, h, hour, min, str
strComputer="."
Set objWMI=("winmgmts:" & strComputer & "\root\cimv2")
Set colOS=objWMI.InstanceOf("Win32_OperatingSystem")
Set WshShell=CreateObject("WScript.Shell")
For each objOS in colOS
bd=objOS.LastBootUpTime
bd1=Mid(bd, 1, 4) & "-" Mid(bd, 5, 2) & "-" & Mid(bd, 7, 2) & ":" & Mid(bd, 9, 2) & ":" & Mid(bd, 11, 2) & ":" & Mid(bd,13,2)
s=abs(date diff("s", bd1,now))
m= Int(s \60)
hour=Int(m/60)
m= m mod 60
min= CStr(m)
If Len(min)=1 Then min="0" & min
hour=CStr(hour)
str="H:mm:ss-" & hour & ":" & min
WshShell.RegWrite " HKEY_ CURRENT_USER\Control Panel\International\sTimeFormat", str, "REG_SZ"
Next
Затем создать в планировщике задачу повторять каждую 1 мин. Действие - путь к скрипту. На Windows 10это работает, на других системах не проверял...