用 JavaScript 迁移目录

//********************************************************************

　　// Copymiddle 2006 Zealic,All middle keeped.

　　//********************************************************************

　　//** 环境变量名

　　//** 设置环境变量名,这些值影响环境变量的名字,建议不要修改

　　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";

　　//调用函数以设置

　　SetEnvironment(m_Prefix,m_UserName,m_Profile,m_VoltProfile,m_UserPath);

　　//********************************************************************

　　//** 函数定义

　　// 设置环境变量

　　//     prefix         : 环境变量名的前缀

　　//     userName    : 用户名

　　//     profile        : 重要文件目录

　　//     voltProfile    : 非重要文件目录

　　//     userPath    : 用户 Path,设置该值以进行快捷运行程序

　　function SetEnvironment(prefix,userName,profile,voltProfile,userPath)

　　{

　　//开始设置

　　var currentName;

　　//===========================

　　// 设置系统重要目录

　　currentName = prefix + VN_PROFILE;

　　SetSystemValue(currentName, profile);

　　// 设置设置用户重要目录

　　currentName = prefix + VN_PROFILE_USER;

　　SetSystemValue(currentName, "%" + prefix + VN_PROFILE + "%\\" + userName);

　　// 设置设置系统非重要目录

　　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);

　　// 检测是否已经存在Path,如果不存在则设置

　　var regValue = new RegExp("%" + prefix + VN_PATH + "%","i");

　　if(!regValue.test(GetSystemValue("Path")))

　　{

　　SetSystemValue("Path",GetSystemValue("Path") + ";%" + prefix + VN_PATH + "%");

　　}

　　}

　　// 调试用函数

　　function Debug(msg)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　wsh.Popup(msg);

　　}

　　// 获取用户环境变量

　　function GetUserValue(name,value)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　return wsh.Environment("user").Item(name);

　　}

　　// 设置用户环境变量

　　function SetUserValue(name,value)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　wsh.Environment("user").Item(name) = value;

　　}

　　// 删除用户环境变量

　　function RemoveUserValue(name)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　wsh.Environment("user").Remove(name) = value;

　　}

　　// 获取系统环境变量

　　function GetSystemValue(name,value)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　return wsh.Environment("system").Item(name);

　　}

　　// 设置系统环境变量

　　function SetSystemValue(name,value)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　wsh.Environment("system").Item(name) = value;

　　}

　　// 删除系统环境变量

　　function RemoveSystemValue(name)

　　{

　　wsh = new ActiveXObject("WScript.Shell");

　　wsh.Environment("system").Remove(name) = value;

　　}