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

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

本站搜索

推荐文章 More...

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

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

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

文章阅读排行

文章信息

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