Ghost后无需人工干预,全自动修改IP等设置的一些思路及代码

juewu2

如果要重做系统，就每台机器ghost，然后启动改IP、网关等，没感到怎么费力，现在的网吧有近300台，每次ghost后再改IP之类的，想想就头晕，于是写了个VBS，几个BAT，使机器克隆后能自动修改IP、标识、网关，工作组、CS-CDKEY、美萍的机号和注册号，就是说：ghost 后基本不用改配置，直接能用。本人在网盟属资深潜水员，偶尔出水换气，将思路和程序献上，希望批评指正！
    网吧ghost 无非以下几种：
1、单机克隆，文件到分区：
   简单、快速，推荐使用。一个系统备份也就300~400兆，不占多少硬盘空间，一旦系统有问题恢复容易。
2、单机克隆，分区到分区（不开机箱）：
   从服务器复制系统备份然后克隆，用于系统更新。优点：想克哪台克哪台，不受顾客上机限制，不拖网速。
3、单机克隆，分区到分区（开机箱）：
   从母盘克隆系统，一般用于系统更新，要开机箱，不推荐。
4、单机克隆，DISK TO DISK：
   你不觉得累吗？
5、多机克隆，文件到分区：
   批量更新系统，好处多多，就是改IP有点烦，哦！
6、多机克隆，盘到盘：
   汗，不得已而为之。
不管是哪种克隆，思想差不多，就是在非系统盘（如e:ghostbak）放以下几个文件：
1、系统的ghost备份（如win98.gho），如果有不同的机器配置也放在一起（如win98A.gho、win98B.gho、win98C.gho）
2、ip.reg：IP、标识、网关，工作组、CS-CDKEY、美萍机号和注册号的注册表文件。下面介绍。
3、st.bat：用于第1、2种情况。下面介绍。
4、ghost.exe：少了它什么也不能干！
ip.reg内容：
REGEDIT4
;计算机名（如zx001,zx123）
[HKEY_LOCAL_MACHINESystemCurrentControlSetControlComputerNameComputerName]
"ComputerName"="zx203"
;IP：
[HKEY_LOCAL_MACHINESystemCurrentControlSetServicesClassNetTrans000]
"IPAddress"="192.168.0.203"
;网关：
[HKEY_LOCAL_MACHINESystemCurrentControlSetServicesClassNetTrans000]
"DefaultGateway"="192.168.0.15"
;计算机说明：
[HKEY_LOCAL_MACHINESystemCurrentControlSetServicesVxDVNETSUP]
"Comment"="zx203"
;计算机名：
[HKEY_LOCAL_MACHINESystemCurrentControlSetServicesVxDVNETSUP]
"ComputerName"="zx203"
;工作组（大型网吧最好多分几个）：
[HKEY_LOCAL_MACHINESystemCurrentControlSetServicesVxDVNETSUP]
"Workgroup"="lan3"
;CS-CDKEY
[HKEY_CURRENT_USERSoftwareValveCounterStrikeSettings]
"key"="2317233759548"
;美萍机号：
[HKEY_LOCAL_MACHINESoftwareMpsoftSmenu]
"computernum"="203"
;美萍注册码：
[HKEY_LOCAL_MACHINESoftwareMpsoftSmenuReg]
"RegNum"=dword:00019DB6
getreg.vbs内容（自动生成以上注册表文件）：
dim msginf,bkey,machname
msginf=msgbox("提取注册表文件，是否继续?",65,"getreg")       '信息提示
if msginf=1 then                ' 如果按确定，则
Set WshShell = WScript.CreateObject("WScript.Shell")
bKey = WshShell.RegRead("HKEY_LOCAL_MACHINESystemCurrentControlSetControlComputerNameComputerNameComputerName")  ' 提取机算机名到变量bKey
machname=inputon(bkey)            ' 用函数inputon()分析
if machname"quit" then     ' 如果返回值不等于"quit"，则
  setreg(machname)      ' 运行函数setreg()生成注册表ip.reg
  backtoserver(machname)                ' 将ip.reg 文件备份到服务器（绝对有用）
end if
end if
function inputon(t1)          ' 函数inputon()
    dim lt,rt,t2              ' 变量
    while true                ' 循环直到退出函数
    t2=inputbox("请输入机器标识！","输入",t1)   ' 输入机算机名，默认值为现在的计算机名
        if t2="" then                        ' 如果t2等于空（按了取消键），则
     inputon="quit"   ' 返回值为"quit"
     exit function                               ' 退出程序
        end if
if len(t2)=5 then                 ' 计算机号的长度，本网吧必须为5位
  lt=left(LCase(t2),2)        '  lt 等于前二位
  rt=right(LCase(t2),3)       '  rt 等于后三位
  if lt="zx" and rt"" and Cint(rt)>=0 and Cint(rt)140 then
  ipt=0
else
  ipt=1
end if                       ' 大于140号，IP:192.168.0.X  小于140号，IP:192.168.1.X
if (rt>=1 and rt=223 and rt39 and rt140 and rt=1 and rt=223 and rt=28 and rt140 and rt=1 and rt=24 and rt=179 and rt"" and Cint(rt)>=0 and Cint(rt)

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u1/36882/showart_292961.html