VBS: Write Windows Env Variables #vbs

write-win-envVariables.vbs

Sub WriteEnvVar(strEnvVarType, strEnvVarName, strEnvVarValue, strWriteType)

Dim strOldVarValue, strNewVarValue
Dim strVarType

Set objShell = CreateObject("WScript.Shell")
Set objEnv = objShell.Environment(strEnvVarType) ' envVarType= System or User

    	Select Case strWriteType
    	    Case strWriteTypeReplace
	    		strOldVarValue = objEnv(strEnvVarName)
	    		strNewVarValue = strEnvVarValue
	    		objEnv(strEnvVarName) = strNewVarValue
	    		WScript.StdOut.WriteBlankLines(1)
				WScript.StdOut.WriteLine "SETTING " & strEnvVarName & " TO " & strNewVarValue & " ... DONE!"
				WScript.StdOut.WriteBlankLines(1)
			Case strWriteTypeAddNew
	    		objEnv(strEnvVarName) = strEnvVarValue
	    		WScript.StdOut.WriteBlankLines(1)
				WScript.StdOut.WriteLine "CREATING " & strEnvVarName & " AND SETTING TO " & strEnvVarValue & " ... DONE!"
				WScript.StdOut.WriteBlankLines(1)
    	End Select
     

Set objEnv = Nothing
Set objShell = Nothing

End Sub