Dün bir SAP projesini test ederken ad, soyad parametrelerini hep farklı girmem gerekiyordu. Bu yüzden

bu işi bir vbscript ile otomatikleştirmiş oldum.

kelime = karisikTextYarat("abcdefghijkmnpqrstuvwxyz", 4)
numara = karisikTextYarat("123456789", 1)

WScript.Echo kelime 'numara yazarsanız numara üretir yada kelime + numara derseniz 2sindende üretir

Function  karisikTextYarat(strCharacters, intLength)
Randomize
Dim strS, intI
For intI = 1 To intLength
strS = strS + Mid(strCharacters, Int(Rnd() * Len(strCharacters))+1, 1)
Next
karisikTextYarat=strS
End Function