LastIPNumber =

InputBox("请输入计算机IP地址的最后三位","修改计算机名称及IP地址")

'获取最后三位IP地址

ComputerName = "A" & LastIPNumber

'添加计算机名前缀A

//修改IP地址

Set objWMIService =

GetObject("Winmgmts:root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select *

from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.0." &

LastIPNumber)

strSubnetMask = Array("255.255.255.0")

strGateway = Array("192.168.0.1")

strWINSServer = "192.168.0.2"

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters

errEnable =

objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways =

objNetAdapter.SetGateways(strGateway, strGatewaymetric)

errWINSServer =

objNetAdapter.SetWINSServer(strWINSServer,"")

If errEnable = 0 Then

WScript.Echo

"IP地址已经修改成功! 接下来准备修改计算机名称...."

Else

WScript.Echo

"IP地址修改失败.接下来准备修改计算机名称...."

End If

Next

//修改计算机名称

sNewName = ComputerName

Set oShell = CreateObject

("WSCript.shell")

sCCS = "HKLM\SYSTEM\CurrentControlSet"

sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters"

sCompNameRegPath = sCCS & "Control\ComputerName"

With oShell

.RegDelete sTcpipParamsRegPath &

"Hostname"

.RegDelete sTcpipParamsRegPath & "NV

Hostname"

.RegWrite sCompNameRegPath

& "ComputerName\ComputerName", sNewName

.RegWrite sCompNameRegPath &

"ActiveComputerName\ComputerName", sNewName

.RegWrite sTcpipParamsRegPath & "Hostname",

sNewName

.RegWrite sTcpipParamsRegPath & "NV

Hostname", sNewName

End With

Msgbox "计算机名称已经修改成功!"& vbcr

&"请重新启动计算机确认改动生效!"

以上脚本将可用于Windows

2000及以上版本的未加入域的计算机修改IP地址及计算机名称。如果你想使用这个脚本修改加入域的计算机，那么可以使用如下脚本：

NewComputerName = "" '新计算机名称

Set colComputers =

objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

err = ObjComputer.Rename(NewComputerName)

'由于不支持Rename方法，所以这个脚本无法在Windows 2000上运行

Wscript.Echo err

Next

以上脚本对于Windows

XP及以上操作系统版本的计算机(无论是否加入域)同样有效。