Rem Script de finalisation d'installation de Peugeot Planet Diag 3.1.39
Rem Les anciens raccourcis sont effacés
Rem Les nouveaux raccourcis sont créés

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

Rem ouverture puis paramétrage du fichier gestcomm.ini (cable actia).
Rem ====================================================
Set fichpropin=fso.OpenTextFile("c:\app\ppdiag\J9VM\bin\gestcomm.ini",1)
Set fichpropout=fso.CreateTextFile("c:\app\ppdiag\J9VM\bin\gestcomm1.ini",1)
Do until fichpropin.AtEndOfStream
a = fichpropin.readline
If (Mid(a,1,5)="Path=") then a="Path=""c:/app/ppdiag/"""
fichpropout.writeline(a)
loop

fichpropin.close
fichpropout.close

fso.deletefile("c:\app\ppdiag\J9VM\bin\gestcomm.ini")
fso.CopyFile "c:\app\ppdiag\J9VM\bin\gestcomm1.ini", "c:\app\ppdiag\J9VM\bin\gestcomm.ini"
fso.deletefile("c:\app\ppdiag\J9VM\bin\gestcomm1.ini")