[THIN] Re: OT:change IP address remotely
- From: "Anthony Green" <agreen@xxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Wed, 12 Apr 2006 14:29:16 +0100
This might work for ya
'DEFINE NEW IP, NETMASK, GATEWAY AND
<http://www.codecomments.com/archive299-2004-3-163655.html#> DNS IF REQUIRED
strIPAddress = Array(ipList(w))
strSubnetMask = Array("255.255.255.0")
strGateway = Array("123.456.111.1")
strGatewayMetric = Array(1)
strDNSservers =
<http://www.codecomments.com/archive299-2004-3-163655.html#> Array
("157.23.23.5","111.222.333.444")
On Error Resume Next
'Change Gateway and Metric
errGateways = objItem.SetGateways(strGateway, strGatewaymetric)
'Change IP Address and set NetMask
(script hangs here--> ) errEnable = objItem.EnableStatic(strIPAddress,
strSubnetMask)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
_____
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf
Of Rota, Brian
Sent: 12 April 2006 13:36
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: OT:change IP address remotely
I have used this in the past.
http://www.petri.co.il/configure_tcp_ip_from_cmd.htm
Brian Rota,
MTM Technologies, Inc. (formerly NEXL, Inc.)
Sr. Network Engineer,MCSE,CCEA
Tel. 978.538.3000
Cell 978.886.8127
_____
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf
Of Minero, Hector B CIV K55
Sent: Wednesday, April 12, 2006 6:49 AM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] OT:change IP address remotely
Hi all, we will change our entire network IP addresses in the coming months.
I think I've got almost everything figured out.
We have about 400 PCs (Win2k Prof) and we'd like to change the IP address,
subnet, gateway and DNS servers properties remotely. They all use static
addresses. I've been looking for a tool that would allow me to do this, but
I haven't been able to find anything.
I am familiar with the "netsh" command, but I am sure someone in the list
has already dealt with this situation and knows some other way.
Thanks,
_________________________________
Hector Minero
NSWCDD Code K55
Ph: (540) 653-8859
Fax:(540) 653-8575
Other related posts:
