@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