// 调试用函数  
function show(msg)  
{  
wsh = new ActiveXObject("WScript.Shell");  
wsh.Popup(msg);  
}  
//执行  
//eval  
//try {  
// Debug("dkjkljei");  
//} catch (e) {  
//}  
 
/** 
wsh = new ActiveXObject("WScript.Shell"); 
获取用户环境变量 
wsh.Environment("user").Item(name); 
设置用户环境变量 
wsh.Environment("user").Item(name) = value; 
删除用户环境变量 
wsh.Environment("user").Remove(name); 
获取系统环境变量 
wsh.Environment("system").Item(name); 
设置系统环境变量 
wsh.Environment("system").Item(name) = value; 
*/ 
function addEnvVar(sys, obj, value) {  
wsh = new ActiveXObject("WScript.Shell");  
wsh.Environment(sys).Item(obj) = value;  
}  
function delEnvVar(obj) {  
wsh = new ActiveXObject("WScript.Shell");  
wsh.Environment("user").Remove(obj);  
}  
function getEnvVar(sys, obj) {  
wsh = new ActiveXObject("WScript.Shell");  
return(wsh.Environment(sys).Item(obj));  
}  
/** 
Set ws=WScript.CreateObject("WScript.Shell") 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder(ws.CurrentDirectory) 
Set fc = f.Files 
For Each f1 in fc 
   if right(f1.name,len(f1.name)-InStrRev(f1.name,"."))="reg" then ws.run "regedit /s """&f1.name&"""" 
Next 
*/ 
function showDir() {  
var fso, f, fc, s;  
wsh = new ActiveXObject("WScript.Shell");  
fso = new ActiveXObject("Scripting.FileSystemObject");  
f = fso.GetFolder(wsh.CurrentDirectory);  
fc = new Enumerator(f.files);  
s = "";  
var regValue = new RegExp(".java$","i");  
for (; !fc.atEnd(); fc.moveNext()) {  
  if (regValue.test(fc.item())) {  
   var ff = fc.item();  
   s += ff.Name;  
   s += "\n";  
  }  
}  
return(s);  
}  
var jdk = "d:\\java\\jdk";  
function setJDK(obj) {  
//设置java_home  
addEnvVar("system", "java_home", obj);  
var path = getEnvVar("system", "path");  
var pathbak = getEnvVar("system", "pathbak");  
//判断是否存在pathbak,没有则添加  
if (pathbak == "") {  
  addEnvVar("system", "pathbak", path);  
}  
//设置path  
addEnvVar("system", "path", path + ";%java_home%\\bin");  
 
var cp, fso, f, fc, ff;  
wsh = new ActiveXObject("WScript.Shell");  
fso = new ActiveXObject("Scripting.FileSystemObject");  
f = fso.GetFolder(obj + "\\lib");  
fc = new Enumerator(f.files);  
cp = ".;";  
var regValue = new RegExp(".jar$","i");  
for (; !fc.atEnd(); fc.moveNext()) {  
  ff = fc.item();  
  if (regValue.test(ff.name)) {  
   cp += "%java_home%\\lib\\" + ff.name + ";";  
  }  
}  
//设置classpath  
addEnvVar("system", "classpath", cp);  
}  
eval(run());  
function run() {  
wsh = new ActiveXObject("WScript.Shell");  
wsh.run("regedit");  
} 

 用js设置环境变量