查看單個文章
舊 2006-08-28, 06:21 PM   #12 (permalink)
psac
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

ghost後自動修改IP和電腦名的VBS腳本

現推出, 。VBS 版 Ghost 改機器名 IP位址 新版本。

AutoConfig.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 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:C69; 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; 3245164654063

因為,IP位址,是根據 MAC 所在行的 行號確定的。

如果,某個機器號不連續,請只寫機器號, 把 MAC 保持留空。

**************************************************************************************

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

另存為「先看說明.txt」文件。

把以上 四個文件 放在「 E:\Autoconfig\ " 資料夾 下面。

放在別出,你要修改,「AutoConfig.vbs」,「 新增啟動項.reg」

這兩個文件。按照以上路徑呢,你就可以,只修改你的機器配置了!~
__________________
http://bbsimg.qianlong.com/upload/01/08/29/68/1082968_1136014649812.gif
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3196 次