uptime писькомерка Windows В продолжение #1169531
Чтобы пользователи винды не чувствовали себя кастрированными, предлагается следующий костыль (piska.vbs):

strComputer = "."
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
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)
days = abs(datediff("d",bd1,now))
text = "8"
for I = 1 to days
text = text & "="
next
text = text & "D"
Wscript.Echo text & vbcrlf
next