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)