[R] Récuperer une variable dans le fichier .txt

[flech]

Bonjour,
Je suis novice en script.
Voici un bout du script qui ne fonctionne pas.
Le but est de récupérer une variable dans un fichier .txt.
Il n'y a qu'un caractère dans le fichier.
Merci d'avance

Code : Tout sélectionner

$file_dhcp = FileOpen("c:\dhcp.txt", 0)
$dhcp = FileReadLine($file_dhcp, 1)
MsgBox(0, "DHCP", $dhcp)
$dhcp = StringSplit($dhcp,"")
MsgBox(0, "DHCP", $dhcp)
$dhcp = $dhcp[0]
MsgBox(0, "DHCP", $dhcp) 

Je n'ai pas de code erreur.

[timmalos]

Lorsque vous avez créé votre sujet, des règles de présentation etaient énoncées.
Vous ne les respectez pas, merci d’éditer votre message car lorsque le prochain modérateur passera par ici, votre message ira droit à la poubelle.

[mikell]

Je passe par ici et ça roule

Pourquoi pas tout simplement

Code : Tout sélectionner

MsgBox(0, "DHCP", FileRead("c:\dhcp.txt"))

Mais il faut être sûr que le fichier ne contient pas aussi un caractère invisible, on peut le vérifier par exemple en faisant ça

Code : Tout sélectionner

MsgBox(0, "DHCP", "==" & FileRead("c:\dhcp.txt") & "==")

[flech]

Pardon, les MsgBox était juste pour vérifier l'état de la variable.
Je doit récupérer dans une variable le caractère, car derrière je fais une boucle if avec.
Merci et désolé pour le manque de précision.

Voici le script dans la globalité

Code : Tout sélectionner

#NoTrayIcon
Local $cmd,$User,$Password,$dhcp,$file_dhcp

$User = "toto"
$Password = "toto"
$dhcp = "0"

$cmd = 'netsh interface ip show address | find /C "Oui" > c:\dhcp.txt'
RunAs($User,$Domain,$Password,1,@ComSpec & " /c " & $cmd,"c:\",@SW_HIDE)

WinWaitActive("")
Sleep(1000)

$file_dhcp = FileOpen("c:\dhcp.txt", 0)
$dhcp = FileReadLine($file_dhcp, 1)
$dhcp = StringSplit($dhcp,"")
$dhcp = $dhcp[0]
;MsgBox(0, "DHCP", $dhcp)

If  $dhcp = 0 Then
    $cmd = 'netsh interface ip set address "Connexion au réseau local" dhcp'
    RunAs($User,$Domain,$Password,1,@ComSpec & " /c " & $cmd,"c:\",@SW_HIDE)

    $cmd = 'netsh interface ip set dns "Connexion au réseau local" dhcp'
    RunAs($User,$Domain,$Password,1,@ComSpec & " /c " & $cmd,"c:\",@SW_HIDE)
else
    
    MsgBox(0, "DHCP", "Adresse déjà en DHCP")
    
EndIf
 

[Tlem]

Le but est de récupérer une variable dans un fichier .txt.

Je pense que votre script est conçu pour bien autre chose que la simple récupération d'une variable !!!

En lisant votre dernier code, j'y vois plusieurs interrogations.

1 - L'option 'find /C' n'affichera que le nombre d'interface en DHCP mais ne récupèrera par le nom de celle-ci.

2 - Sur la base du 1°, vous supposez que l'interface réseau s'appelle "Connexion au réseau local", mais qui vous dit qu'elle n'a pas été renommée ...

3 - Après lecture de votre code, il me semble que le but est de mettre l'interface principale en DHCP, mais pourquoi donc ne pas la gérer directement ?

4 - Avez-vous pensez aux interfaces fantôme telle celles des machines virtuelles ?

Bref, comme cous le voyez, il existe des tas de questions et problèmes possibles. Définissez un peut mieux les besoins et nous vous orienterons vers une solution plus universelle.

[TopXm]

Hello

Pour imager les propos du boss (non non ce n'est pas de la lèche ...)
[spoiler="Marchera pô][/spoiler]

Et ceux de Mikell dans l'élan (en plus du Wait pour éviter le Sleep):

► Afficher le texteFileRead suffit

Code : Tout sélectionner

Local const $FileName = 'c:\dhcp.txt'
Local Const $Cmd = 'netsh interface ip show address | find /C "Oui" > '  & $FileName

RunWait(@ComSpec & " /c " & $Cmd)
If FileExists($FileName) Then
    $Combien = FileRead($FileName)
    msgBox(0, "Taratata", "Nombre de DHCP activée(s) : " & $Combien)
Else
    MsgBox(16, 'Taratata', 'Marche pô')
EndIf
 

[flech]

Effectivement le but est de passer des machines en ip statique en dhcp.
J'ai environ 40 machines dans ce cas...
Il n'y a pas d'autre interface que la local, sinon un autre pipe avec find "Connexion au réseau Local".

J'ai des machines sous xp et seven, le reste du sript fonctionne, si je peux récupérer la variable.
Un master est passer sur les machines elles sont toutes idems.
Si le dhcp est activé variable 1 dans le fichier ou 0 si pas activé.
J'utilise le runas pour les droit admin.

Voila ce que je peux dire!!!
Merci pour le coup de pouce

[TopXm]

Re,
Ben du coup le FileRead proposé par Mikell plus haut devrait faire l'affaire non ?

J'utilise le runas pour les droit admin

Oui oui j'avais bien compris. C'est au Wait que je faisais allusion donc voir RunAsWait plutôt qu'un Sleep

Sinon ce message pourrait aussi être intéressant

[Tlem]

Puisque les machines sont identiques et que visiblement l'utilisateur ne peut pas renommer l'interface, dans ce cas pourquoi vous prendre la tête à contrôler si le PC est en DHCP ...

Vous connaissez le nom de l'interface, donc lancez directement les deux commandes NetSh. Si la machine est déjà en DHCP, cela n'aura aucun effet !!!

[flech]

Je suis stagiaire et mon chef souhaite faire un test avant de lancer ou pas la mise en dhcp des ip.

Et merci pour Runaswait, j'avais pas vu

Les commandes FileRead et FileReadLine ne retourne rien, d'où mon problème!!!
je les utilise peut être mal, mais je n'ai pas d'erreur.

Je voulais passer directement par des variables, mais comment récupérer une variable en utilisant des commandes DOS.

Enfin merci à tous.

Je suis Breton donc têtu, je vais finir par trouver!!!!!

[Tlem]

Test ou pas test, le script que vous voulez utiliser a pour but de passer une machine en DHCP si jamais elle ne l'est pas !
Donc l’emploi des deux commandes NetSh directement sans test reviendra strictement au même.

Breton ou pas, cela ne sert à rien d'être borné, un peut de réflexion amène souvent de la simplicité.

[flech]

Je suis d'accord avec toi Tlem, mais on me demande un test je le fait.
J'ai trouvé le problème, c'était le chemin du fichier qui posait des soucis pour l'ouverture sur la racine.
Voici le résultat, et encore merci à tous

Code : Tout sélectionner

#NoTrayIcon
Local $cmd,$User,$Password,$Domain,$dhcp,$file_dhcp

$User = "Admin"
$Password = "Toto"
$Domain = "Tata"
$dhcp = "0"
$file_dhcp = "c:\TEMP\dhcp.txt"
$cmd = 'netsh interface ip show address | find /C "Oui" > ' & $file_dhcp

RunAsWait($User,$Domain,$Password,1,@ComSpec & " /c " & $cmd,"c:\",@SW_HIDE)

$dhcp = FileReadLine($file_dhcp, 1)
$dhcp = StringSplit($dhcp, "")
$dhcp = $dhcp[1]

;MsgBox(0, "Etat dhcp", $dhcp)

If  $dhcp = 0 Then
    $cmd = 'netsh interface ip set address "Connexion au réseau local" dhcp'
    RunAsWait($User,$Domain,$Password,1,@ComSpec & " /c " & $cmd,"c:\",@SW_HIDE)

    $cmd = 'netsh interface ip set dns "Connexion au réseau local" dhcp'
    RunAs($User,$Domain,$Password,1,@ComSpec & " /c " & $cmd,"c:\",@SW_HIDE)
else
    ;MsgBox(0, "DHCP", "Adresse déjà en DHCP")
EndIf