Show pageOld revisionsBacklinksExport to PDFBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. ====== VBScript: Random string ====== <code vbnet> 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 </code> Usage <code bash>WScript.echo RndStr(16)</code> development/vbs/random_string.txt Last modified: 2019/10/31 09:05by 127.0.0.1