50分求：批量修改局域网内所有电脑的IP

来源：百度知道 编辑：UC知道 时间：2024/05/17 08:17:47
批量修改局域网内所有电脑的IP 最烦改IP
我不懂VBS啊，能不能做个可运行的给我啊?我的油箱是floodsky@tom.com 谢谢先

使用VBS把 我做过一个以下是我做的:

'弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer=Msgbox("你是否要对你的机器的计算机名及IP进行改动?",vbYesNo," 机器名，IP，网关，掩码，DNS修改器")
If intAnswer=vbYes Then
set objShell=wscript.createObject("wscript.shell")
Set WshNetwork = CreateObject("WScript.Network")
computerName=InputBox("原主机名为: "&WshNetwork.ComputerName&" "&vbCr&vbCr&"默认按确定继续"&vbCr&vbCr&"计算机名:","计算机IP地址修改工具-果果",""&WshNetwork.ComputerName&"")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPCon