Hello, I Have the following script to change the ip address to multiple
computers

strComputer = "."
strComputer1 = "computer2"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End I

"gustavo" <gustavo@discussions.microsoft.com> wrote in message
news:ACF29C7E-3227-486C-BAE3-9A84B074C555@microsoft.com...
> Hello, I Have the following script to change the ip address to multiple
> computers
>
> strComputer = "."
> strComputer1 = "computer2"
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
>
> Set colNetAdapters = objWMIService.ExecQuery _
> ("Select * from Win32_NetworkAdapterConfiguration where
> IPEnabled=TRUE")
>
> strIPAddress = Array("192.168.1.141")
> strSubnetMask = Array("255.255.255.0")
> strGateway = Array("192.168.1.100")
> strGatewayMetric = Array(1)
>
> For Each objNetAdapter in colNetAdapters
> errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
> errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
> If errEnable = 0 Then
> WScript.Echo "The IP address has been changed."
> Else
> WScript.Echo "The IP address could not be changed."
> End I


I assume that, in the process of truncating your script, the usenet goblins
stripped your question off the end. Please re-post.

/Al