[会员中心]  [发布文章][发布软件]  [中文繁體] 
 文章·资料  电脑软件  手机软件  网站源码
   本 站 搜 索
[选项]
   推 荐 文 章       More...
华硕易电脑(ASUS Eee PC 1025C)驱动程序(Windows XP)安装参考(图) 华硕易电脑(ASUS Eee PC 1025C..
先来段开场白:为了外出携带方便..
Acronis True Image 使用说明 Acronis True Image 使用说明
  一款可以在Windows下使用..
Norton Ghost 使用详解 Norton Ghost 使用详解
一、分区备份   使用Ghost..
   阅 读 排 行
Windows 系统安装或备份时 ISO,GHO,WIM,ESD,PMF 都是什么文件类型 Windows 系统安装或备份时 ISO,GH..
【ISO 文件】 ISO 文件其实就..
使用“自动点击器”APP 在抖音直播间自动点赞 使用“自动点击器”APP 在抖音直..
看过抖音直播的朋友都知道,进入..
OPPO 手机的锁屏时间设置成横向显示 OPPO 手机的锁屏时间设置成横向..
第一次使用 OPPO 手机,桌面和锁..
电脑机箱(主板)前面板 USB 数据线的接线参考(图) 电脑机箱(主板)前面板 USB 数据..
  一、概述   因为每个 US..
抖音直播录屏的草稿保存位置 抖音直播录屏的草稿保存位置
抖音直播录屏,保存为“草稿”后,..
微信收到 flv 格式视频,如何播放? 微信收到 flv 格式视频,如何播放?
  微信上收到一个 flv 格式视频..
TrustAsia/DigiCert/Let s Encrypt 的免费 SSL 证书,多款网页浏览器都无法正常打开 TrustAsia/DigiCert/Let s Encryp..
云服务器安装了 Windows Server 2..
三星打印机(SCX-4521)提示“墨粉不足”设置 三星打印机(SCX-4521)提示“墨粉..
  三星打印机(SCX-4521)在添加..
文 章 信 息
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
·Windows 使用技巧 32005-10-13
·Windows下的EXE文件大揭密2005-05-14
相关软件
·苹果笔记本电脑(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 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
·《Microsoft Windows 脚本技术》2021-10-22
阅读说明
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]
  原“浪人文章”和“浪人下载”网站已合并为“老若尔文章软件站”,域名:https://lre.cn
  本站使用【啊估文章软件站】网站系统    网站管理员留言簿〗〖捐助     闽ICP备08009617号