Discussion :

[SMIET]

Salut,

J'ai ce scripts pour écrire une variable d'environnement système
il fonctionne très bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If CreateObject("WScript.Shell").Run("%ComSpec% /C ""NET FILE""", 0, True) <> 0 Then
    CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """", , "runas", 5
    WScript.Quit
End If
Set Shell = CreateObject("WScript.Shell")
Cmd = Shell.Exec("%ComSpec% /C ""REG QUERY ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"" /v Path | FINDSTR /I /C:""REG_SZ"" /C: ""REG_EXPAND_SZ""""").StdOut.ReadAll
Cmd = """" & Trim(Replace(Mid(Cmd, InStr(1, Cmd, "_SZ", VBTextCompare) + 3), vbCrLf, ""))
If Right(Cmd, 1) <> ";" Then Cmd = Cmd & ";"
Cmd = "%ComSpec% /C ""REG ADD ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"" /v Path /t REG_EXPAND_SZ /d " & Replace(Cmd & "C:\Program Files\My Prog"" /f""", "%", """%""")
Shell.Run Cmd, 0, True

Mais je n'arrive pas à trouver pour supprimer uniquement "C:\Program Files\My Prog" de Path mais pas les autres lignes ?!
avec le même scripts ou .bat ou autres...

Quelqu'un à une idée

Je cherche aussi pour écrire et supprimer une ligne dans une variable d'environnement utilisateur
avec le même scripts ou .bat ou autres...

Merci

[troxsa]

En utilisant "Replace" ça devrait fonctionner normalement ?

exemple simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
myString="Hello John"
myString=Replace(myString,"John","")
WScript.Echo myString

[troxsa]

un autre exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' ECRITURE POUR TEST
Set WshShell = CreateObject("WScript.Shell")
Key = "HKCU\Environment\test"
ValueKey = "C:\Program Files\My Prog1;C:\Program Files\My Prog2;C:\Program Files\My Prog3;"
WshShell.RegWrite Key,ValueKey,"REG_EXPAND_SZ"

'LECTURE DE LA CLEF
regValue = WshShell.RegRead(Key)
msgbox regValue

'SUPPRESSION DE LA CLEF AVEC LA VALEUR "C:\Program Files\My Prog2;"
RemoveValue = replace (regValue, "C:\Program Files\My Prog2;", "")
msgbox RemoveValue
WshShell.RegWrite Key,RemoveValue,"REG_EXPAND_SZ"

[SMIET]

Salut,

Super, merci
ça fonctionne

Supprimer une variable d'environnement système.vbs

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Exécute la commande en administateur
If CreateObject("WScript.Shell").Run("%ComSpec% /C ""NET FILE""", 0, True) <> 0 Then
CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """", , "runas", 5
WScript.Quit
End If
'Lecture de la Clé
Set WshShell = CreateObject("WScript.Shell")
Key = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\Path"
regValue = WshShell.RegRead(Key)
'Suppression de la Clé avec la valeur "C:\Program Files\My Prog;"
RemoveValue = replace (regValue, "C:\Program Files\My Prog;", "")
WshShell.RegWrite Key,RemoveValue,"REG_EXPAND_SZ"

@+