根据mac来配置ip的vbs脚本
vbs 脚本 setnicip.vbs 内容如下：
'Option Explicit
Const ForReading= 1,ForWriting = 2,ForAppending = 8
Dim fso,file,msg
Dim WshShell,Path_init_file
Dim routmac,routip,routmask,routgw
Dim rinmac,rinip,rinmask,ringw
Dim k,m
Set WshShell=WScript.CreateObject( "WScript.Shell")
Path_init_file=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))& "nicinfo.ini"
'msgbox(path_init_file)
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(Path_init_file,ForReading)
While (Not file.AtEndOfLine)
msg=file.ReadLine
msg=trim(msg)
if instr(msg,"outmac:")>0 then
k = InStr(msg, ":")
m = Len(msg)
routmac = Right(msg, m - k)
'msgbox(routmac)
else
end if
if instr(msg,"outip:")>0 then
k = InStr(msg, ":")
m = Len(msg)
routip = Right(msg, m - k)
'msgbox(routip)
else
end if
if instr(msg,"outmask:")>0 then
k = InStr(msg, ":")
m = Len(msg)
routmask = Right(msg, m - k)
'msgbox(routmask)
else
end if
if instr(msg,"outgw:")>0 then
k = InStr(msg, ":")
m = Len(msg)
routgw = Right(msg, m - k)
'msgbox(routgw)
else
end if
'+++++++++++++++++++++++++++++++++++++++++++++
if instr(msg,"inmac:")>0 then
k = InStr(msg, ":")
m = Len(msg)
rinmac = Right(msg, m - k)
'msgbox(rinmac)
else
end if
if instr(msg,"inip:")>0 then
k = InStr(msg, ":")
m = Len(msg)
rinip = Right(msg, m - k)
'msgbox(rinip)
else
end if
if instr(msg,"inmask:")>0 then
k = InStr(msg, ":")
m = Len(msg)
rinmask = Right(msg, m - k)
'msgbox(rinmask)
else
end if
if instr(msg,"ingw:")>0 then
k = InStr(msg, ":")
m = Len(msg)
ringw = Right(msg, m - k)
if ringw="none" then
ringw=""
else
end if
'msgbox(ringw)
else
end if
Wend
file.Close
Set file=Nothing
Set fso=Nothing
'Dim strComputer,objWMIService,colNetAdapters,strIPAddress,strSubnetMask,strGateway,errEnable,errGateways,objNetAdapter
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where (MACAddress ='"+ routmac+"' )")
strIPAddress = Array(routip)
strSubnetMask = Array(routmask)
strGateway = Array(routgw)
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
next
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++=
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where (MACAddress = '"+rinmac+"')")
strIPAddress = Array(rinip)
strSubnetMask = Array(rinmask)
strGateway = Array(ringw)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
next
在同一个目录下，建立一个文件，名叫nicinfo.ini,内容如下：
outmac:00:15:AF:C8:5D:E3
outip:192.168.56.2
outmask:255.255.255.0
outgw:
inmac:00:AC:D9:00:8A:16
inip:172.16.254.6
inmask:255.255.255.0
ingw:none
根据自己的需要，修改配置文件内容，然后运行vbs脚本，就可以修改ip了。