Ghost后自动修改IP和计算机名的VBS脚本
Ghost后自动修改IP和计算机名 的VBS脚本
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 objNicConfigIncolNicConfigs Set objNic = objWMIService.Get _
(\"Win32_NetworkAdapter.DeviceID=\" &objNicConfig.Index) '本机器的网卡物理地址写入变量: strMacAddress strMacAddress = objNic.MACAddress Next '读取配置文件
dimfiles,file,strReadLine ,RowNumber ConstForReading = 1
set files=CreateObject(\"Scripting.FileSystemObject\") iffiles.fileexists(\"E:\\AutoConfig\\config.cfg\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 strSubnetMask)
errGateways strGatewaymetric)
Next '修改机器名
Set WshShell = CreateObject(\"Wscript.Shell\") Set Fso = CreateObject(\"SCripting.FileSystemObject\")
=
objNetAdapter.SetGateways(strGateway,
=
objNetAdapter.EnableStatic(strIPAddress,
WshShell.RegWrite
\"HKLM\\SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName\\ComputerName\ComputerConfig(0) ,\"REG_SZ\"
WshShell.RegWrite
\"HKLM\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\NV Hostname\
WshShell.RegWrite
\"HKLM\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\Hostname\
'修改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\\ ComputerConfig(3),\"REG_SZ\"
WshShell.RegWrite
\"HKU\\S-1-5-21-1085031214-220523388-839522115-500\\Software\\Valve\\CounterStrike\\Settings\\ ComputerConfig(3),\"REG_SZ\"
WshShell.RegWrite
\"HKU\\S-1-5-21-16145754-1417001333-839522115-500\\Software\\Valve\\CounterStrike\\Settings ComputerConfig(3),\"REG_SZ\"
'清除启动项
WshShell.RegDelete\"HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\AutoConfig\" Set Wshell=Nothing
strComputer = \".\"
\\key\Key\Key\
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; 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@http://www.doczj.com/doc/7b18254930.html,
-------------------------------------------------------
******************************************************************************* *******
###本程序的基本思路是:
首先在\"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” 这两个文件。按照以上路径呢，你就可以，只修改你的机器配置了！~
