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
----------------------------------------------------------------------------------------
l
另存为
“
AutoConfig.vbs
”
文件。
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
”
添加启动项
.reg
------------------------------------------------------------------------------
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"AutoConfig"="E:\\AutoConfig\\AutoConfig.vbs"
------------------------------------------------------------------------------------------------------
另存为“
添加启动项
.reg
”
先看说明
.txt
--------------------------------------------------------------------------------------------
--------------------------------------------------------
###
如有不明白的地方请联系我,
联系
QQ
:
233002600
-------------------------------------------------------
**************************************************************************************
###
本程序的基本思路是
:
首先在
"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
保持留空。
**************************************************************************************
-----------------------------------------------------------------------------------------------
另存为“先看说明
.txt
”文件。
把以上
四个文件
放在“
E:\Autoconfig\ "
文件夹
下面。
放在别出,你要修改,“
AutoConfig.vbs
”,“
添加启动项
.reg
”
这两个文件。按照以上路径呢,你就可以,只修改你的机器配置了!
~