[会员中心]  [发布文章][发布软件]  [中文繁體]

文章·资料  电脑软件  手机软件  网站源码 电脑·手机·网络学习话题娱乐故事 文化·历史国学典籍法律法规 操作系统网络办公·文件音频视频图形图像 硬件·驱动程序行业教学学习编程游戏 安卓苹果鸿蒙 其他 ASPASP.NETJSPPHP HTML·CSS·JavaScript

本 站 搜 索 文章 软件 [选项] 文章类别： [全部]电脑·手机·网络话题故事文化·历史娱乐学习法律·法规国学典籍 搜索选项： 文章编号 文章标题 文章作者 文章来源 相关链接 关键字词 文章标签 文章内容 软件类别： [全部]操作系统网络办公·文件音频视频图形图像行业编程教学学习游戏硬件·驱动程序安卓系统苹果系统鸿蒙系统其他系统HTML·CSS·JavaScriptASPJSPPHPASP.NET 搜索选项： 软件编号 软件名称 软件作者 软件来源 相关链接 关键字词 软件标签 软件简介

发 送 文 章 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> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 发送协议 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网   本站使用【啊估文章软件站】网站系统    〖网站管理员留言簿〗