Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1293 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Un goto ou bien une boucle ! Comment faire

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Un goto ou bien une boucle ! Comment faire

n°1368458
yannlyon
Posté le 17-05-2006 à 09:43:37  profilanswer
 

Bonjour,
Je suis en train de faire un script VBS qui configure Outlook Express
le  script pose 2 questions la premiere c'est reconnaitre l'Utilsateur connecter , et la deuxsieme sont adresse email.
 
et la je but sur cette portion de code  
ceu que je voudrais c'est tan que l'utilisateur n'a pas saisie son noms de login ca lui repose la question et quand c'est vrai qu'il continue à executez le script.  
 
une petite aide svp.
merci
 

Code :
  1. UserName = WshShell.ExpandEnvironmentStrings("%Username%" )
  2. MsgBox "Utilisateur :" + UserName
  4. NomUtilisateur=InputBox("Saisi du noms de la perssone",vbQuestion + vbOkOnly + vbApplicationModal , UserName )
  6. if (UserName <> NomUtilisateur) then
  7. MsgBox "Vous vous ete trompez dans le mons d'utilisateur",vbCritical + vbRetryCancel + vbApplicationModal + 0,"Information"
  8. 'MsgBox "Vous vous ete trompez dans le mons d'utilisateur"
  9. Wscript.Quit (1)
  10. End if


 
et la le script complet
 

Code :
  1. Dim NomUtilisateur, objShell, shell, fso, input ,input1 ,MyVar ,MyvarA ,oShell ,WshShell ,oExec ,Mystring ,Mystring1
  2. Set Net = CreateObject("WScript.Network" )
  3. set WshShell = WScript.CreateObject("WScript.Shell" )
  5. UserName = WshShell.ExpandEnvironmentStrings("%Username%" )
  6. MsgBox "Utilisateur :" + UserName
  8. NomUtilisateur=InputBox("Saisi du noms de la perssone",vbQuestion + vbOkOnly + vbApplicationModal , UserName )
  10. if (UserName <> NomUtilisateur) then
  11. MsgBox "Vous vous ete trompez dans le mons d'utilisateur",vbCritical + vbRetryCancel + vbApplicationModal + 0,"Information"
  12. 'MsgBox "Vous vous ete trompez dans le mons d'utilisateur"
  13. Wscript.Quit (1)
  14. End if
  16. Set Shell = WScript.CreateObject("WScript.Shell" )
  17. Set WshShell = WScript.CreateObject("WScript.Shell" )
  18. Set oShell = WScript.CreateObject("WScript.Shell" )
  19. Set fso = CreateObject("Scripting.FileSystemObject" )
  20. set Wshshell = CreateObject("WScript.Shell" )
  21. Set args  = Wscript.Arguments
  23. If (fso.FileExists("\\hydra\"& NomUtilisateur & "\outlook.reg" )) Then
  24. Wscript.Quit (1)
  25. End If
  27. set fo = fso.opentextfile ("\\hydra\"& NomUtilisateur & "\outlook.reg", 2,True)
  28.         MyString = String(1, 34)
  29.         Mystring1 = String(14,"Messagerie LBA" )
  30.         MyVar = MsgBox ("configuration outlook",vbexclamation)
  31. input = InputBox("Entrez votre EMAIL",48, "Address Email" )
  32. 'input1=InputBox("Votre Noms",48, NomUtilisateur)
  33. fo.writeline ("Windows Registry Editor Version 5.00" )
  34. fo.writeline ("[HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\00000005]" )
  35. fo.writeline ((MyString)&"POP3 password2" &(MyString)& "=hex:01,02,31,00,32,00,30,00,2e,00,30,00,2e,00,30,00,2e,00,31,00,43,00,32,00,33,00,36,00,33,00,45,00,34,00,30,00,00,00" )
  36. fo.writeline ((MyString)&"Account Name" & (MyString)& "=" & (MyString) & "Messagerie LBA" & (MyString)) 'Nom de la Messagerie LBA
  37. fo.writeline ((MyString)&"POP3 Server"& (MyString)&"="& (MyString)&"120.0.0.1" &(MyString))  'Serveur de messagerie
  38. fo.writeline ((MyString)&"SMTP Server"& (MyString)&"="& (MyString)&"120.0.0.1" &(MyString))  'Serveur de messagerie
  39. fo.writeline ((MyString)&"SMTP Display Name"& (MyString)&"="& (MyString) & NomUtilisateur &(MyString))
  40. fo.writeline ((MyString)&"SMTP Email Address"& (MyString)&"="& (MyString)& input & (MyString)) 'L'addresse email definie pendant la configuration
  41. fo.writeline ((MyString)&"Connection Type"& (MyString)&"="& (MyString)& "dword:00000002" &(MyString))
  42. fo.writeline ((MyString)&"POP3 User Name"& (MyString)&"="& (MyString)& NomUtilisateur &(MyString))
  43. fo.writeline ((MyString)&"SMTP Reply To Email Address"& (MyString)&"="& (MyString)&input & (MyString)) 'L'addresse email definie pendant la configuration
  44. fo.writeline ((MyString)&"Connection Type"& (MyString)&"="& (MyString)&"dword:00000002" & (MyString))
  45. fo.writeline ((MyString)&"SMTP Organization Name"& (MyString)&"="& (MyString)&"LBA-SA"& (MyString))
  46. wscript.sleep 300
  47. fo.close
  49. set fo =  fso.getfile("\\hydra\"& NomUtilisateur & "\outlook.reg" )
  51. shell.run "regedit -s \\hydra\"&NomUtilisateur&"\outlook.reg"
  52. MyVarA = MsgBox ("FIN de la configuration",vbexclamation)


mood
Publicité
Posté le 17-05-2006 à 09:43:37  profilanswer
 

n°1368466
DamienCYS
Posté le 17-05-2006 à 09:52:36  profilanswer
 

Do While NomUtilisateur = ""
   NomUtilisateur = InputBox("Saisi du noms de la perssone", vbQuestion + vbOKOnly + vbApplicationModal, UserName)
   if (UserName <> NomUtilisateur) thenMsgBox "Vous vous ete trompez dans le mons  'utilisateur",vbCritical+  
          vbRetryCancel + vbApplicationModal + 0,"Information"'MsgBox "Vous vous ete trompez dans le mons d'utilisateur"
   End if  
Loop

n°1368473
yannlyon
Posté le 17-05-2006 à 10:00:01  profilanswer
 

Bonjour DamienCYS,
j'ais incoporer la modification, ca ne fait pas la boucle et quand le noms correspond ca ne continue pas non plus.  

n°1368519
DamienCYS
Posté le 17-05-2006 à 10:52:42  profilanswer
 

Do While UserName <> NomUtilisateur
   NomUtilisateur = InputBox("Saisi du noms de la perssone", vbQuestion + vbOKOnly + vbApplicationModal, UserName)  
   if (UserName <> NomUtilisateur) thenMsgBox "Vous vous ete trompez dans le mons  'utilisateur",vbCritical+  
          vbRetryCancel + vbApplicationModal + 0,"Information"'MsgBox "Vous vous ete trompez dans le mons d'utilisateur"  
   End if  
Loop  
 
et comme ca ?
 

n°1368532
yannlyon
Posté le 17-05-2006 à 11:04:12  profilanswer
 

Re,
Un grand merci ca marche nickel chrome.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Un goto ou bien une boucle ! Comment faire

 

Sujets relatifs
Boucle sur formulairecomment faire défiler des images en boucle sur un site ?
Passer une variable php->js dans une boucleRécupération de variables en boucle
probleme de boucle avec une date résoluBoucle pour tester différentes textbox
commande PHP pas bien !!Un bon Timer bien complet.
[PHP] Utilisation d'un nom de variable qui varie dans une boucle 
Plus de sujets relatifs à : Un goto ou bien une boucle ! Comment faire

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.067 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR