这两天用虚拟机安装系统,准备用虚拟机把开发环境和数据库分离,想法如下:
1.开发环境为Host
2.Guest为数据库服务器,每一个服务器都是一个独立的虚拟机
数据库包括,Oracle9i、SQLServer2005、MySQL
但是装系统，还要设置环境变量，以减少系统盘的占用和增加性能，这就需要迁移系统盘的一些目录了，比如IE临时目录，临时文件夹，ApplocationData；此外，我们还需要把重要的文件夹移动到其他分区，以避免在系统盘发生事故或者想要恢复的时候，重要数据(MyDocument,收藏夹，程序配置等)不受影响。
手动修改环境变量和注册表值太麻烦了，因为我每次装系统都要修改那么一次，这次实在受够了，心里一发狠。好，我写个脚本把你搞定！
BAT是不能设置系统环境变量的，此外可用的就有VBScript和JScript了;VBScript的好处是有对话框,JScript没有(alert等只能在网页中使用)，而JScript的代码条理清晰一些，并且功能强大，可以使用正则表达式等功能。
于是乎，写了下面的脚本，各位大虾请看代码:

复制代码 代码如下://********************************************************************
//Copymiddle2006Zealic,Allmiddlekeeped.
//********************************************************************
//**环境变量名
//**设置环境变量名,这些值影响环境变量的名字,建议不要修改
varVN_PATH="PATH";
varVN_PROFILE="PROFILE";
varVN_PROFILE_USER="PROFILE_USER";
varVN_VOLATILE_PROFILE="VOLATILE_PROFILE";
varVN_TEMP="TEMP";


//********************************************************************
//**设置

varm_Prefix="GUEST_";
varm_UserName="Zealic";
varm_Profile="D:\\Profile";
varm_VoltProfile="F:\\VolatileProfile";
varm_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,设置该值以进行快捷运行程序
functionSetEnvironment(prefix,userName,profile,voltProfile,userPath)
{
//开始设置
varcurrentName;
//===========================
//设置系统重要目录
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变量
vartemp="%"+prefix+VN_TEMP+"%";
SetUserValue("TMP",temp);
SetUserValue("TEMP",temp);
SetSystemValue("TMP",temp);
SetSystemValue("TEMP",temp);

//设置Path和自定义Path连接
varcurrentName=prefix+VN_PATH;
SetSystemValue(currentName,userPath);
//检测是否已经存在Path,如果不存在则设置
varregValue=newRegExp("%"+prefix+VN_PATH+"%","i");
if(!regValue.test(GetSystemValue("Path")))
{
SetSystemValue("Path",GetSystemValue("Path")+";%"+prefix+VN_PATH+"%");
}
}

//调试用函数
functionDebug(msg)
{
wsh=newActiveXObject("WScript.Shell");
wsh.Popup(msg);
}

//获取用户环境变量
functionGetUserValue(name,value)
{
wsh=newActiveXObject("WScript.Shell");
returnwsh.Environment("user").Item(name);
}
//设置用户环境变量
functionSetUserValue(name,value)
{
wsh=newActiveXObject("WScript.Shell");
wsh.Environment("user").Item(name)=value;
}
//删除用户环境变量
functionRemoveUserValue(name)
{
wsh=newActiveXObject("WScript.Shell");
wsh.Environment("user").Remove(name)=value;
}
//获取系统环境变量
functionGetSystemValue(name,value)
{
wsh=newActiveXObject("WScript.Shell");
returnwsh.Environment("system").Item(name);
}
//设置系统环境变量
functionSetSystemValue(name,value)
{
wsh=newActiveXObject("WScript.Shell");
wsh.Environment("system").Item(name)=value;
}
//删除系统环境变量
functionRemoveSystemValue(name)
{
wsh=newActiveXObject("WScript.Shell");
wsh.Environment("system").Remove(name)=value;
}
其中Profile为有价值的数据和文件，VolatileProfile用过而无价值的数据和文件。这样，我们就可以清楚的知道，Profile要保留，VolatileProfile则可以经常清理。
之后我还需要把Desktop,MyDocument,Favorites文件夹迁移到Profile目录中，然后就开始安装数据库。
不过嘛，今天太晚了，明天再说~~~
明天用用JScript操作注册表以迁移系统的一些目录到Profile和VolatileProfile目录。
http:///zealic/archive/2006/11/07/552433.html