电脑软硬件应用网
当前位置: 电脑软硬件应用网 > 电脑学院 > 软件教程 > 系统工具 > 正文
ghost后无需人工干预,全自动修改IP等设置
ghost后无需人工干预,全自动修改IP等设置
2006-8-14 8:43:30  文/未知   出处:电脑软硬件应用网   
247940716

.

.

OK,以上完成了,以后只要想办法在克隆重启后自动运行ip.cfg,就可以了:

更改系统盘的autoexec.bat为如下:

@echo off

if exist e:\ghostbak\ip.reg goto setreg

goto end

:setreg

regedit e:\ghostbak\ip.reg

del e:\ghostbak\ipcfg.reg

ren e:\ghostbak\ip.reg ipcfg.reg

:end

知道了吗,只要e:\ghostbak\下存在ip.reg,就导入注册表,然后改名为ipcfg.reg。

思路已经明确,接下来针对ghost 的六种不同情况只要略微改变一下程序就能全部自动执行了:

1、单机克隆,文件到分区:

运行gst.bat 内容如下:

ren e:\ghostbak\ipcfg.reg ip.reg

: 先format ,省得ghost 后再对C盘查错

format c: /s/u/autotest

e:\ghostbak\ghost.exe -clone,mode=pload,src=e:\ghostbak\ghost\win98.gh1,dst=1:1 -sure -fx -rb

2、单机克隆,分区到分区(不开机箱):

在getreg.vbs 的backtoserver()函数后在加上以下代码:

copyfiles(machname) ' 函数copyfiles() 从服务器复制需要的文件到客户端

Set WshShell = Wscript.CreateObject("Wscript.Shell")

WshShell.Run ("\\Server\系统更新\shutdown.exe -r") ' shutdown.exe 关机宝,网上找

sub copyfiles(t)

dim sys,gho,mpmenu,mplan,mpnet,mpsingle

sys="\\Server\系统更新\" ' 服务器路径

rt=cint(right(t,3)) ' 提取机号

if (rt>=28 and rt<=140) or rt=23 then

gho="win98A.gho"

elseif (rt>140 and rt<179) or (rt>=1 and rt<=21) or (rt>=24 and rt<=27) or rt=22 then

gho="win98B.gho"

elseif (rt>=179 and rt<=280) then

gho="win98C.gho"

end if ' 根据不同的配置复制不同的备份文件

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")

if fso.fileexists(sys & gho) then

set c=fso.getfile(sys & gho)

c.copy ("e:\ghostbak\win98.gho")

end if ' 开始复制

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")

if fso.fileexists(sys & "autoexec.bat") then

set c=fso.getfile(sys & "autoexec.bat")

c.copy ("c:\autoexec.bat")

end if ' 把服务器上的autoexec.bat 覆盖c:盘的,用以重启后自动开始ghost

end sub

服务器上的autoexec.bat 内容:

format c: /s/u/autotest

e:\ghostbak\ghost.exe -clone,mode=pload,src=e:\ghostbak\ghost\win98.gh1,dst=1:1 -sure -fx -rb

很简单吧,就是开始ghost//本文来自电脑软硬件应用网www.45its.com。

3、单机克隆,分区到分区(开机箱):

说了不推荐,早干什么去了,为什么不留备份呢?不过你一定要用也没关系,方法同1,只要改下ghost参数。

4、单机克隆,DISK TO DISK:

还是觉得累,方法同6

5、多机克隆,文件到分区:

写个批处理啊,net use 连到服务器后复制 ip.cfg到e:\ghostbak 如:

ghost.bat内容:

;网卡dos 驱动

;net 到服务器e:\ghostbak 为F:

copy f:\ip\%1.reg e:\ghostbak\ip.reg /y

;开始ghost

运行时加参数如100号机就是:ghost.bat zx100

6、多机克隆,盘到盘:

a. 将ip目录(就是备份所有客户端注册表文件的目录)放到母盘e:\ghostbak b. 增加selectip.vbs 内容如下:

dim t,lt,rt

while true

t=inputbox("请输入机器标识!","输入") ' 输入机号

if len(t2)=5 then

lt=left(LCase(t2),2)

rt=right(LCase(t2),3)

if lt="zx" and rt<>"" and Cint(rt)>=0 and Cint(rt)<=280 then

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")

if fso.fileexists("e:\ghostbak\ip\" & t & ".reg") then

set c=fso.getfile("e:\ghostbak\ip\" & t & ".reg") ' 根据机号得到相应注册表文件

c.copy ("e:\ghostbak\ip.reg") ' 复制注册表文件

set c=fso.getfile("C:\WINDOWS\Start Menu\Programs\启动\selctip.lnk")

c.delete ' 删除启动项中本程序

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("e:\ghostbak\ip") ' 删除ip目录

Set WshShell = Wscript.CreateObject("Wscript.Shell")

WshShell.Run ("regedit /s e:\ghostbak\ip.reg") ' 运行注册表文件

WshShell.Run ("\\Server\系统更新\shutdown.exe -r") ' 重启

end if

wend

注1:母盘建立selectip.vbs的快捷方式selectip.lnk在启动组,开机后就运行,运行时删除此快捷方式。

注2:母盘的子网掩码取:255.255.255.254,避免克隆后一起重启网络冲突。

以上程序在win98下运行通过,我现在网吧280台机子就是这样克的,希望对大家有所帮助。

上一页  [1] [2] 

  • 上一篇文章:

  • 下一篇文章:
  • 最新热点 最新推荐 相关文章
    设置UDMA模式加快Ghost系统恢复速度
    如何删除Ghost留下的镜像文件和Ghos…
    Ghost重装提示Error loading system
    不能GHOST系统的原因及解决办法总结
    使用Ghost恢复系统速度慢的解决办法
    装双系统能不能用Ghost?
    硬盘出现l. 之后无法启动
    用什么软件能打开GHO文件呢?
    重装Ghost系统时出现File Name(546)
    用Ghost修复SD卡
    关于45IT | About 45IT | 联系方式 | 版权声明 | 网站导航 |

    Copyright © 2003-2011 45IT. All Rights Reserved 浙ICP备09049068号