本 站 搜 索

发 送 文 章 Windows 2000\XP\2003 修改计算机名及IP的脚本代码 〖评论()〗〖留言〗〖收藏〗 收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 增加自动修改IPX内部网络号功能！ 使用方法：将代码复制到记事本，另存为“任意名.vbs”刻盘前，请在“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce”中加载此脚本（其意为只运行1次） 1 全能型执行vbs后会有两个输入框，第一个输入IP如“192.168.0.200”第二个输入计算机名如“a200”回车即可。 如需要修改自网掩码请自行修改“strSubnetMask = Array("255.255.255.0")”[quote]Dim IP,NameIp=Inputbox ("请输入IP")Name=Inputbox ("请输入计算机名")Ipx=Inputbox ("请输入内部网络号")strComputer = "."Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")strIPAddress = Array(IP)strSubnetMask = Array("255.255.255.0")For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)NextSet objWMIService = GetObject("winmgmts:" _ "{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem")For Each objComputer in colComputersObjComputer.Rename(Name)NextSet objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")objNetworkSettings.SetIPXVirtualNetworkNumber(IPX) [/quote]2 定制型（懒汉型） 执行脚本后，会提示一个输入框，输入IP的最后一位。比如你想把本机IP设置成192.168.0.88，输入最后一位88即可，其标识名也自动修改为a88标识前缀请自行修改“ObjComputer.Rename("a" Num)”[quote]Dim NumNum=Inputbox ("请输入IP尾数")If Num 10 Then Num = "0" NumEnd IfstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")strIPAddress = Array("192.168.0."Num)strSubnetMask = Array("255.255.255.0")For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)NextSet objWMIService = GetObject("winmgmts:" _ "{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem")For Each objComputer in colComputersObjComputer.Rename("a" Num)NextSet objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")objNetworkSettings.SetIPXVirtualNetworkNumber(Num)[/quote]<br><br>文章网址：<a href="https://dangbai.cn/article.asp?ID=10000713" target="_blank">https://dangbai.cn/article.asp?ID=10000713</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 〖文章发送协议〗 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。