development:vbs:random_string

VBScript: Random string

Function RndStr( ByVal intLen )
    Dim tmp
    Dim intRnd
	Const constCHARS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#%&/()=?*+'\<>;:_,.-"
    Randomize
	intRnd=Len(constCHARS)+1
    For i = 1 to intLen
		do until intRnd<Len(constCHARS)+1 and intRnd>0
			intRnd = int(Rnd*100)
		loop
		tmp = tmp & Mid( constCHARS, intRnd ,1 )
		intRnd=Len(constCHARS)+1
    Next
    RndStr = tmp
End Function

Usage

WScript.echo RndStr(16)
Enter your comment:
B O᠎ T X G
 
  • development/vbs/random_string.txt
  • Last modified: 2019-10-31 09:05
  • (external edit)