1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84
| on error resume next
'Saisie numéro du PC à vérifier
sComputer = InputBox ("Nom CHU du poste sur 10 caracteres ?","Numéro du poste à entrer")
'Déclaration des librairies
sLocal = LocalDateTime(sComputer)
sLastBoot = LastBootTime(sComputer)
Set net = Wscript.CreateObject("WScript.Network")
Set colSessions = objWMI.ExecQuery("Select * From Win32_LogonSession Where LogonType = 2 OR LogonType = 10")
MsgBox "Démarré le " & GetUSTime(sLastBoot) & vbCr &_
"Allumé depuis " & UpTime(sComputer) & vbCr &_
"Date du contrôle le " & GetUSTime(sLocal) & vbCr &_
"Effectué par l'utilisateur : " & net.username & vbCr &_
"Numéro du PC controlé : " & sComputer
Function GetUSTime(sDT)
sDay = Day(sDT)
sMonth = Month(sDT)
sYear = Year(sDT)
sTime = TimeValue(sDT)
GetUSTime = sDay & "/" & sMonth & "/" & sYear & " à " & sTime
End Function
Function UpTime(sComputer)
Set oWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set colOS = oWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each oOS in colOS
sLastBoot = oOS.LastBootUpTime
sSec = DateDiff("s",UTCtoStandard(sLastBoot), Now)
Next
sMin = sSec\60
sSec = sSec Mod 60
sHour = sMin\60
sMin = sMin Mod 60
sDay = sHour\24
UpTime= "" & sDay & "" & " Jour(s), " & sHour Mod 24 &_
" Heure(s), " & sMin &" Minute(s), " & sSec & " Secondes"
End Function
Function LastBootTime(sComputer)
Set oWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set colOS = oWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each oOS in colOS
sLastBoot = oOS.LastBootUpTime
Next
LastBootTime = UTCtoStandard(sLastBoot)
End Function
Function LocalDateTime(sComputer)
Set oWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set colOS = oWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each oOS in colOS
sLocalDT = oOS.LocalDateTime
Next
LocalDateTime = UTCtoStandard(sLocalDT)
End Function
Function UTCtoStandard(CreationDate)
UTCtoStandard = CDate(Mid(CreationDate, 5, 2) & "/" & _
Mid(CreationDate, 7, 2) & "/" & Left(CreationDate, 4) _
& " " & Mid (CreationDate, 9, 2) & ":" & _
Mid(CreationDate, 11, 2) & ":" & Mid(CreationDate, _
13, 2))
End Function
Function Sesssion
strSessionStart = objSession.StartTime
End Function
Function LocalTime(dtmInstallDate)
LocalTime = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _
& " " & Mid (dtmInstallDate, 9, 2) & ":" & _
Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _
13, 2))
End Function |
Partager