Set shell = WScript.CreateObject( "WScript.Shell" )
Set O_EnvVarSyst = shell.Environment("System" )
Set O_EnvVarProc = shell.Environment("Process" )
Set O_Compare = New RegExp
Str_SystemRoot = O_EnvVarSyst("WinDir" )
'On extraie la variable %PATH%
Str_Path = O_EnvVarSyst("Path" )
'On remplace la valeur de %SYSTEMROOT% par le nom de cette même variable
Str_Path = Replace(Str_Path, O_EnvVarProc("SystemRoot" ), "%SystemRoot%",1,-1,1)
'On vire les \ inutiles
Str_Path = Replace(Str_Path, "\;", ";" ) 'Le plus important, on positionne les premières entrées à la main
Str_NewPath = "%SystemRoot%;%SystemRoot%\SYSTEM32"
T_ActualPath = split(Str_Path,";" )
Lng_Nombre = (UBound(T_ActualPath))
for i=0 to Lng_Nombre
Lng_Find = Instr(1,UCase(Str_NewPath),UCase(T_ActualPath(i)) & ";" )
If Lng_Find = 0 Then
Str_NewPath = Str_NewPath & ";" & T_ActualPath(i)
End If
next
Str_NewPath = Replace(Str_NewPath, O_EnvVarProc("SystemRoot" ), "%SystemRoot%",1,-1,1)
O_EnvVarSyst("Path" )=Str_NewPath |