Path=WScript.Arguments.Item(0)

Set fso=CreateObject("Scripting.FileSystemObject")

Set File=fso.OpenTextFile(Path)

File.SkipLine

File.SkipLine

Text=File.ReadAll

File.Close

Set File=fso.OpenTextFile(Path,2)

File.Write Text

File.Close