//******************************************************************** 
// Copymiddle 2006 Zealic,All middle keeped. 
//******************************************************************** 
//** 環(huán)境變量名 
//** 設置環(huán)境變量名,這些值影響環(huán)境變量的名字,建議不要修改 
var VN_PATH        = "PATH"; 
var VN_PROFILE        = "PROFILE"; 
var VN_PROFILE_USER    = "PROFILE_USER"; 
var VN_VOLATILE_PROFILE    = "VOLATILE_PROFILE"; 
var VN_TEMP        = "TEMP"; 


//******************************************************************** 
//** 設置 

var m_Prefix        = "GUEST_"; 
var m_UserName        = "Zealic"; 
var m_Profile        = "D:\\Profile"; 
var m_VoltProfile    = "F:\\VolatileProfile"; 
var m_UserPath        = "C:\\WINDOWS\\Microsoft.NET\\Framework\\v2.0.50727;"  
                + "D:\\Java\\JRE\\Currently\\bin"; 

//調(diào)用函數(shù)以設置 
SetEnvironment(m_Prefix,m_UserName,m_Profile,m_VoltProfile,m_UserPath); 


//******************************************************************** 
//** 函數(shù)定義 

// 設置環(huán)境變量 
//     prefix         : 環(huán)境變量名的前綴 
//     userName    : 用戶名 
//     profile        : 重要文件目錄 
//     voltProfile    : 非重要文件目錄 
//     userPath    : 用戶 Path,設置該值以進行快捷運行程序 
function SetEnvironment(prefix,userName,profile,voltProfile,userPath) 
{ 
    //開始設置 
    var currentName; 
    //=========================== 
    // 設置系統(tǒng)重要目錄 
    currentName = prefix + VN_PROFILE; 

    SetSystemValue(currentName, profile); 

    // 設置設置用戶重要目錄 
    currentName = prefix + VN_PROFILE_USER; 
    SetSystemValue(currentName, "%" + prefix + VN_PROFILE + "%\\" + userName); 

    // 設置設置系統(tǒng)非重要目錄 
    currentName = prefix + VN_VOLATILE_PROFILE; 
    SetSystemValue(currentName, voltProfile); 

    // 設置設置用戶非重要目錄 
    currentName = prefix + "VOLATILE_PROFILE_USER"; 
    SetSystemValue(currentName, "%" + prefix + VN_VOLATILE_PROFILE + "%" + "\\" + userName); 

    // 設置臨時目錄 
    currentName = prefix + "TEMP"; 
    SetSystemValue(currentName, "%" + prefix + VN_VOLATILE_PROFILE + "%" + "\\Temporary"); 

    //設置TEMP變量 
    var temp = "%" + prefix + VN_TEMP + "%"; 
    SetUserValue("TMP", temp); 
    SetUserValue("TEMP", temp); 
    SetSystemValue("TMP", temp); 
    SetSystemValue("TEMP", temp); 

    // 設置 Path 和 自定義 Path 連接 
    var currentName = prefix + VN_PATH; 
    SetSystemValue(currentName, userPath); 
    // 檢測是否已經(jīng)存在Path,如果不存在則設置 
    var regValue = new RegExp("%" + prefix + VN_PATH + "%","i"); 
    if(!regValue.test(GetSystemValue("Path"))) 
    { 
        SetSystemValue("Path",GetSystemValue("Path") + ";%" + prefix + VN_PATH + "%"); 
    } 
} 

// 調(diào)試用函數(shù) 
function Debug(msg) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    wsh.Popup(msg); 
} 

// 獲取用戶環(huán)境變量 
function GetUserValue(name,value) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    return wsh.Environment("user").Item(name); 
} 
// 設置用戶環(huán)境變量 
function SetUserValue(name,value) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    wsh.Environment("user").Item(name) = value; 
} 
// 刪除用戶環(huán)境變量 
function RemoveUserValue(name) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    wsh.Environment("user").Remove(name) = value; 
} 
// 獲取系統(tǒng)環(huán)境變量 
function GetSystemValue(name,value) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    return wsh.Environment("system").Item(name); 
} 
// 設置系統(tǒng)環(huán)境變量 
function SetSystemValue(name,value) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    wsh.Environment("system").Item(name) = value; 
} 
// 刪除系統(tǒng)環(huán)境變量 
function RemoveSystemValue(name) 
{ 
    wsh = new ActiveXObject("WScript.Shell"); 
    wsh.Environment("system").Remove(name) = value; 
}