LE LANGAGE VBSCRIPT

Dim ISBN13, ISBN10, i, value, poids, tmp, Box, Rep

Set oShell = WScript.CreateObject("WScript.Shell")

Do Until Rep=vbNo
Rep = MsgBox("Avez-vous un ISBN à calculer ?", vbYesNo + vbQuestion, "Calcul de l'ISBN")
If Rep=vbYes Then
Do Until Len(ISBN13)=13
  ISBN13 = Inputbox("Saisir un ISBN 13 (EAN) : ", "Calcul de l'ISBN")
Loop

tmp=0
poids = 10
For i=3 To 11
  value = Mid(ISBN13,i+1,1)
  tmp = tmp + poids*value
  poids = poids - 1
Next

ISBN10 = tmp Mod 11
ISBN10 = 11 - ISBN10

Box = oShell.Popup("La valeur de l'ISBN 10 est " & Mid(ISBN13,4,9) & ISBN10, 10, "Calcul de l'ISBN",vbOKCancel+64)
ISBN13 = 0

End If
Loop