Ecrire une variable d'environnement système

Version imprimable

Salut,

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

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

18/03/2022, 09h04
troxsa
En utilisant "Replace" ça devrait fonctionner normalement ?

exemple simple :
Code:

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

un autre exemple :

Code:

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"

Salut,

Super, merci
ça fonctionne

Supprimer une variable d'environnement système.vbs

Code:

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"