Dim WshShellSet WshShell = Wscript.CreateObject("WScript.Shell") WshShell.Environment("user").Item("path")="c:\ruby"Set WshShell=Nothing
来源: http://www.phpxs.com/code/1008810/