杰网资源

利用vbs自动修改ip的代码
脚本专栏 2024/5/9 佚名
3 2
杰网资源 Design By www.escxy.com
单位机房的系统需要重新安装，一共近300台设备，使用ghost网络克隆后，客户机重新设置ip是个麻烦的事情。我们使用的教学管理软件要求客户机必须有固定ip，单位5个机房如下（DNS：61.134.1.4，掩码为：255.255.255.0）：

机房

起始ip

ip终止ip 

网关 

机器名 

工作组 

 1号  192.168.1.1 100   254   No_100～No_160  S01  2号  192.168.1.101  200  254   No_200～No_260  S02  3号  192.168.3.1  80  254  No_300～No_360  S03  4号  192.168.3.81  160  254  No_400～No_460  S04  5号  192.168.3.161  240  254   No_500～No_560  S05
以下为vbs源码：
1.xp系统（测试通过，用户为Administrator，文件为E:\fxp.vbs，启动组建立快捷方式fxp.lnk以便开机后自动运行一次）
复制代码 代码如下:
'/////主程序 
dim msginf,machname'定义变量:对话框，机器名 
msginf=msgbox("该程序只能执行1次，请在XP系统硬件安装完毕后执行！" &chr(13) & "是否继续?",65,"修改机器网络配置") '信息提示 
if msginf=1 then ' 如果按确定，则 

machname=inputon() ' 用函数inputon()分析 

if machname<>"quit" then ' 如果返回值不等于"quit"，则 
wmitoip(machname) ' 运行函数wmitoip()设置机器信息 
mreboot()'重启机器 
end if 
end if 

'///重启机器 
sub mreboot() 
dim fso,f1,f2 
Set fso = CreateObject("Scripting.FileSystemObject") 

'删除启动组 
if fso.fileexists("C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\fxp.lnk") then 
set f1=fso.getfile("C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\fxp.lnk") 
f1.delete 
end if 

'删除vbs文件 
if fso.fileexists("e:\fxp.vbs") then 
set f2=fso.getfile("e:\fxp.vbs") 
f2.delete 
end if 

Set WshShell = Wscript.CreateObject("Wscript.Shell") 
'WshShell.Run ("shutdown.exe -r -t 5") ' 重启 

end sub 

'///生成计算机名 
function inputon() ' 函数inputon() 
dim t ' 变量 
while true ' 循环直到退出函数 
t=inputbox("按一下规则输入：" & chr(13) & chr(13) & "第1位代表机房号" & chr(13) & "第2、3位代表机器号" & chr(13) & "教师机用00代表" & chr(13) & "如：123代表1号机房23号机" & chr(13) & "请确保输入正确！！","请输入3位机器标识！","") ' 输入机算机名，默认值为空 
if t="" then ' 如果t等于空（按了取消键），则 
inputon="quit" ' 返回值为"quit" 
exit function ' 退出程序 
end if 
if len(t)=3 then ' 计算机号的长度为3位 
if Cint(t)>=100 and Cint(t)<580 then ' 验证 
inputon=t ' 返回需要的计算机名 
exit function 
end if 
end if 
wend 
end function 


'///修改机器ip、掩码、网关、工作组、机器名 
sub wmitoip(t) 
strComputer="." 
strmask="255.255.255.0" 
Dim lt,rt' 变量 
dim ipv,gateway,lan 'ip，网关，工作组 
lt=cint(left(t,1))'机号左1位数字值 
rt=cint(right(t,2)) ' 机号右两位数字值 

if lt=1 or lt=2 then'判断网关 
gateway="192.168.1.254" 
else 
gateway="192.168.3.254" 
end if 

if lt=1 then '1号机房 
lan="S01" 
ipv="192.168.1." 
if rt=0 then '教师机 
ipv=ipv+"100" 
else'学生机 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=2 then '2号机房 
lan="S02" 
ipv="192.168.1." 
if rt=0 then '教师机 
ipv=ipv+"200" 
else'学生机 
rt=rt+100 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=3 then '3号机房 
lan="S03" 
ipv="192.168.3." 
if rt=0 then '教师机 
ipv=ipv+"80" 
else'学生机 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=4 then '4号机房 
lan="S04" 
ipv="192.168.3." 
if rt=0 then '教师机 
ipv=ipv+"160" 
else'学生机 
rt=rt+80 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=5 then '5号机房 
lan="S05" 
ipv="192.168.3." 
if rt=0 then '教师机 
ipv=ipv+"240" 
else'学生机 
rt=rt+160 
ipv=ipv+Cstr(rt) 
end if 
end if 

Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 
strIPAddress=Array(ipv) 
strSubnetMask=Array(strmask) 
strGateway = Array(gateway) '修改网关 
'strGatewayMetric = Array(1) '跃点数 
strDNS=Array("61.134.1.4") 

For Each objNetAdapter in colNetAdapters  
errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)'ip，掩码 
errGateways = objNetAdapter.SetGateways(strGateway) '网关 
errDns=objNetAdapter.SetDNSServerSearchOrder(strDNS)'dns 
Next 

Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colComputers = objWMIService.ExecQuery _ 
    ("Select * from Win32_ComputerSystem") 
For Each objComputer in colComputers 
    err = ObjComputer.Rename("No_" & t)'机器名 
    ReturnValue = objComputer.JoinDomainOrWorkGroup("S0" & left(t,1))'工作组   
Next 

end sub 



2.98系统

98系统可以生成ip.reg注册表文件，导入后就可以了，源码如下（主体思路，这次没有98系统，所以未完成，可参考xp系统的改进）：


复制代码 代码如下:
'/////主程序 
dim msginf,machname'定义变量:对话框，机器名 
msginf=msgbox("生成注册表文件，是否继续?",65,"getreg") '信息提示 
if msginf=1 then ' 如果按确定，则 

machname=inputon() ' 用函数inputon()分析 

if machname<>"quit" then ' 如果返回值不等于"quit"，则 
setreg(machname) ' 运行函数setreg()生成注册表ip.reg 
end if 
end if 

'///生成计算机名 
function inputon() ' 函数inputon() 
dim t ' 变量 
while true ' 循环直到退出函数 
t=inputbox("按一下规则输入：" & chr(13) & chr(13) & "第1位代表机房号" & chr(13) & "第2、3位代表机器号" & chr(13) & "教师机用00代表" & chr(13) & "如：123代表1号机房23号机" & chr(13) & "请确保输入正确！！","请输入3位机器标识！","") ' 输入机算机名，默认值为空 
if t="" then ' 如果t等于空（按了取消键），则 
inputon="quit" ' 返回值为"quit" 
exit function ' 退出程序 
end if 
if len(t)=3 then ' 计算机号的长度为3位 
if Cint(t)>=100 and Cint(t)<580 then ' 验证 
inputon=t ' 返回需要的计算机名 
exit function 
end if 
end if 
wend 
end function 

'///生成注册文件 
sub setreg(t) ' 生成注册表,t为机器号 
Dim fso, f1,f2,lt,rt' 变量 
dim ipv,gateway,lan 'ip，网关，工作组 
lt=cint(left(t,1))'机号左1位数字值 
rt=cint(right(t,2)) ' 机号右两位数字值 

if lt=1 or lt=2 then'判断网关 
gateway="192.168.1.254" 
else 
gateway="192.168.3.254" 
end if 

if lt=1 then '1号机房 
lan="S01" 
ipv="192.168.1." 
if rt=0 then '教师机 
ipv=ipv+"100" 
else'学生机 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=2 then '2号机房 
lan="S02" 
ipv="192.168.1." 
if rt=0 then '教师机 
ipv=ipv+"200" 
else'学生机 
rt=rt+100 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=3 then '3号机房 
lan="S03" 
ipv="192.168.3." 
if rt=0 then '教师机 
ipv=ipv+"80" 
else'学生机 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=4 then '4号机房 
lan="S04" 
ipv="192.168.3." 
if rt=0 then '教师机 
ipv=ipv+"160" 
else'学生机 
rt=rt+80 
ipv=ipv+Cstr(rt) 
end if 
end if 

if lt=5 then '5号机房 
lan="S05" 
ipv="192.168.3." 
if rt=0 then '教师机 
ipv=ipv+"240" 
else'学生机 
rt=rt+160 
ipv=ipv+Cstr(rt) 
end if 
end if 


Set fso = CreateObject("Scripting.FileSystemObject") 
if fso.fileexists("e:\ip.reg") then 
set f2=fso.getfile("e:\ip.reg") 
f2.delete 
end if '如果存在ip.reg，先删了 

set f1 = fso.CreateTextFile("e:\ip.reg", True) ' 建立文件ip.cfg 
'f1.WriteLine("REGEDIT4") ' 以下为生成注册表 
f1.WriteLine("Windows Registry Editor Version 5.00") 
f1.WriteBlankLines(1) 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName]") 
f1.WriteLine(chr(34) & "ComputerName" & chr(34) & "=" & chr(34) & t & chr(34)) ' 计算机名 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]") 
f1.WriteLine(chr(34) & "IPAddress" & chr(34) & "=" & chr(34) & ipv & chr(34)) ' IP 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]") 
f1.WriteLine(chr(34) & "DefaultGateway" & chr(34) & "=" & chr(34) & gateway & chr(34)) ' 网关 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]") 
f1.WriteLine(chr(34) & "IPMask" & chr(34) & "=" & chr(34) & "255.255.255.0" & chr(34)) ' 子网掩码 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]") 
f1.WriteLine(chr(34) & "Comment" & chr(34) & "=" & chr(34) & t & chr(34)) ' 计算机说明 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]") 
f1.WriteLine(chr(34) & "ComputerName" & chr(34) & "=" & chr(34) & t & chr(34)) ' 计算机名 
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]") 
f1.Writeline(chr(34) & "Workgroup" & chr(34) & "=" & chr(34) & lan & chr(34)) ' 工作组 
end sub
标签：
利用vbs自动修改ip的代码
杰网资源 Design By www.escxy.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
杰网资源 Design By www.escxy.com
www.escxy.com 杰网资源
143,552互联网资源
19,717高清电影
44,608技术教程
44,608站长资源

P70系列延期，华为新旗舰将在下月发布

3月20日消息，近期博主@数码闲聊站 透露，原定三月份发布的华为新旗舰P70系列延期发布，预计4月份上市。

而博主@定焦数码 爆料，华为的P70系列在定位上已经超过了Mate60，成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢？

根据目前爆料的消息来看，华为P70系列将推出三个版本，其中P70和P70 Pro采用了三角形的摄像头模组设计，而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智，但辨识度绝对拉满。

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接
杰网资源 Design By www.escxy.com
Copyright © 2006~2021 杰网资源   Design by www.escxy.com  杰晶网络提供技术支持