@echo off &setlocal
set "inFile=dwd1.htm.txt"
set "outFile=DWD.sms.txt"
set "UTF8toANSI=%temp%\tmp.vbs"
>"%UTF8toANSI%" echo Set streamUTF8 = CreateObject("ADODB.Stream")
>>"%UTF8toANSI%" echo Set streamANSI = CreateObject("ADODB.Stream")
>>"%UTF8toANSI%" echo With streamUTF8
>>"%UTF8toANSI%" echo   .Open
>>"%UTF8toANSI%" echo   .LoadFromFile WScript.Arguments(0)
>>"%UTF8toANSI%" echo   .Type = 2
>>"%UTF8toANSI%" echo   .LineSeparator = 10
>>"%UTF8toANSI%" echo   .CharSet = "UTF-8"
>>"%UTF8toANSI%" echo   With streamANSI
>>"%UTF8toANSI%" echo     .Open
>>"%UTF8toANSI%" echo     .Type = 2
>>"%UTF8toANSI%" echo     .LineSeparator = -1
>>"%UTF8toANSI%" echo     .Charset = "x-ansi"
>>"%UTF8toANSI%" echo     .WriteText streamUTF8.ReadText(-1)
>>"%UTF8toANSI%" echo     .SaveToFile WScript.Arguments(1), 2
>>"%UTF8toANSI%" echo     .Close
>>"%UTF8toANSI%" echo   End With
>>"%UTF8toANSI%" echo   .Close
>>"%UTF8toANSI%" echo End With
cscript //nologo "%UTF8toANSI%" "%inFile%" "%outFile%"
del "%UTF8toANSI%"
C:\AlarmierungsToolV09\Alarm.exe $13