inputFile = "path/to/file.bat"
outputFile = "path/to/newfile.bat"
Set fso = CreateObject("Scripting.FileSystemObject")

' Open the input file for reading as ANSI
Set inputFileStream = fso.OpenTextFile(inputFile, 1, False, -1)
' Create the output file with UTF-16LE encoding and a BOM
Set outputFileStream = fso.CreateTextFile(outputFile, True, True)
outputFileStream.Write ChrW(&HFEFF)
' Copy the contents of the input file to the output file
Do Until inputFileStream.AtEndOfStream
    outputFileStream.Write inputFileStream.ReadLine
    If Not inputFileStream.AtEndOfStream Then outputFileStream.Write vbCrLf
Loop
' Close the input and output streams
inputFileStream.Close
outputFileStream.Close