vbscript ordner auflisten und in txt speichern

Hi Leute...
Hab ein kleines Problem...
Ich hab hier ein Skript geschrieben welches die verzeichnisse und unterverzeichnisse von /programme und /windows auflistet.
Jedoch will ich diese Liste in .txt file abspeichern.das krieg ich net hin
Hier mein Sprikt.

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Programme"
MsgBox ("Verzeichnis --> " & objStartFolder & " <-- wird durchsucht")

Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo objFolder.Path

ShowSubFolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
WScript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
WScript.Echo
ShowSubFolders Subfolder
Next
End Sub
MsgBox ("Das Verzeichnis --> " & objStartFolder & " <-- wurde durchsucht")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Windows"
MsgBox ("Verzeichnis --> " & objStartFolder & " <-- wird durchsucht")

Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo objFolder.Path

ShowSubFolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
WScript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
WScript.Echo
ShowSubFolders Subfolder
Next
End Sub
MsgBox ("Das Verzeichnis --> " & objStartFolder & " <-- wurde durchsucht")

For Each Unterordner In Ordner.SubFolders
OrdnerListe=OrdnerListe & Unterordner.Name &vbCrLf
Next

objFSO.CreateTextFile("ORDNERLISTE.txt",2).WriteLine OrdnerListe