Problème avec un fichier externe pour mes variables

Problème avec un fichier externe pour mes variables - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2007 à 11:24:52    

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

Marsh Posté le 08-03-2007 à 11:24:52   

Reply

Marsh Posté le 08-03-2007 à 14:18:59    

up

Reply

Marsh Posté le 08-03-2007 à 18:25:29    

Code :
  1. Do While Not EOF(1)
  2. ' Effectue la boucle jusqu'à la fin du fichier.
  3. Line Input #1, strIPAddress, strSubnetMask, strGateway, strGatewayMetric    ' Lit les données dans 4 variables.
  4. Loop
  5. 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
Reply

Marsh Posté le 09-03-2007 à 09:25:52    

Ç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
Reply

Marsh Posté le 12-03-2007 à 17:23:04    

Pour faire plus simple :
 
Voici le code qui marche parfaitement :
 

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

Reply

Marsh Posté le 13-03-2007 à 10:41:09    

up

Reply

Marsh Posté le 16-03-2007 à 11:23:04    

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

Reply

Marsh Posté le 16-03-2007 à 13:18:52    

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 :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed