A ajouter dans un module
Private Const SM_CLEANBOOT As Long = 67
Private Declare Function GetSystemMetrics Lib "user32.dll" (nIndex As Long) As Long
Public Enum BootMode
NormalBoot = 0
FailSafeBoot = 1
FailSafeBootNet = 2
UnknownBoot = 3
End Enum
Public Function GetWindowsBootMode() As BootMode
Dim lRet As Long
lRet = GetSystemMetrics(SM_CLEANBOOT)
Dim bm As BootMode
Select Case lRet
Case 0, 1, 2: bm = lRet
Case Else: bm = UnknownBoot
End Select
GetWindowsBootMode = bm
End Function