Windows 2000\XP\2003 修改计算机名及IP的脚本代码_

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

本站搜索

推荐文章 More...

	华硕易电脑(ASUS Eee PC 10.. 先来段开场白：为了外出携带方便，..

	Acronis True Image 使用.. 　　一款可以在Windows下使用全..

	Norton Ghost 使用详解一、分区备份　　使用Ghost进..

文章阅读排行

	“啊估文章软件站”网站系.. 一、调试测试网站系统时，如何设..

	Norton Ghost 使用详解一、分区备份　　使用Ghost进..

	电脑显示器使用 HDMI 数据.. 如果电脑显示器使用 HDMI 数据线..

	ASP：Persits ASPMail 发送.. 【发送邮件测试代码下载】压..

	CMD：列出当前文件夹的全部.. 电脑硬盘里，某个文件夹里的文件..

	hao123 联盟成立脱离百度.. 　　百度联盟7月4日发布公告，自20..

文章信息

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,Name
Ip=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)
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(Name)
Next
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(IPX)

[/quote]
2 定制型（懒汉型）

执行脚本后，会提示一个输入框，输入IP的最后一位。比如你想把本机IP设置成192.168.0.88，输入最后一位88即可，其标识名也自动修改为a88
标识前缀请自行修改“ObjComputer.Rename("a" &Num)”
[quote]
Dim Num
Num=Inputbox ("请输入IP尾数")
If Num < 10 Then
Num = "0" & Num
End If
strComputer = "."
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)
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("a" &Num)
Next
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(Num)
[/quote]

文章作者：未知更新日期：2005-12-10

〖文章浏览：〗〖发送文章〗〖打印文章〗

相关文章	·五种设置提高 Windows XP系统运行速度 2005-05-07 ·Windows XP 安装界面修改完整篇 2006-10-30 ·Windows 注册表二 2006-05-14 ·如何提高windows系统的启动速度 2006-05-14 ·仿 Windows XP 风格的网页浏览器右键菜单 2006-03-24 ·Windows2000\XP 服务列表及说明 2005-12-15

〖文章阅读说明〗
·本站大部分文章转载于网络，如有侵权请留言告知，本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)]，相关法律法规如有修订，请浏览[中国政府网]网站。
·本站转载的文章，不为其有效性，实效性，安全性，可用性等做保证。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

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

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