Dim max, min, UnChiffre

max=100
min=0

Randomize

UnChiffre = (Int((max-min+1)*Rnd+min))

Wscript.echo UnChiffre