Un goto ou bien une boucle ! Comment faire

Un goto ou bien une boucle ! Comment faire - VB/VBA/VBS - Programmation

Marsh Posté le 17-05-2006 à 09:43:37    

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)


Reply

Marsh Posté le 17-05-2006 à 09:43:37   

Reply

Marsh Posté le 17-05-2006 à 09:52:36    

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

Reply

Marsh Posté le 17-05-2006 à 10:00:01    

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

Reply

Marsh Posté le 17-05-2006 à 10:52:42    

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 ?
 

Reply

Marsh Posté le 17-05-2006 à 11:04:12    

Re,
Un grand merci ca marche nickel chrome.

Reply

Sujets relatifs:

Leave a Replay

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