Création compte user et changement nom host ?

Création compte user et changement nom host ? - VB/VBA/VBS - Programmation

Marsh Posté le 31-07-2013 à 14:38:39    

Bonjour,
 
Je suis une bille en programmation, donc veuillez excuser mon intervention si elle n'est pas correctement formulée.
 
Voilà je suis chargé de déployer 80 machines sous win7 dans les écoles pour la rentrée des classes. J'ai toutes mes sources sur une clé USB pour installer les 56 applications nécessaires aux enseignants.  
Mon chef m'a donné une liste au format CSV avec le nom de la machine, le nom de l'enseignant, prénom, password, classe et établissement. Il me demande de créer un petit programme où je sélectionne le nom de la machine et qui va me crée le compte local en "Utilisateurs avec pouvoir" et renommer la machine.  
 
Je demande pas quelque chose clé en main (même si ça serait l'ideal :D ) mais au moins de l'aide pour créer ma boite de dialogue et comment utiliser les variables contenue dans un CSV.  
 
Merci d'avance.


---------------
Troll2jeux
Reply

Marsh Posté le 31-07-2013 à 14:38:39   

Reply

Marsh Posté le 01-08-2013 à 16:07:48    

Bon farfouillant un peu ici et là j'ai trouver des trucs  
 

dim fs,objTextFile
set fs=CreateObject("Scripting.FileSystemObject" )
dim arrStr
dim fname
set objTextFile = fs.OpenTextFile("users.csv" )
 
fname=InputBox("Entrez le SVL","Saisie" )
MsgBox("le svl est : " & fname)
 
Do while NOT objTextFile.AtEndOfStream
  arrStr = split(objTextFile.ReadLine,";" )
  MsgBox("SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2))
'  arrStr is now an array that has each of your fields
' process them, whatever.....
Loop
 
objTextFile.Close
set objTextFile = Nothing
set fs = Nothing
 
Loop
 
objTextFile.Close
set objTextFile = Nothing
set fs = Nothing


 
Alors j'ai bien ma boite de saisie mais ensuite il m'affiche des boites pour chaque lignes.
 
Comment faire pour qu'il m'affiche juste la ligne où la valeur demandée est inscrite ?


---------------
Troll2jeux
Reply

Sujets relatifs:

Leave a Replay

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