Remotely Change IP Gateway DNS and WINS

Questo script permette di modificare da remoto tutti i principali parametri di configurazione assegnati ad una scheda di rete: Indirizzo IP, Subnet Mask, Default Gateway, suffisso DNS specifico per la connessione, server DNS Primario e secondario, server WINS primario e secondario.

E' necessario impostare tutte le variabili contenute nella sezione ' -------- Set variables here -------- del codice sorgente.

Potete eseguirlo indifferentemente con entrambi i motori WSH ("wscript.exe" oppure "cscript.exe").

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

'------------------- Declarations
dim aDNS(1)
Dim strWINS1
Dim strWINS2
dim strComputer
dim objWMIService
dim errDNS
dim errWINS
dim errEnable
dim errGateways
dim errDNSDomain
dim objItem 
dim colItems
'---------------------------------
 
' -------- Set variables here --------
 
' Set Computer Name or IP Address to run against
strComputer = "PC1"
 
' Set IP - Subnet - Gateway to assign
strIPAddress = Array("192.168.0.1")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.254")
strGatewaymetric = Array("1")
 
' Set DNS servers in search order to assign - or leave them blank
aDNS(0) = "208.67.222.222"
aDNS(1) = "208.67.220.220"
 
' Set connection-specific DNS suffix to assign - or leave it blank
dnsdomain = "domain.lan"
 
' Set WINS servers in search order to assign - or leave them blank
strWINS1 = ""
strWINS2 = ""
 
' -------- Variables End --------
 
On error resume next
set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = 1")
For Each objItem in colItems
	errDNS = objItem.SetDNSServerSearchOrder()
	errDNS = objItem.SetDNSServerSearchOrder(aDNS)
	errWINS = objItem.SetWINSServer (strWINS1,strWINS2)
	errDNSDomain = objItem.SetDNSDomain (dnsdomain)
	errGateways = objItem.SetGateways(strGateway, strGatewaymetric)
	errEnable = objItem.EnableStatic(strIPAddress, strSubnetMask)
Next
 
set objWMIService = Nothing
set colItems = Nothing
 
msgbox("Done")

Print This • Email this • Twit This! • Add to del.icio.us • Share on Facebook • Digg This! • Stumble It! • AddThis! • Share on Segnalo Alice • Share on OKNotizie

Post Metadata

Data
13 Giugno 2007

Autore
Mirko

Categorie
Scripts

Tags
, , ,

Trackback URI

Comments RSS

1 commenti a “Remotely Change IP Gateway DNS and WINS”


  1. Giulio
    24 Giugno 2012 alle 11:31


    Buongiorno
    Le scrivo per chiedere un consiglio.
    Dovrei reimpostare i parametri di una rete nel seguente modo:
    gli indirizzi Ip 10.4.24:* devono diventare 10.4.8.*, gli inidrizzi 10.4.25.* invece diventeranno 10.4.9.* e il gateway da 10.4.25.* deve diventare 10.4.9.*
    é possibile fare uno script che in automatico legga l'indirizzo e lo modifichi senza che debba passare su ogni pc?

    Rispondi



Lascia un commento


←
→