VBScript - Come generare un numero casuale, quindi un'istruzione If per utilizzare questo numero per scegliere un'opzione

Question

Vorrei sapere come, (in VBScript) generare un numero casuale che non sarebbe lo stesso su un altro computer, e quindi utilizzare quel numero e forse alcune istruzioni If in modo che una delle 10 opzioni possibili possa essere attivata, ad es.

If (A random number between 1 - 10, eg. 2) then (Continue on part of script then wscript.quit) 
Else if (A different number, eg. 7) then (continue on to different part of script then wscript.quit) 

ecc

Così che avrei 10 diverse opzioni per lo script di scegliere in modo casuale.

È possibile? Se è così allora qualcuno potrebbe essere in grado di compilare un esempio di questo in modo da poter inserire il mio script e usarlo? Grazie a qualsiasi risposta!

Answer 1

È necessario randomize e rnd.
int(rnd * n) + 1 valuta un numero intero compreso tra 1 e n.
E si potrebbe usare select case... anche qui, provate questo:

dim r 
randomize 
r = int(rnd*10) + 1 
select case r 
    case 2 
     '... 

    case 7 
     '... 

end select 

Answer 2

e se volete rand dal minimo al massimo:

Dim max,min,rand 
max=54 
min=23 
Randomize 
rand = Int((max-min+1)*Rnd+min) 
WScript.Echo rand 

Answer 3

Dim i 

For i=1 to 5 

Randomize 

a=Rnd 
b=a+1 

msgbox b 

Next