Const ForReading = 1
Const ForWriting = 2
Set wshshell = CreateObject("wscript.shell")
Set objArgs = WScript.Arguments
If objArgs.Count > 0 then
argsStr = " --"
For I = 0 to objArgs.Count - 1
  argsStr = argsStr + " " + CStr(objArgs(I))
Next
Else
argsStr = ""
End If

Randomize
a= Rnd(1) 'переменной a присваивается случайное число от 0 до 1
a=Fix(a*99999) 'переменной присваивается случайное число от 0 до 10
ReplaceSource = "vkb" 'Что ищем
Replacetarget = "vkb"+CStr(a) ' На что меняем

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("abuser2-app.xml", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, ReplaceSource, Replacetarget)

Set objFile = objFSO.OpenTextFile("abuser2-app.xml", ForWriting)
objFile.WriteLine strNewText
objFile.Close

Set oShell = Wscript.CreateObject("WScript.Shell")
CommandLine = "%COMSPEC% /c adl.exe -runtime runtimes/air/win -nodebug  abuser2-app.xml" +argsStr
oShell.Run CommandLine, 0, 0

WScript.Sleep 1000

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("runtimes/original.xml", ForReading)

strText = objFile.ReadAll
objFile.Close

Set objFile = objFSO.OpenTextFile("abuser2-app.xml", ForWriting)
objFile.WriteLine strText
objFile.Close
