Slet linje i tekst fil

Rune har været så venlig at lave følgende script til mig. Men den sletter alt andet ind den øverste linje. Jeg skal have scriptet til at slette den øverste linje og beholde resten.


Set fs=CreateObject("Scripting.FileSystemObject")
Set ftemp=fs.CreateTextFile("c:\temp.txt",true)
Set f=fs.OpenTextFile("c:\password.txt", 1)

linjeNo = 1
sletLinje = 1
do while f.AtEndOfStream = false
  tempLine = f.ReadLine
  'Test om det er denne linje som ikke skal skrives i den nye fil
  if Int(linjeNo) = Int(sletLinje) then
    ftemp.writeline (tempLine)
  end if
  linjeNo = linjeNo + 1
loop
'Luk filerne
f.Close
ftemp.Close
'Slet den gamle fil:
set f=fs.GetFile("c:\password.txt")
f.Delete
'Omdøb temp filen til det rigtige filnavn
set f=fs.GetFile("c:\temp.txt")
f.Move("c:\password.txt")
Set f = nothing
Set ftemp = nothing

/Mads