ghost后自动修改IP和计算机名的VBS脚本！

[Tony]

AutoConfig.vbs

PHP 代码:

On Error Resume Next
＇取得本机器的网卡物理地址： MacAddress
strComputer = "."
     Set objWMIService = Getobject("winmgmts:" _
              & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     Set colNicConfigs = objWMIService.ExecQuery _
              ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

 
            For Each objNicConfig In colNicConfigs 
                  Set objNic = objWMIService.Get _
                           ("Win32_NetworkAdapter.DeviceID=" & objNicConfig.Index)
  
          ＇本机器的网卡物理地址写入变量 : strMacAddress
                       strMacAddress = objNic.MACAddress
  
             Next  

 

＇读取配置文件
         dim files，file，strReadLine ，RowNumber
           Const ForReading = 1
           set files=Createobject("Scripting.FileSystemobject") 
                if files.fileexists("E:\AutoConfig\config.cfg"， ForReading) then
                set file=files.opentextfile("E:\AutoConfig\config.cfg")
                 else
                msgbox("请在程序目录下放置MAC列表文件(文件名为:config.cfg)")
                 end if
                      
                           RowNumber = 0 
                Do While file.AtEndOfStream ＜＞ True
                     strReadLine =  file.ReadLine
                     RowNumber = RowNumber + 1
                    If InStr(strReadLine，strMacAddress) ＜＞ 0 Then
                          ComputerConfig = Split(strReadLine ， ";")
                         
                       Exit Do
                     End If
                 Loop

 
＇修改IP地址
strComputer = "."

 
SubnetIPAddress = "192.168.0."
LocalIPAddress = SubnetIPAddress & RowNumber

 
Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(LocalIPAddress)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress， strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway， strGatewaymetric)
    
Next

 
＇修改机器名      
Set WshShell = Createobject("Wscript.Shell")
Set Fso = Createobject("SCripting.FileSystemobject")

 
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"， ComputerConfig(0) ，"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname"， ComputerConfig(0) ，"REG_SZ" 
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"， ComputerConfig(0) ，"REG_SZ"

 

＇修改CS-CDKEY
WshShell.RegWrite "HKCU\Software\Valve\CounterStrike\Settings\Key"，  ComputerConfig(3)，"REG_SZ"                     
WshShell.RegWrite "HKU\S-1-5-21-839522115-507921405-2146800195-500\Software\Valve\CounterStrike\Settings\Key"， ComputerConfig(3)，"REG_SZ" 
WshShell.RegWrite "HKU\S-1-5-21-1085031214-220523388-839522115-500\Software\Valve\CounterStrike\Settings\Key"， ComputerConfig(3)，"REG_SZ"
WshShell.RegWrite "HKU\S-1-5-21-1614895754-1417001333-839522115-500\Software\Valve\CounterStrike\Settings\key"， ComputerConfig(3)，"REG_SZ"

 
＇清除启动项
WshShell.Regdelete"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\AutoConfig"
Set Wshell=Nothing

 
strComputer = "."
Set objWMIService = Getobject("winmgmts:" _
    & "{impersonationLevel=impersonate，(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    ObjOperatingSystem.Reboot()
Next
On Error GoTo  0 


config.cfg 按照格式，添加 自己的机器配置。 另存为“ config.cfg”

           [ComputerName]  [MacAddress]  [IPAddress] [CS:CDKey]   
Nh002
Nh003
Nh004
Nh005; 00:11:5B:CF:C8:12;  192.168.0.5; 3245164654063  
Nh006; 00:11:5B:BD:2F:E4;  192.168.0.6; 3385636230783    
Nh007; 00:11:5B:B3:F0:86;  192.168.0.7; 2030698167302    
Nh008; 00:11:5B:C8:C8:E1;  192.168.0.8; 7149496192146    
Nh009; 00:11:5B:CF:C6:D9;  192.168.0.9; 6823878707810

###本程序的基本思路是:

首先在 "Config.cfg" 文件内放置全部的机器名，网卡地址， IP地址， CS-CDKEY。


程序运行后读取本机的网卡地址，再到 "Config.cfg" 文件内找相应的地址写在第几行，


来确定本机的机器名. 再根据所得到的行号，来配置应该设置的IP， CS-CDKEY，等等.



###使用步骤


1.依次填好 "Config.cfg" 文件里面的机器配置


2.在母盘做好准备克盘之前将"添加启动项.reg"导入注册表


3.克盘后重启，自动设置开始



###各文件内容介绍:


本程序主要包含4个文件：


假设你的系统是 Win2k Pro，


Autoconfig.vbs 用于2000系统的主程序.
Config.cfg 机器配置列表
添加启动项.reg 母盘制作好后运行一下，克盘会才能自动启动主程序.
先看说明.txt 帮助说明



＇Autoconfig.vbs 用于2000系统的主程序.
如果，你能修改它，使程序更有效率。你就看着办，

看不懂呢，就不用管它。


＇添加启动项.reg
该文件的作用就是让克好的盘在启动后能自动运行主程序，
而主程序会在运行后自动删除这个启动项目，
所以主程序只会运行一次，以后是不会自动运行的.



注意： 文件的： 盘符，路径，文件夹名字。都是设置好的。
如果，你改变路径。请把此文件中的配置也做相应修改。



＇Config.cfg
文件内依次写入每台机器的MAC地址，保证1号写在第1行，8号写在第8行......


如你的机器直接从10号机编号，在上面预留9个空行，10号机的MAC就写在第10行


每一行的书写格式必须完整，
如:
Nh005; 00:11:5B:CF:C8:12; 192.168.0.5; 3245164654063


因为，IP地址，是根据 MAC 所在行的 行号确定的。


如果，某个机器号不连续，请只写机器号， 把 MAC 保持留空。