I write this script :
Sub FtpdConfig(ftpdFile, psaIP)
Dim fso, ftpdFileOri, fori, fbat
Set fso = CreateObject("Scripting.FileSystemObject")
ftpdFileOri = ftpdFile&".ori"
If (fso.FileExists(ftpdFileOri))=False Then
fso.CopyFile ftpdFile, ftpdFileOri
End If
Set fori = fs

penTextFile(ftpdFileOri, ForReading, False)
Set fbat = fs

penTextFile(ftpdFile, ForWriting, False)
Do While fori.AtEndOfStream <> True
ReadLineTextFile = fori.ReadLine
If Instr(ReadLineTextFile, "FtpServer.server.config.host") = 0 Then
fbat.WriteLine ReadLineTextFile
Else
fbat.WriteLine "FtpServer.server.config.host="&psaIP
End If
Loop
fori.Close
fbat.Close
End Sub