Probleme dans le changement d'IP
Bonjour, je fait un script qui change une ip a partir d'un fichier texte ou sont les infos
Je recupere les infos de cette facon
Code:
1
2
3
4
5
6
7
8
| Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\temp\settings.txt", ForReading)
while Not f.AtEndOfStream
ReDim Preserve t(i)
t(i)=f.ReadLine
i=i+1
Wend
f.Close |
Ensuite j'essaye d'appliquer le tout comme cela
Code:
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
| strIPAddress = Array(t(0))
strSubnetMask = Array(t(1))
strGateway = Array(t(2))
strDNS = array(t(3),t(4))
strWins1 = t(5)
strWins2 = t(6)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
NomPC = objItem.Caption
Next
Set objWMIService = Nothing
Set colItems = Nothing
Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
For Each objItem in colItems
errEnable = objItem.EnableStatic(strIPAddress, strSubnetMask)
errEnable = objItem.setgateways(strGateway)
errEnable = objItem.SetDNSServerSearchOrder(strDNS)
objItem.SetWINSServer strWins1 , strWins2
Next |
Quand j'execute le script il n'arrive pas a configurer l'IP et le masque (le masque ca doit venir du fait que l'iP n'est pas mise) mais la passerelle, DNS et WINS c'est OK.
J'ai essayé egalement de passer par une autre variable pour eviter de mettre le tableau directement voir si ca le bloque mais ca ne marche pas mieux.
Par contre si a la place des variable je met l'IP comme ca strIPAddress = Array("192.168.1.2") par exemple je n'ai pas de souci ca marche.
Voila, si quelqu'un aurait une petite idée du problème ca serait cool :ccool:
++
