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

变量名自动变化