Rem Script de récupération du paramétrage

dim proxyuser, proxypwd, proxyaddress, proxyport, proxy

REM Valeurs par défaut insérées dans le fichier de configuration du client.
proxyuser =""
proxypwd = ""
proxyaddress = ""
proxyport = "80"
proxy = "FALSE"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
DesktopPath = WshShell.SpecialFolders("Desktop")  
reptemp = WshShell.ExpandEnvironmentStrings("%temp%")

REM =========================================
REM récupération des paramètres de PPDIAG 1.5
REM =========================================
if fso.FileExists("c:\app\ppdiag\ediag.properties") then 
 Set fichpropin=fso.OpenTextFile("c:\app\ppdiag\ediag.properties",1)
 Do until fichpropin.AtEndOfStream
  a = fichpropin.readline
  if mid(a,1,26)="server.connexion.PROXYUSER" then proxyuser = mid(a,28,len(a)-27)
  if mid(a,1,25)="server.connexion.PROXYPWD" then proxypwd = mid(a,27,len(a)-26)
  if mid(a,1,29)="server.connexion.PROXYADDRESS" then proxyaddress = mid(a,31,len(a)-30)
  if mid(a,1,26)="server.connexion.PROXYPORT" then proxyport = mid(a,28,len(a)-27)
  if mid(a,1,23)="server.connexion.PROXY=" then proxy = mid(a,24,len(a)-23)
 loop
fichpropin.close
end if

REM =========================================
REM récupération des paramètres de PPDIAG 3.0
REM =========================================
if fso.FileExists("c:\app\ppdiag\persistent\ediag.properties") then 
 Set fichpropin=fso.OpenTextFile("c:\app\ppdiag\persistent\ediag.properties",1)
 Do until fichpropin.AtEndOfStream
  a = fichpropin.readline
  if mid(a,1,20)="connexion.proxyuser" then proxyuser = mid(a,22,len(a)-21)
  if mid(a,1,19)="connexion.proxypw" then proxypwd = mid(a,21,len(a)-20)
  if mid(a,1,23)="connexion.proxyaddress" then proxyaddress = mid(a,25,len(a)-24)
  if mid(a,1,20)="connexion.proxyport" then proxyport = mid(a,22,len(a)-21)
  if mid(a,1,19)="connexion.useproxy" then proxy = mid(a,21,len(a)-20)
 loop
fichpropin.close
end if


Rem Ecriture des anciens paramètres dans un fichier temporaire
Rem ==========================================================
Set fichpropout=fso.CreateTextFile(reptemp&"\ediag.properties",1)
a = "connection.proxyuser=" + proxyuser : fichpropout.writeline(a)
a = "connection.proxypwd=" + proxypwd : fichpropout.writeline(a)
a = "connection.proxyaddress=" + proxyaddress : fichpropout.writeline(a)
a = "connection.proxyport="+proxyport : fichpropout.writeline(a)
a = "connection.useproxy=" + proxy : fichpropout.writeline(a)
fichpropout.close