Script zum schließen von Dateien

[firesl 10]

Hallo,

 

Habe folgende Textdatei bekommen:

 

 

 

Set Iwsh = CreateObject("WScript.Shell")

Iwsh.run "cmd /c net files >c:\netfiles.txt"

 

wscript.sleep 2000

 

testdatei = "c:\netfiles.txt"

 

Set IFileSystem3 = CreateObject("Scripting.FileSystemObject")

Set ITextStream = IFileSystem3.OpenTextFile(testdatei, 1, False, -2)

 

 

 

'ITextStream.SkipLine

'ITextStream.SkipLine

'ITextStream.SkipLine

'ITextStream.SkipLine

 

Do Until ITextStream.AtEndOfStream

zeile = ITextStream.ReadLine

LeftString = Left(Zeile, 7)

 

 

Iwsh.run "net files " & LeftString & " /close"

 

 

Loop

 

 

 

Das soll ich nun in eine Scriptdatei umwandeln.

Welches format muss das Script haben damit es läuft????

[flaery 10]

Das Script ist in VB-Script geschrieben.

 

Also einfach den Text in eine Textdatei kopieren und mit der Dateiendung .vbs abspeichern und schon ist das Script fertig.

 

 

mfg

Florian