AutoIt Français

Code : Tout sélectionner

;FONCTION DEMARRE DEPUIS ...
Func _ComputerGetOSs()
    Local $colItems, $objWMIService, $objItem, $i = 1
    Local $aOSInfo[1]

    $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
    If(Not(IsObj($objWMIService))) Then Return $aOSInfo
    $colItems = $objWMIService.ExecQuery("SELECT Name, BuildNumber, LastBootUpTime, SerialNumber FROM Win32_OperatingSystem", "WQL", 0x10 + 0x20)

    If IsObj($colItems) Then
        For $objItem In $colItems
            ReDim $aOSInfo[UBound($aOSInfo) + 1]
            $aOSInfo[$i] = __StringToDate($objItem.LastBootUpTime)
            $i += 1
        Next
        $aOSInfo[0] = UBound($aOSInfo) - 1
        If $aOSInfo[0] < 1 Then
            SetError(1, 1, 0)
        EndIf
    Else
        SetError(1, 2, 0)
    EndIf
    Return $aOSInfo
EndFunc ;_ComputerGetOSs

Func __StringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & "/" & _
            StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
            & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

Func InverserMoisJour($Texte)
    Return StringMid($Texte, 4, 2) & "/" & StringMid($Texte, 1, 2) & StringTrimLeft($Texte, 5)
EndFunc

Func TimeGetLongFormatBySec($Sec)
    Local $Retour = ""
    Local $Temp
    Local $Compare = 60*60*24

    If($Sec > $Compare Or $Retour <> "") Then
        $Temp = Floor($Sec/($Compare))
        $Retour &= $Temp & " jour"
			; SI PC demarré depuis plus de 3 jours alors popup redemarrage impératif.

				if $Temp >= 5    Then
					MsgBox(16,"ATTENTION !!!","Votre ordinateur n'a pas été redémarré depuis plus de "&$Temp&" jours." & @CRLF _
					& " VOUS DEVEZ IMPERATIVEMENT LE REDEMARRER" &@CRLF &	@CRLF _
					&"Veuillez fermer vos travaux en cours et cliquez sur ""OK""")
					;Shutdown(6)
				EndIf
        If($Temp > 1) Then
            $Retour &= "s"
        EndIf
        $Retour &= " "
        $Sec -= $Temp*$Compare
    EndIf
    $Compare = 60*60
    If($Sec > $Compare Or $Retour <> "") Then
        $Temp = Floor($Sec/($Compare))
        $Retour &= $Temp & " heure"
        If($Temp > 1) Then
            $Retour &= "s"
        EndIf
        $Retour &= " "
        $Sec -= $Temp*$Compare
    EndIf
    $Compare = 60
    If($Sec > $Compare Or $Retour <> "") Then
        $Temp = Floor($Sec/($Compare))
        $Retour &= $Temp & " minute"
        If($Temp > 1) Then
            $Retour &= "s"
        EndIf
        $Retour &= " "
        $Sec -= $Temp*$Compare
    EndIf
    $Compare = 1
;~     If($Sec > $Compare Or $Retour <> "") Then
;~         $Temp = Floor($Sec/($Compare))
;~         $Retour &= $Temp & " seconde"
;~         If($Temp > 1) Then
;~             $Retour &= "s"
;~         EndIf
;~         $Retour &= " "
;~         $Sec -= $Temp*$Compare
;~     EndIf
    Return $Retour
EndFunc

Func GetSecByStringDate($time)
    Return  Number(StringMid($time, 7, 4))*31536000 + _
            Number(StringLeft($time, 2))*86400 + _
            Number(StringMid($time, 4, 2))*2678400 + _
            Number(StringMid($time, 12, 2))*3600 + _
            Number(StringMid($time, 15, 2))*60 + _
            Number(StringRight($time, 2))
EndFunc

Code : Tout sélectionner

#include <WinAPISys.au3>
#include <WinAPIMisc.au3>

Local $Uptime = _WinAPI_StrFromTimeInterval(_WinAPI_GetTickCount64())
MsgBox(0, '', "PC Uptime ==> " & $UpTime)

Code : Tout sélectionner

#include <Date.au3>

Local $colItems = ""
Local $Output = ""
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_OperatingSystem", "WQL", 0x30)

If IsObj($colItems) Then
   For $objItem In $colItems
      $LastBootUp = WMIDateStringToDate($objItem.LastBootUpTime)
      $LocalDateTime = WMIDateStringToDate($objItem.LocalDateTime)

	  $Output &= "Date du système     = " & $LocalDateTime & @CRLF
	  $Output &= "Dernier démarrage = " & $LastBootUp & @CRLF & @CRLF
	  $Output &= "Système démarré depuis : " & @CRLF

      $Output &= @TAB & "En jours   : " & @TAB & _DateDiff("D", $LastBootUp, $LocalDateTime) & @CRLF
      $Output &= @TAB & "En heures  : " & @TAB & _DateDiff("h", $LastBootUp, $LocalDateTime) & @CRLF
      $Output &= @TAB & "En minutes : " & @TAB & _DateDiff("n", $LastBootUp, $LocalDateTime) & @CRLF
      If MsgBox(1, "Retour WMI", $Output) = 2 Then ExitLoop
   Next
Else
   MsgBox(0, "Retour WMI", "Pas d'objets WMI trouvé pour la class: " & "Win32_OperatingSystem")
EndIf


Func WMIDateStringToDate($dtmDate)

   Return (StringMid($dtmDate, 1, 4) & "/" & _
         StringMid($dtmDate, 5, 2) & "/" & _
         StringMid($dtmDate, 7, 2) & _
         " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc  ;==>WMIDateStringToDate

Code : Tout sélectionner

C:\>wmic OS GET LastBootUpTime
LastBootUpTime
20170920215709.496418+120

C:\>systeminfo | find "démarrage"
Heure de démarrage du système:              20/09/2017, 21:57:09

Code : Tout sélectionner

Local $Jour_Diff = (@YDAY - $JourDeDemarrage)

Code : Tout sélectionner

Local $iYear = @YEAR
Local $iMonth = @MON
Local $iDay = @MDAY

If $iMonth < 3 Then
	$iMonth = $iMonth + 12
	$iYear = $iYear - 1
EndIf

Local $i_FactorA = Int($iYear / 100)
Local $i_FactorB = Int($i_FactorA / 4)
Local $i_FactorC = 2 - $i_FactorA + $i_FactorB
Local $i_FactorE = Int(1461 * ($iYear + 4716) / 4)
Local $i_FactorF = Int(153 * ($iMonth + 1) / 5)
Local $iJulianDate = $i_FactorC + $iDay + $i_FactorE + $i_FactorF - 1524.5

MsgBox(0, "", "Nombre de jours Julien : " & $iJulianDate)

Code : Tout sélectionner

Local $aTC = DllCall("kernel32.dll", "dword", "GetTickCount")
If Not @error Then
		; 1 jour = 86400000 ms	5 jours = 432000000 ms
		If $aTC[0] > 432000000 Then MsgBox(16, "", "L'ordinateur fonctionne depuis plus de 5 jours !!!")
EndIf