Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1872 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide Inputbox pour saisie et boucle

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide Inputbox pour saisie et boucle

n°2261267
iliasma
Posté le 26-06-2015 à 11:02:53  profilanswer
 

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

mood
Publicité
Posté le 26-06-2015 à 11:02:53  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide Inputbox pour saisie et boucle

 

Sujets relatifs
Besoin d'aide: parser un fichier javascriptAide pour script
Problème de boucle infinie "cmd"[VBA] Renseigner des signets Word dans une boucle For.
besoin d'aide formulaire phpVBS vbCancel inputbox
PHPExcel comparaison cellules et boucleAide urgente SVP pour la correction d'une requête !
aide programme C[C] Aide projet jeu vidéo
Plus de sujets relatifs à : aide Inputbox pour saisie et boucle


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR