aide Inputbox pour saisie et boucle

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
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