本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 1025C.. 先来段开场白：为了外出携带方便，到淘.. Acronis True Image 使用说明 　　一款可以在Windows下使用全部功.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost进行系..     文 章 阅 读 排 行 手机视频监控 APP 关闭广告：萤.. 一、萤石云视频：我的，设置，隐私设置，.. 常见数据库介绍与对比（SQL Serv.. 常见数据库的对比分析，涵盖你提到的 A.. Windows 系统修改默认文件类型.. Windows 系统文件类型图标，通常由默.. Windows 系统安装或备份时 ISO，.. 【ISO 文件】 ISO 文件其实就是光.. Microsoft SQL Server 2000 Per.. 　　对于第一次安装 Microsoft SQL Se.. 颜色与英文单词对照 颜色与英文单词对照 red green bl.. PakePlus 构建 APP 需要 Github.. PakePlus 是一个基于 Rust Tauri 的.. 主页真的越Google、越简洁越好吗 　　如果你在11月10日早上打开雅虎中.. 网络工程师必懂的专业术语 路由器问题：1、什么时候使用多路由协.. 为啥现在的电脑都不能安装 Wind.. 说实话，这几年如果你尝试在新电脑..

文 章 信 息 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 XP 激活的另一种简单方法 2005-12-07 相关软件 ·牛学长 - 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