ghost后无需人工干预，全自动修改IP等设置

新客网 XKER.COM 2006-08-13 来源：收藏本文

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

inputon=t2 ' 返回需要的计算机名

exit function

end if

end if

wend

end function

sub setreg(t) ' 生成注册表

Dim fso, f1,f2,rt,ipt,pt,gateway,lan,cskey,mpkey ' 变量

rt=cint(right(t,3)) ' 机号转换为数字值

if 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<=39) or (rt>=223 and rt<=280) then

lan="lan1"

elseif (rt>39 and rt<=140) then

lan="lan2"

elseif (rt>140 and rt<223) then

lan="lan3"

end if ' 根据不同的机号设置工作组

if (rt>=1 and rt<=140) or (rt>=223 and rt<=280) then

gateway=rt mod 4

if gateway=0 then

gateway=4

end if

gateway=1 & gateway

else

gateway=rt mod 2

if gateway=1 then

gateway=15

elseif gateway=0 then

gateway=16

end if

end if ' 根据不同的机号设置网关

pt=rt

if pt=200 then

pt=252

end if

if pt=250 then

pt=253

end if ' 历史原因，ip 200和250被服务器用了，改为252,253

Set fso = CreateObject("Scripting.FileSystemObject")

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

set f2=fso.getfile("e:\ghostbak\ip.reg")

f2.delete

end if ' 如果存在ip.reg，先删了

cskey=getcskey() ' 函数getcskey() 得到CS的CDKEY

mpkey=getmpkey() ' 函数getmpkey()得到美萍的CDKEY

set f1 = fso.CreateTextFile("e:\ghostbak\ip.reg", True) ' 建立文件ip.cfg

f1.WriteLine("REGEDIT4") ' 以下为生成注册表

f1.WriteBlankLines(1)

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName]")

f1.WriteLine(chr(34) & "ComputerName" & chr(34) & "=" & chr(34) & t & chr(34)) ' 计算机名

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]")

f1.WriteLine(chr(34) & "IPAddress" & chr(34) & "=" & chr(34) & "192.168." & ipt & "." & pt & chr(34)) ' IP

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]")

f1.WriteLine(chr(34) & "DefaultGateway" & chr(34) & "=" & chr(34) & "192.168.0." & gateway & chr(34)) ' 网关

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]")

f1.WriteLine(chr(34) & "IPMask" & chr(34) & "=" & chr(34) & "255.255.254.0" & chr(34)) ' 子网掩码

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]")

f1.WriteLine(chr(34) & "Comment" & chr(34) & "=" & chr(34) & t & chr(34)) ' 计算机说明

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]")

f1.WriteLine(chr(34) & "ComputerName" & chr(34) & "=" & chr(34) & t & chr(34)) ' 计算机名

f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]")

f1.Writeline(chr(34) & "Workgroup" & chr(34) & "=" & chr(34) & lan & chr(34)) ' 工作组

f1.WriteLine("[HKEY_CURRENT_USER\Software\Valve\CounterStrike\Settings]")

f1.WriteLine(chr(34) & "key" & chr(34) & "=" & chr(34) & cskey & chr(34)) ' CS-CDKEY

f1.WriteLine("[HKEY_LOCAL_MACHINE\Software\Mpsoft\Smenu]")

共4页: 上一页 [1] [2] [3] [4] 下一页

上一篇：只需四步提高Ghost运行速度下一篇：Ghost误刷分区表怎么办

【收藏】【评论】【推荐】【投稿】【打印】【关闭】