Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell") 
WshShell.Environment("user").Item("path")="c:\ruby"
Set WshShell=Nothing