Discussion :

[x-rhum-x]

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

++

[SfJ5Rpw8]

bonjour,

pour commencer as tu vérifier les données lues dans ton fichier de config, en les affichant ?

[x-rhum-x]

Oui, j'ai bien l'adresse complete en l'affichant. J'ai l'impession qu'il bloque a cause du Array mais vu que ca marche pour les DNS je ne sais pas trop.

[x-rhum-x]

Dsl pour le double post mais j'ai quelque chose qui me vient a l'esprit d'un coup.

Le PC est en anglais, dans le Array quand je met l'adresse en brut il y a les guillemets mais avec la variable non et du coup il doit prendre des points comme des separateurs et faire un tableau de 4 valeures.

Je vient de tester ca pour y remedier

strIPAddress = Array(""" & t(0) & """)
strSubnetMask = Array(""" & t(1) & """)

Ca ne fonctionne pas.

Si quelq'un pouvais me confirmer que ca vient des points qui font separateur et si oui comment faire du coup pour que ca prenne bien la chaine comme une seule valeure du tableau.

Merci d'avance

[SfJ5Rpw8]

tu est sur de ne pas avoir un caractère parasite dans ton fichier ...

pour vérifier le contenu de ta variable essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox "<" & strIPAddress (0) & ">"

voir si a l'affichage tu as bien un truc du genre :

<192.168.1.2>

sans espaces ou autre caractères parasites ...

[x-rhum-x]

J'ai fait ce que tu a dit et je ne voie rien qui parasite, l'adresse s'affiche bien de la forme <192.168.1.2>