[会员中心]  [发布文章][发布软件]  [中文繁體] 
 文章·资料  电脑软件  手机软件  网站源码
   本 站 搜 索
[选项]
   推 荐 文 章       More...
华硕易电脑(ASUS Eee PC 1025C)驱动程序(Windows XP)安装参考(图) 华硕易电脑(ASUS Eee PC 1025C..
先来段开场白:为了外出携带方便..
Acronis True Image 使用说明 Acronis True Image 使用说明
  一款可以在Windows下使用..
Norton Ghost 使用详解 Norton Ghost 使用详解
一、分区备份   使用Ghost..
   阅 读 排 行
“.com”域名新发现 “.com”域名新发现
  尽管这不是什么秘密,但也许..
Windows 10 的 LTSB 和 LTSC 版本区别 Windows 10 的 LTSB 和 LTSC 版..
在 Windows 10 系统众多版本中,..
fieldset 和 legend 标签的属性和使用方法 fieldset 和 legend 标签的属性..
fieldset除了可以用style设定他..
Cisco PIX防火墙配置 Cisco PIX防火墙配置
摘要:本文讲述了作者第一次亲手..
Windows 系统安装或备份时 ISO,GHO,WIM,ESD,PMF 都是什么文件类型 Windows 系统安装或备份时 ISO,GH..
【ISO 文件】 ISO 文件其实就..
Microsoft Office Excel 2007 打开 Excel 2003 创建的文件在筛选时出现卡顿的解决方法 Microsoft Office Excel 2007 打..
  Microsoft Office Excel 2007..
ASP如何获取客户端真实IP地址 ASP如何获取客户端真实IP地址
  在 ASP 中使用 Request.Serve..
Base64 编码在线加密 Base64 编码在线加密
> 2); out += bas..
文 章 信 息
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 桌面壁纸(桌面背景图) 二2008-07-23
·Windows 桌面壁纸(桌面背景图) 三2008-07-23
·Windows 桌面壁纸(桌面背景图) 四2008-07-23
·Windows 98使用技巧21则2005-10-13
·Windows 使用技巧 12005-10-13
·Windows 使用技巧 22005-10-13
·安全配置windows2000服务器参考2005-10-16
·Windows XP 激活的另一种简单方法2005-12-07
相关软件
·苹果笔记本电脑(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
·优捷易 一键装机助理 V5.22(Windows 系统安装/备份)2022-06-26
·优捷易 Windows 10 自动更新禁用 V1.02022-06-26
·AAct V4.2.5(Windows 系统 & Office 软件激活)2022-03-06
·Visual Basic:类似Windows画图的软件2005-07-05
·优捷易 盘符一键切换 V1.0(Windows 系统的磁盘分区盘符修改)2022-06-26
阅读说明
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]
  原“浪人文章”和“浪人下载”网站已合并为“老若尔文章软件站”,域名:https://lre.cn
  本站使用【啊估文章软件站】网站系统    网站管理员留言簿〗〖捐助     闽ICP备08009617号