Script para agregar ruta al path

Este Script esta diseñado para modificar la llave de registro correspondiente al path, lo primero que hace es leer el valor actual y guardarlo en una variable, luego elimina la llave actual y crea una nueva con la modificación requerida

'-------------------- ITPROSBOGOTACOLOMBIA ----------------------
'------------------- EL CHANGO RPROGRAMADOR ---------------------
'-------------------- AGREGAR RUTA AL PATH ---------------------


'leer llave de registro y almacenar en la variable strValue
Const HKEY_LOCAL_MACHINE = &H80000002
'El script se ejecutara en la máquina local
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\default:StdRegProv")
'Llave correspondiente al path
strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
strValueName = "Path"
'Captura del valor actual
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'Borrar valor de la llave de registr
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName
'Crear path actualizado
addToPath = inputbox ("Ingrese la ruta a agregar al path: ", "El Chango Programador - ITPBC")
oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue &";"&addToPath