Windows 2000\XP\2003 修改计算机名及IP的脚本代码_

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]

文章作者：未知