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

发送到手机 | 收藏

全屏阅读模式 字体： 小 | 大

VBS   版  Ghost 改机器名 IP地址 新版本。

AutoConfig.vbs

[Copy to clipboard]

CODE: 

---------------------------------------------------------------------------

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-16145754-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

                    ----------------------------------------------------------------------------------------

另存为 “     AutoConfig.vbs” 文件。

config.cfg

----------------------------------------------------------------------------------- 

          [ComputerName]  [MacAddress]  [IPAddress] [CS:CDKey] 

Nh002

Nh003

Nh004

Nh005; 00:11:5B:CF:C8:12;  192.168.0.5; 32451654063

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

”添加启动项.reg

------------------------------------------------------------------------------  

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run]"AutoConfig"="E:\\\\AutoConfig\\\\AutoConfig.vbs"

------------------------------------------------------------------------------------------------------

另存为“   添加启动项.reg”

先看说明.txt

-------------------------------------------------------

###如有不明白的地方请联系我，联系           QQ：233002600     E-mail: digsea2000@163.com

-------------------------------------------------------

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

首先在 "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;   32451654063 

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

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

-----------------------------------------------------------------------------------------------

另存为“先看说明.txt”文件。把以上 四个文件 放在“  E:\\Autoconfig\\ " 文件夹 下面。

放在别处，你要修改，“AutoConfig.vbs”，“   添加启动项.reg”这两个文件。

按照以上路径呢，你就可以，只修改你的机器配置了！~