'-----------------------------------------------------------------------------------
'Const Setmpnum="N"
Const Setname="A" '计算机名前缀
Const Setip="192.168.0.0" 'IP地址前缀,192.168.x.x
Const Setyan="255.255.255.0" '子网掩码
'Const setpy=144 'ip偏移多少
'-----------------------------------------------------------------------------------
'以下程序最好不要更改:
'<Main> 主程序开始
'提示输入计算机编号
Dim ID,Name
ID = inputbox("请输入此计算机的数字编号","QQ33742053")
if ID>0 and ID<10 then
Name="0" & ID
elseif ID>=10 and ID<255 then
Name=ID
elseif ID>=255 then
Msgbox "输入无效--脚本退出",48,"错误提示"
else
WScript.Quit
end if
'调用WMI修改IP,子网掩码,计算机名,IPX网络号
wmitoip(Name)
'将信息写入注册表
'voidWriteIPToReg(Name)
'关闭计算机
'voidShutDown()
'<Main End>主程序结束
'生成CDKEY
'Function getcskey(j)
'Dim fso,ts,count
'Set fso=CreateObject("Scripting.FileSystemObject")
'if fso.fileexists(".\cdkey.txt") then
'Set ts=fso.OpenTextFile(".\cdkey.txt",1)
'for count=1 to Name
'ts.skipline
'next
'getcskey=trim(ts.ReadLine)
'else
'Msgbox("读取CD-KEY错误-未找到CDkey.txt")
'end if
'end function
'调用WMI修改IP,子网掩码,计算机名,IPX网络号
sub wmitoip(ab)
strComputer="."
Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress=Array(setip & ab)
strSubnetMask=Array(setyan)
For Each objNetAdapter in colNetAdapters
errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
Next
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
ObjComputer.Rename(Setname & ab)
Next
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
Set objNetworkSettings=objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(ab)
end sub
'将信息写入注册表
'sub voidWriteIPToReg(ab)
'Dim WshShell
'生成CDKEY
'cskey=getcskey(Name)
'Set WshShell=WScript.CreateObject("WScript.Shell")
'美萍机号
'if Setmpnum="Y" then WshShell.RegWrite"HKLM\Software\Mpsoft\Smenu\computernum",ab,"REG_SZ"
'CD-KEY
'WshShell.RegWrite"HKCU\Software\Valve\CounterStrike\Settings\key",cskey,"REG_SZ"
'Set Wshell=Nothing
'End sub
Dim WSH,System,ComputerName,User,WorkGroup,Cskey
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
OPName=WSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
'CSKEY=Wsh.RegRead("HKCU\Software\Valve\CounterStrike\Settings\key")
ComputerName= + WshNetwork.ComputerName
User= + WshNetwork.UserName
Buf = "操作系统:" + OPName + vbCrLf
Buf = Buf + "计算机名:" + ComputerName + vbCrLf
Buf = Buf + "工作组名:" + WorkGroup + vbCrLf
Buf = Buf + "IP 地 址:" + IPAddress + vbCrLf
Buf = Buf + "使用网关:" + Gateway + vbCrLf
Buf = Buf + "子网掩码:" + Setyan + vbCrLf
Buf = Buf + "DNS域 名:" + NameServer + vbCrLf
'Buf = Buf + "CS-CDKey:" + CSKey + vbCrLf
Buf = Buf + "系统用户:" + User + vbcrLf
Buf = Buf + "" + vbCrLf
Buf = Buf + "" + vbCrLf
Buf = Buf + "提示:脚本程序设置完毕--请你仔细检查一遍" + vbCrLf
Buf = Buf + "" + vbCrLf
MSGBox Buf,0,"设置报告"
'关闭计算机
sub voidShutDown()
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run"rundll32.exe user.exe,ExitWindows",0,False
Set Wshell=Nothing
End sub
