Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Dim s, infile, outfile, command

Function CreateFolderIfNonexistent(folder)
        if not fso.FolderExists(folder) then
                fso.CreateFolder(folder)
        end if
end Function

'check for existence of msgfmt
if not fso.FileExists("msgfmt.exe") then
        WScript.echo "msgfmt.exe not found. Please get gettext for windows from http://gnuwin32.sourceforge.net/packages/gettext.htm and copy the files msgfmt.exe and all dll files from the gettext/bin directory into this directory and run this script again."
        WScript.Quit(1)
end if

CreateFolderIfNonexistent("..\..\translations\")

'open translation list
Set stream = fso.GetFile("..\..\po\LINGUAS").OpenAsTextStream(1, 0)

'iterate contents of translations file
translations = 0
do while not stream.AtEndOfStream
        s = stream.ReadLine()
        if inStr(s, "#") = false then
                'create the output directory
                CreateFolderIfNonexistent("..\..\translations\" + s)
                CreateFolderIfNonexistent("..\..\translations\" + s + "\LC_MESSAGES")
                'build the translate command
                infile = "../../po/" + s + ".po"
                outfile = "../../translations/" + s +"/LC_MESSAGES/tmw.mo"
                command = "msgfmt -c -o " + outfile + " " + infile
                'execute translate command
                errval = WshShell.run(command, 0, true)
                if errval = 0 then
                        translations = translations + 1
                end if
        end if
loop

WScript.echo translations, " translations compiled."