..
exec('c:\windows\system32\cmd.exe','/C start /max copyAnsiUtf8.wsf',nocancel,freemem);
..


copyAnsiUtf8.wsf
<job>
  <reference object="ADODB.Stream" />
  <object id="stmANSI" progId="ADODB.Stream" />
  <object id="stmWRK8" progId="ADODB.Stream" />
  <object id="stmUTF8" progId="ADODB.Stream" />
  <script language="VBScript">
    Option Explicit

    With stmANSI
      .Open
      .LoadFromFile "ANSI.TXT"
      .Type = adTypeText
      .LineSeparator = adCRLF
      .Charset = "Windows-1250" 

      With stmWRK8
        .Open
        .Type = adTypeText
        .LineSeparator = adLF
        .CharSet = "UTF-8"
        .WriteText stmANSI.ReadText(adReadAll)
        stmANSI.close

        'odříznout první 2 byty FF FE(charakterizují Unicode text)
        'proč od 8. znaku nevím !?
        .Position = 7
        With stmUTF8
          .Open
          stmWRK8.CopyTo stmUTF8
          stmWRK8.Close
          .SaveToFile "utf8.txt", adSaveCreateOverWrite
          .Close
        End With 
      End With
    End With

    MsgBox "Hotovo", vbOkOnly, "Konverze dokončena!"
  </script>
</job>