Problème avec un fichier externe pour mes variables

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème avec un fichier externe pour mes variables

Kayanwan

Pixelyoz

Bonjour,

J'utilise un script pour modifier mes IPs. Celui-çi marche très bien sauf que maintenant, j'essaye de le modifier pour mettre les données de mes variables dans un fichier txt.

Je dosi mal m'y prendre, ce dernier ne marche pas.

Merci de m'aider? voci le code :

Code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
' --------------- Mettre l'adresse MAC de la carte réseau que vous souhaitez modifier --------------- '
' --------------- ici : 00:0A:E6:02:23:8F --------------- '
Set colNetAdapters = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True AND MACAddress like '%00:10:4B:41:71:3C'" )
Dim strIPAddress, strSubnetMask, strGateway, strGatewayMetric ' Déclaration des variables
Open "PARAMTCP.ini" For Input As #1 ' Ouvre le fichier en lecture.
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, strIPAddress, strSubnetMask, strGateway, strGatewayMetric ' Lit les données dans 4 variables.
Loop
Close #1 ' Ferme le fichier.
'strIPAddress = Array("10.40.29.39" ) 'Saisir Adresse IP (ex: 10.40.29.39)'
'strSubnetMask = Array("255.255.252.0" ) 'Saisir Masque de sous-réseau (ex: 255.255.252.0) '
'strGateway = Array("10.40.28.1" ) 'Saisir Paserelle par défaut (ex: 10.40.28.1)'
'strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 And errGateways = 0 Then
WScript.Echo "L adresse IP et la passerelle ont ete changee."
Else
WScript.Echo "L adresse IP et la passerelle n ont pas pu etre changee"
End If
Next

Message édité par Kayanwan le 08-03-2007 à 14:05:05

---------------
www.pixelyoz.com - www.eyeofworld.pixelyoz.com - www.emotionofday.pixelyoz.com - www.footproject.pixelyoz.com

Publicité

Kayanwan

Pixelyoz

ingenieurcesi

Code :

Do While Not EOF(1)
' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, strIPAddress, strSubnetMask, strGateway, strGatewayMetric ' Lit les données dans 4 variables.
Loop
Close #1 ' Ferme le fichier.

[/quotemsg]

il a deja marche ton line input avec 4 variables ?

ce n'est pas plutot
Input #1, strIPAddress, strSubnetMask, strGateway, strGatewayMetric

c'est peut etre que j'utilise le vba d'excel
je sais pas ce qu'il faut comprendre par script

Message édité par ingenieurcesi le 08-03-2007 à 18:40:29

tegu

Ça serait possible d'avoir plus d'informations que « ce dernier ne marche pas. » ?
Un code d'erreur, un exemple de mauvais résultat ?

Message cité 1 fois

Kayanwan

Pixelyoz

Pour faire plus simple :

Voici le code qui marche parfaitement :

Code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
' --------------- Mettre l'adresse MAC de la carte réseau que vous souhaitez modifier --------------- '
' --------------- ici : 00:0A:E6:02:23:8F --------------- '
Set colNetAdapters = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True AND MACAddress like '%00:10:4B:41:71:3C'" )
strIPAddress = Array("10.40.29.39" ) 'Saisir Adresse IP (ex: 10.40.29.39)'
strSubnetMask = Array("255.255.252.0" ) 'Saisir Masque de sous-réseau (ex: 255.255.252.0) '
strGateway = Array("10.40.28.1" ) 'Saisir Passerelle par défaut (ex: 10.40.28.1)'
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 And errGateways = 0 Then
WScript.Echo "L adresse IP et la passerelle ont ete changee."
Else
WScript.Echo "L adresse IP et la passerelle n ont pas pu etre changee"
End If
Next

J'aimerais depuis ce code, mettre les valeurs de mes variables strIPAddress, strSubnetMask, strGateway et strGatewayMetric dans un fichier pour pouvoir rendre ce code plus facilement utilisable pour differente machine.

On aurait seulement à modifier les valeurs dans un fichier au lieu de modifier directement dans la source.

Merci de votre aide.

Kayanwan

Pixelyoz

Kayanwan

Pixelyoz

tegu a écrit :

Ça serait possible d'avoir plus d'informations que « ce dernier ne marche pas. » ?
Un code d'erreur, un exemple de mauvais résultat ?

La seule erreur que j'ai c'est : Error (L13 col28)

L'erreur se positionne devant le FOR

tegu

Après réflexion, ton problème vient sans doute de 2 choses.

1/ L'utilisation d'une liste de variables pour la lecture de données dans un fichier n'est valable qu'avec « Input # ». Ni « Input », ni « Line Input » (cf. aide en ligne sur ces fonctions). Il faut que tu adaptes ton code ou le format de ton fichier texte en conséquence.

2/ Ensuite dans ton exemple qui fonctionne, les variables sont initialisées avec un tableau et pas une simple valeur

strIPAddress = Array("10.40.29.39" )

strIPAddress contient un tableau (un élément) et pas un String !
Tu dois faire pareil ; donc une fois que tu as les valeurs récupérées dans ton fichier texte il te faut initialiser des tableaux pour les utiliser avec objNetAdapter.

En gros, pour l'adresse IP, tu la lis dans le fichier texte et tu la stockes dans une variable « sIP », puis tu fais : strIPAddress = Array(sIP)
Pareil pour le reste.

J'espère qu'il n'est pas trop tard

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème avec un fichier externe pour mes variables

Sujets relatifs
Suggestion: Ajouter un "Copier et renommez fichier existant en .old"	problème php avec nuked clan
Lire un fichier txt ligne par ligne	Editeur actionscript externe
[VBA WORD] ouverture d'un fichier selon un template	SQlite + Python: Problème de "CREATE TABLE IF NOT EXISTS"
Envoie de fichier encodé en URLEncode	Récupération d'n fichier par FTP
fichier en vb	problème avec l'utilisation d'un StateEdit
Plus de sujets relatifs à : Problème avec un fichier externe pour mes variables

Page générée en 0.089 secondes