[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

  1. On Error Resume Next
  2. '取得本机器的网卡物理地址: MacAddress
  3. strComputer = "."
  4. Set objWMIService = GetObject("winmgmts:" _
  5. & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  6. Set colNicConfigs = objWMIService.ExecQuery _
  7. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
  8. For Each objNicConfig In colNicConfigs
  9. Set objNic = objWMIService.Get _
  10. ("Win32_NetworkAdapter.DeviceID=" & objNicConfig.Index)
  11. '本机器的网卡物理地址写入变量 : strMacAddress
  12. strMacAddress = objNic.MACAddress
  13. Next
  14. '读取配置文件
  15. dim files,file,strReadLine ,RowNumber
  16. Const ForReading = 1
  17. set files=CreateObject("Scripting.FileSystemObject")
  18. if files.fileexists("E:\AutoConfig\config.cfg", ForReading) then
  19. set file=files.opentextfile("E:\AutoConfig\config.cfg")
  20. else
  21. msgbox("请在程序目录下放置MAC列表文件(文件名为:config.cfg)")
  22. end if
  23. RowNumber = 0
  24. Do While file.AtEndOfStream  True
  25. strReadLine = file.ReadLine
  26. RowNumber = RowNumber + 1
  27. If InStr(strReadLine,strMacAddress)  0 Then
  28. ComputerConfig = Split(strReadLine , ";")
  29. Exit Do
  30. End If
  31. Loop
  32. '修改IP地址
  33. strComputer = "."
  34. SubnetIPAddress = "192.168.0."
  35. LocalIPAddress = SubnetIPAddress & RowNumber
  36. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  37. Set colNetAdapters = objWMIService.ExecQuery _
  38. ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  39. strIPAddress = Array(LocalIPAddress)
  40. strSubnetMask = Array("255.255.255.0")
  41. strGateway = Array("192.168.0.1")
  42. strGatewayMetric = Array(1)
  43. For Each objNetAdapter in colNetAdapters
  44. errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
  45. errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
  46. Next
  47. '修改机器名
  48. Set WshShell = CreateObject("Wscript.Shell")
  49. Set Fso = CreateObject("SCripting.FileSystemObject")
  50. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", ComputerConfig(0) ,"REG_SZ"
  51. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", ComputerConfig(0) ,"REG_SZ"
  52. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", ComputerConfig(0) ,"REG_SZ"
  53. '修改CS-CDKEY
  54. WshShell.RegWrite "HKCU\Software\Valve\CounterStrike\Settings\Key", ComputerConfig(3),"REG_SZ"
  55. WshShell.RegWrite "HKU\S-1-5-21-839522115-507921405-2146800195-500\Software\Valve\CounterStrike\Settings\Key", ComputerConfig(3),"REG_SZ"
  56. WshShell.RegWrite "HKU\S-1-5-21-1085031214-220523388-839522115-500\Software\Valve\CounterStrike\Settings\Key", ComputerConfig(3),"REG_SZ"
  57. WshShell.RegWrite "HKU\S-1-5-21-1614895754-1417001333-839522115-500\Software\Valve\CounterStrike\Settings\key", ComputerConfig(3),"REG_SZ"
  58. '清除启动项
  59. WshShell.RegDelete"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\AutoConfig"
  60. Set Wshell=Nothing
  61. strComputer = "."
  62. Set objWMIService = GetObject("winmgmts:" _
  63. & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
  64. Set colOperatingSystems = objWMIService.ExecQuery _
  65. ("Select * from Win32_OperatingSystem")
  66. For Each objOperatingSystem in colOperatingSystems
  67. ObjOperatingSystem.Reboot()
  68. Next
  69. On Error GoTo 0
复制代码

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

另存为 “ AutoConfig.vbs” 文件。

config.cfg

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

  1. [ComputerName] [MacAddress] [IPAddress] [CS:CDKey]
  2. Nh002
  3. Nh003
  4. Nh004
  5. Nh005; 00:11:5B:CF:C8:12; 192.168.0.5; 3245164654063
  6. Nh006; 00:11:5B:BD:2F:E4; 192.168.0.6; 3385636230783
  7. Nh007; 00:11:5B:B3:F0:86; 192.168.0.7; 2030698167302
  8. Nh008; 00:11:5B:C8:C8:E1; 192.168.0.8; 7149496192146
  9. Nh009; 00:11:5B:CF:C6:D9; 192.168.0.9; 6823878707810
复制代码


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

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

添加启动项.reg

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

  1. Windows Registry Editor Version 5.00
  2. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
  3. "AutoConfig"="E:\\AutoConfig\\AutoConfig.vbs"
复制代码


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

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

先看说明.txt

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

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

这两个文件。按照以上路径呢,你就可以,只修改你的机器配置了!~

http://xj520jm.blog.51cto.com/231261/46710

返回列表