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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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

++