Problème de boucle sur KIXSTART - Logiciels - Windows & Software
MarshPosté le 15-06-2007 à 16:56:45
Bonjour, j'ai un tit souci de syntaxe, je veus récupéré tout les noms d'ordinateurs et les userid des utilisateurs et les stocker dans un fichier texte appellé hostname.txt pour migration des serveurs.. Donc au démarrage de la session un fichier .bat va appelé mon petit script script.kix (code ci-dessous) Le prob, c'est que je ne veus pas que le script écrit 2 fois les même informations sinon c'est pas gérable avec le nombre d'utilisateurs sur le réseau. j'ai donc préparé mon petit script, avec une tite boucle (while ...loop) pour qu'il écrive ds le hostname.xt que les utilisateurs qui n'y sont pas encore.. Donc mon souci se trouve au niveau de ma boucle et surtout de mon IF...ENDIF, lors de la distinction IF $car = $line la fonction If ne passe pas, je ne sais pas comment y remedier, j'ai essayé pas mal de chose mais rien n'y fait. Si quelqu'un peut m'aider ...
Marsh Posté le 15-06-2007 à 16:56:45
Bonjour, j'ai un tit souci de syntaxe, je veus récupéré tout les noms d'ordinateurs et
les userid des utilisateurs et les stocker dans un fichier texte appellé hostname.txt pour migration des serveurs..
Donc au démarrage de la session un fichier .bat va appelé mon petit script script.kix (code ci-dessous)
Le prob, c'est que je ne veus pas que le script écrit 2 fois les même informations sinon c'est pas gérable avec le nombre d'utilisateurs sur le réseau. j'ai donc préparé mon petit script, avec une tite boucle (while ...loop) pour
qu'il écrive ds le hostname.xt que les utilisateurs qui n'y sont pas encore..
Donc mon souci se trouve au niveau de ma boucle et surtout de mon IF...ENDIF, lors de la distinction IF $car = $line la fonction If ne passe pas, je ne sais pas comment y remedier, j'ai essayé pas mal de chose mais rien n'y fait. Si quelqu'un peut m'aider ...
----------------------------------------------------------
break ON
:start
$car = (@USERID + " ; " + @Wksta + chr(13)+chr(10))
If Open(3,"\\cd-2000\netlogon\hostname.txt", 4) = 0
$i=0
$val = 1
$line = ReadLine(3) <----- lecture premiere ligne
while @error = 0
If $car = $line <--- Prob : ne fais pas la distinction
$val = 0
Endif
$i=$i+1
$line = ReadLine(3) <------ lecture lignes suivantes
loop
? "Il y a "$i" utilisateurs"
If $val = 1
$write = WriteLine( 3 ,@USERID + " ; " + @Wksta + chr(13)+chr(10))
ENDIF
ENDIF
:end
--------------------------------------------------------