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") <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />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 E-mail: [email]digsea2000@[/email] ------------------------------------------------------- ************************************************************************************** ###本程序的基本思路是: 首先在 "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” 这两个文件。按照以上路径呢,你就可以,只修改你的机器配置了!~
1500字范文,内容丰富有趣,写作好帮手!