dim Z(10),i 
for i=0 to 10 
Z(I)=GetRnd(i-1) 
WScript.Echo (Z(i)) 
NEXT 

Function GetRnd(n) 
Dim i,X 
Randomize 
X=CInt(10*Rnd() ) 
For i=0 To n 
If X=Z(i) Then 
X=GetRnd(n) 
Exit For 
End If 
Next 
GetRnd=X 
End Function