Rename .maFiles to steam login names instead of SteamID.

mafileren.vbs

Set objFileSystem = CreateObject( "Scripting.FileSystemObject" )
Set objCurFolder = objFileSystem.getFolder( "." )
Set ArrayMaFiles = objCurFolder.Files
Set RegExp = CreateObject("VBScript.RegExp")
RegExp.Pattern = """account_name"":""([^\""]+)\"""
RegExp.Global = True
For Each objCurMaFile in ArrayMaFiles
  If LCase(objFileSystem.GetExtensionName(objCurMaFile.Name)) = "mafile" Then
    Set objMaFile = objFileSystem.OpenTextFile(objCurMaFile.Name,1)
    strLine = objMaFile.ReadAll()
    Set Matches = RegExp.Execute(strLine)
    filename = Matches.Item(0).SubMatches(0) & ".maFile"
    objMaFile.Close
    Set objMaFile = Nothing
    objFileSystem.MoveFile objCurMaFile.Name, filename
  End If
next
MsgBox ("done")