本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 1025C).. 先来段开场白：为了外出携带方便，到淘.. Acronis True Image 使用说明 　　一款可以在Windows下使用全部功.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost进行系..     文 章 阅 读 排 行 Microsoft SQL Server 2000 Perso.. 　　对于第一次安装 Microsoft SQL Se.. MD5 算法的ASP实现代码 　　MD5的全称是Message-Digest Algor.. BIOS 设置不能修改等问答5则 　　问：电脑配置为：微星865PE主板、P4.. Windows 系统修改默认文件类型图标 Windows 系统文件类型图标，通常由默.. 夸克网盘新用户注册如何获得1T空间 夸克网盘，新用户注册如何获得1T空间？ .. VMware Workstation：新添加的硬.. VMware Workstation 新添加的硬盘不.. CMD：Windows 系统 CMD 命令添加.. 查看全部用户账号： net user 查.. Microsoft Internet Information .. 　　简称：IIS，版本：5.0，运行环境：Wind.. 关于使用 CSS 来控制 table 标签.. 　　在 HTML 语言中，table 标签的 cel.. 使XHTML Strict 支持 target 标签 XHTML 1.0 Strict 之后就不支持 targe..

文 章 信 息 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 激活的另一种简单方法 2005-12-07 ·可直接在运行中调出的 Windows 程序命令 2006-05-12 相关软件 ·牛学长 - 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