Вот, из моего лукошка...
SysInfo:
Gui, 5:+LastFound +AlwaysOnTop +Caption -MinimizeBox
Gui, 5:Add, Text, x5 y6, Время ;Current Time
Gui, 5:Add, Text, x5 y50, Дата ;Date
Gui, 5:Add, Text, x5 y94, День и неделя в году
;Gui, 5:Add, Picture, x5 y138 w16 h16 Section, explorer.exe
Gui, 5:Add, Text, x5 y138, Время запуска ;Start Time
Gui, 5:Add, Text, x5 y182, Время работы ;Time since last reboot
Gui, 5:Add, Text, x5 y226, Current user name
Gui, 5:Add, Text, x5 y270, Computer Name
Gui, 5:Add, Text, x5 y314, IP-адрес ;IP address
Gui, 5:Add, Text, x5 y358, System being Run
Gui, 5:Add, Text, x5 y402, Версия Windows
Gui, 5:Add, Edit, x5 y21 w160 vText0 ReadOnly,
Gui, 5:Add, Edit, x5 y65 w160 vText1 ReadOnly,
Gui, 5:Add, Edit, x5 y109 w160 vText2 ReadOnly,
Gui, 5:Add, Edit, x5 y153 w160 vText3 ReadOnly,
Gui, 5:Add, Edit, x5 y197 w160 vText4 ReadOnly,
Gui, 5:Add, Edit, x5 y241 w160 vText5 ReadOnly,
Gui, 5:Add, Edit, x5 y285 w160 vText6 ReadOnly,
Gui, 5:Add, Edit, x5 y329 w160 vText7 ReadOnly,
Gui, 5:Add, Edit, x5 y373 w160 vText8 ReadOnly,
Gui, 5:Add, Edit, x5 y417 w160 vText9 ReadOnly,
Gui, 5:Show, %WorkArea% AutoSize, System Info
SetTimer, LoopInfo, 1000
LoopInfo:
t_TimeFormat := "HH:mm:ss"
t_StartTime := ; Clear variable = A_Now
t_UpTime := A_TickCount // 1000 ; Elapsed seconds since start
t_StartTime += -t_UpTime, Seconds ; Same as EnvAdd with empty time
FormatTime t_NowTime, , %t_TimeFormat% ; Empty time = A_Now
FormatTime t_StartTime, %t_StartTime%, %t_TimeFormat%
t_UpTime := % t_UpTime // 86400 " дн., " Mod(t_UpTime // 3600, 24) " ч, " Mod(t_UpTime // 60, 60) " мин, " Mod(t_UpTime, 60) " с"
t_YearDW := YearDW()
FormatTime YDM,,yyyy, d MMMM
;MsgBox 64, Uptime, % "Start time: `t" t_StartTime "`nTime now:`t" t_NowTime "`n`nElapsed time:`t" t_UpTime
t_GetOSVersion := GetOSVersion()
GuiControl, 5:, Text0, %t_NowTime%
GuiControl, 5:, Text1, %YDM%, %A_DDDD%
GuiControl, 5:, Text2, %t_YearDW%
GuiControl, 5:, Text3, %t_StartTime%
GuiControl, 5:, Text4, %t_UpTime%
GuiControl, 5:, Text5, %A_UserName%
GuiControl, 5:, Text6, %A_ComputerName%
GuiControl, 5:, Text7, %A_IPAddress1%
GuiControl, 5:, Text8, %A_OSType%
GuiControl, 5:, Text9, %t_GetOSVersion%
Return
5GuiClose:
5GuiEscape:
Gui 5:Destroy
Return
GetOSVersion() {
RunWait, cmd /c ver > %A_Temp%\ver,, Hide
FileRead, ver, %A_Temp%\ver
FileDelete, %A_Temp%\ver
DllCall("OemToChar", "Str", ver, "Str", ver)
StringReplace,ver,ver,`r`n,,All
Return ver
}
;День и неделя в году
YearDW()
{
FormatTime day,,yDay
FormatTime week,,yWeek
StringTrimLeft week, week, 4
YearDW = день: %day%`, неделя: %week%
Return YearDW
}