botgen2.vbs

Set objFileSystem = CreateObject( "Scripting.FileSystemObject" )
Set objTmplFile = objFileSystem.OpenTextFile(".\template.json",1)
strTmplText = objTmplFile.ReadAll()
objTmplFile.Close
Set objTmplFile = Nothing 
Dim strLine
set objCurFolder = objFileSystem.getFolder( "." )
set ArrayPassFiles = objCurFolder.Files
For Each objCurPassFile in ArrayPassFiles
  If LCase(objFileSystem.GetExtensionName(objCurPassFile.Name)) = "txt" Then
    Set objPassFile = objFileSystem.OpenTextFile(objCurPassFile.Name,1)
    strLine = objPassFile.ReadLine()
    filename=Left(objCurPassFile.Name,Len(objCurPassFile.Name)-3) & "json"
    Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(filename,2,true)
    credentials = Split (strLine,":")
    strOutText = Replace (strTmplText,"%username%",credentials(0))
    strOutText = Replace (strOutText,"%password%",credentials(1))
    objFileToWrite.WriteLine(strOutText)
    objFileToWrite.Close
    Set objFileToWrite = Nothing    
  End If
next
objPassFile.Close
Set objPassFile = Nothing
MsgBox ("done")