mirror of
https://github.com/noviceli/jetbra
synced 2024-11-22 13:16:24 +03:00
18 lines
749 B
Text
18 lines
749 B
Text
|
Set oShell = CreateObject("WScript.Shell")
|
||
|
|
Set oEnv = oShell.Environment("USER")
|
||
|
|
|
||
|
|
Dim sEnvKey, sEnvVal, aJBProducts
|
||
|
|
aJBProducts = Array("idea", "clion", "phpstorm", "goland", "pycharm", "webstorm", "webide", "rider", "datagrip", "rubymine", "appcode", "dataspell", "gateway", "jetbrains_client", "jetbrainsclient", "studio", "devecostudio")
|
||
|
|
|
||
|
|
MsgBox "It may take a few seconds to execute this script." & vbCrLf & vbCrLf & "Click 'OK' button and wait for the prompt of 'Done.' to pop up!"
|
||
|
|
|
||
|
|
For Each sPrd in aJBProducts
|
||
|
|
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
|
||
|
|
sEnvVal = oShell.ExpandEnvironmentStrings("%" & sEnvKey & "%")
|
||
|
|
If sEnvVal <> ("%" & sEnvKey & "%") Then
|
||
|
|
oEnv.Remove(sEnvKey)
|
||
|
|
End If
|
||
|
|
Next
|
||
|
|
|
||
|
|
MsgBox "Done."
|