aide Inputbox pour saisie et boucle

aide Inputbox pour saisie et boucle - VB/VBA/VBS - Programmation

Marsh Posté le 26-06-2015 à 11:02:53    

Bonjour,
 
j'ai créé un script à l'aide de recherche sur internet pour que celui-ci va chercher des infos sur un pc distant.
Mon résultat est concluant.
Par contre j'aimerai que lorsque je me trompe dans le champ renseignent j'ai une boite de dialogue qui apparaisse pour dire " mauvais format" et si l'on clique sur ok que cela revienne sur la boite a renseigner.
 
Mercu d'avance pour votre aide.
 
je vous mets mon vbs :
 

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

Reply

Marsh Posté le 26-06-2015 à 11:02:53   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed