[会员中心]  [发布文章][发布软件]  [中文繁體] 
 文章·资料  电脑软件  手机软件  网站源码
   本 站 搜 索
[选项]
   推 荐 文 章       More...
华硕易电脑(ASUS Eee PC 1025C)驱动程序(Windows XP)安装参考(图) 华硕易电脑(ASUS Eee PC 1025C..
先来段开场白:为了外出携带方便..
Acronis True Image 使用说明 Acronis True Image 使用说明
  一款可以在Windows下使用..
Norton Ghost 使用详解 Norton Ghost 使用详解
一、分区备份   使用Ghost..
   阅 读 排 行
在小蚁摄像机APP添加一代小蚁摄像机提示需要登录小米账号 在小蚁摄像机APP添加一代小蚁摄..
在小蚁摄像机APP添加一代小蚁摄..
抖音直播录屏的草稿保存位置 抖音直播录屏的草稿保存位置
抖音直播录屏,保存为“草稿”后,..
OPPO 手机的锁屏时间设置成横向显示 OPPO 手机的锁屏时间设置成横向..
第一次使用 OPPO 手机,桌面和锁..
腾讯QQ 20周年,QQ个人轨迹,查看QQ的注册日期 腾讯QQ 20周年,QQ个人轨迹,查看Q..
很多八〇后,九〇后,使用QQ的时间..
CSS:使用图片作为 input 按钮背景图,把多张图片合成一张图片分别调用 CSS:使用图片作为 input 按钮背..
使用图片作为 input 按钮背景图,..
王码五笔字型字根表、字根助记歌(第三代,新世纪版) 王码五笔字型字根表、字根助记歌..
  为保持技术的连续性,第三代..
删除微信登录过的设备记录 删除微信登录过的设备记录
微信在一个设备登录后,之后再使..
Windows 系统安装或备份时 ISO,GHO,WIM,ESD,PMF 都是什么文件类型 Windows 系统安装或备份时 ISO,GH..
【ISO 文件】 ISO 文件其实就..
文 章 信 息
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 98操作系统极品优化实录2005-05-07
·Windows下的EXE文件大揭密2005-05-14
·Windows 2003安全最佳实践经验2006-05-13
·Windows 注册表 二2006-05-14
·如何提高windows系统的启动速度2006-05-14
·Windows 2003 操作系统介绍2006-11-24
·Windows 98 注册表相关设置2005-06-21
·Windows 2000/XP 自启动程序的十大藏身之所2005-06-21
·Windows 98 下禁止删除文件、IE下载、IE另存为、文件打开方式等功能2005-09-18
相关软件
·苹果笔记本电脑(Apple MacBook Pro V9.3)驱动程序 for Windows 7 x642014-02-17
·华硕笔记本电脑(ASUS X550C)驱动程序 for Windows 7 x642014-02-17
·IT天空 Easy Sysprep V5.19.802.282(Windows 操作系统封装部署辅助工具)2020-04-16
·Windows 7 优化大师 V1.702011-09-06
·微软内存检测工具(Windows Memory Diagnostic) 20032011-08-03
·Windows 系统 & Office 软件激活程序2022-03-06
·Visual Basic:类似Windows画图的软件2005-07-05
·软媒魔方 V6.25(Windows 系统设置与优化软件)2021-11-05
·Yamicsoft Windows 8 Manager V2.2.8(Windows 8 系统设置与优化软件)2021-10-16
·Yamicsoft Windows 10 Manager V3.5.6(Windows 10 系统设置与优化软件)2021-10-16
阅读说明
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]
  原“浪人文章”和“浪人下载”网站已合并为“老若尔文章软件站”,域名:https://lre.cn
  本站使用【啊估文章软件站】网站系统    网站管理员留言簿〗〖捐助     闽ICP备08009617号