本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 10.. 先来段开场白：为了外出携带方便.. Acronis True Image 使用.. 　　一款可以在Windows下使用.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost..     文 章 阅 读 排 行 Microsoft SQL Server 2000.. 　　对于第一次安装 Microsoft .. 清华同方计算机系统本部技.. 一、声卡无声 　　声卡无声可.. Windows PE 系统安装微软.. 如果电脑没有光驱，或者没有把.. 腾讯：难以承受之痛的背后.. 亲爱的网吧管理员： 　　在此，.. 计算机世界：“狗日的”腾讯 计算机世界封面 　　“有什.. 百度框计算和 Google 云计.. 　　1、目的的不同：百度为的是.. 一个网吧网管谈论网络游戏.. 　　一说到“网管”两个字，大.. 批处理(.bat)更改网关代码 批处理(.bat)更改网关代码 @EC.. ADSL防御黑客攻击的十大办法 目前，使用ADSL的用户越来越多，.. 把 Administrator 帐号添.. 把 Administrator 帐号添加到..

文 章 信 息 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 内置28个实用工具 2006-05-17 ·Windows 98 下禁止删除文件、IE下载、IE另存为、文件打开方式等功能 2005-09-18 相关软件 ·牛学长 - Windows 数据恢复工具 V10.6.6 2025-12-14 ·Path Copy Copy V20.0（Windows 右键菜单复制文件/文件夹路径） 2023-08-26 ·FixWin 11.1（Windows 10/11 系统修复软件） 2023-08-17 ·SK Path V1 R2 Beta 1（Windows 7 系统激活） 2019-08-21 ·HWID GEN MkVI 0.52.01（Windows 10 系统激活） 2021-07-09 ·KMS Win10 V10.0（Windows 10 系统激活） 2020-10-13 〖文章阅读说明〗 ·本站大部分文章转载于网络，如有侵权请留言告知，本站即做删除处理。 ·本站法律法规类文章转载自[中国政府网(www.org.cn)]，相关法律法规如有修订，请浏览[中国政府网]网站。 ·本站转载的文章，不为其有效性，实效性，安全性，可用性等做保证。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。