The following script will find any network printers on a device that match the specified addresses and create and assign a new port to that printer with the specified new address.

Of course you can re-size the array to your needs and adjust the loop to match the number of keys in the array.

This script must be run with administrative privileges.  

Dim strNewPrinterIP, strOldPrinterIP, strOldPortName, strComputer
Dim objPort, colPorts, objPrinter, colPrinters, objWMIService
Dim IPArray(1,1)

'---Old IPs at (0,x) new IPs at (1,x)
IPArray(0,0) = ""
IPArray(1,0) = ""
IPArray(0,1) = ""
IPArray(1,1) = ""

'---Loop through change for each Printer to change
for i=0 to 1
	strOldPrinterIP = IPArray(0,i)
	strNewPrinterIP = IPArray(1,i)
	strComputer = "."

	set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

	'WScript.Echo "Checking Ports"
	'---Search for existing port that matches oldPrinterIP in Win32TCPIPPrinterPort
	Set colPorts = objWMIService.ExecQuery ("Select * from Win32_TCPIPPrinterPort")
	For Each objPort in colPorts
		If objPort.HostAddress = strOldPrinterIP Then
			'WScript.Echo "Port Found: " & objPort.HostAddress
		   'strValue = "\\stici_sso01\BrotherH"
		   'call createport(strkey, strvalue, strtype)
		   strOldPortName = objPort.Name
		   objPort.Name = "IP_" & strNewPrinterIP
		   objPort.HostAddress = strNewPrinterIP
		End If

	'WScript.Echo "Checking Printers for updated ports."
	'---Replace old printer port with newly created port
	Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")
	For Each objPrinter in colPrinters
		If objPrinter.PortName = strOldPortName Then
			'WScript.Echo "Update Port: " & objPrinter.PortName
			objPrinter.PortName = "IP_" & strNewPrinterIP
		End If

	WScript.Echo "Complete!"