[Petya V4sechkin]

Jeesus, если VBS устроит:

Код:

Set wshNetwork = CreateObject("WScript.Network")
strUser = LCase(wshNetwork.UserDomain & "\" & wshNetwork.UserName)

strComputer = "."
Set objWMI = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSession = objWMI.ExecQuery("SELECT * FROM Win32_LogonSession" _
  & " WHERE LogonType = 2 OR LogonType = 10")

For Each objSession In colSession
  Set colUser = objWMI.ExecQuery("ASSOCIATORS OF" _
    & " {Win32_LogonSession.LogonId=" & objSession.LogonId & "}" _
    & " WHERE AssocClass=Win32_LoggedOnUser Role=Dependent")

  For Each objUser In colUser
    If LCase(objUser.Domain & "\" & objUser.Name) = strUser Then
      Wscript.Echo "Время входа: " & WMIDateStringToDate(objSession.StartTime)
    End If
  Next
Next

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

Если имелось в виду время запуска системы:

Код:

strComputer = "."
Set objWMI = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOS = objWMI.ExecQuery("SELECT LastBootUpTime FROM Win32_OperatingSystem")
For Each objOS In colOS
  Wscript.Echo "Время запуска ОС: " & WMIDateStringToDate(objOS.LastBootUpTime)
Next

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