Const wdFormatDocument  = 0
Set FileSet=GetObject("winmgmts:").ExecQuery("select * from CIM_DataFile where" & _
  "Drive = 'M:'  AND Extension= 'archiv'")
Set WshShell  = WScript.CreateObject("WScript.Shell")
Set objWord = CreateObject("Word.Application")
strMachine= "."
fname = WshShell.SpecialFolders("Desktop")& "\" & strMachine & _
  "Converted_Arich_Files.txt"
Set fso = CreateObject ("Scripting.FileSystemObject")
If fso.FileExists (fname) THEN
      set objFile = fso.GetFile (fname)
      objFile.Delete
End If
'Create the output file.
set objFile = fso.CreateTextFile (fname, True)
'On Error Resume Next
For each File in FileSet
wscript.echo "Datei: " & File.Name
Dim objWord
Dim strFile
strFile = File.Name
Set objWord = WScript.CreateObject("Word.Application")
objWord.Documents.Open strFile
objWord.ActiveDocument.SaveAs strFile&".txt", 2
' For UTF-8 format, use the next line, instead of the one above
'objWord.ActiveDocument.SaveAs strFile&".txt", 2,,,,,,,,,,65001
objWord.ActiveDocument.Close
objWord.Quit
Next
Set FileSet=nothing
Set WshShell= nothing
Set fname=nothing