[Résolu] [VBS] Je cherche l'équivalent de net use * /delete /yes

Je cherche l'équivalent de net use * /delete /yes [Résolu] [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 01-06-2006 à 12:19:23    

Je voudrais savoir si qq'un peux m'aider à faire l'équivalent de net use * /delete /yes en dos pour un script en VBS
 
j'ai trouver ça via Labo microsoft:
 
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network" )
WshNetwork.RemoveNetworkDrive "G:"
 
ça marche bien mais, il faut faire cette manip pour toutes les lettres de lecteurs c'est un peux moyen
 
Si qq'un à une astuce pour moi je suis preneur.  :hello:


Message édité par loran-outan le 06-06-2006 à 19:38:27
Reply

Marsh Posté le 01-06-2006 à 12:19:23   

Reply

Marsh Posté le 02-06-2006 à 10:28:35    

Code :
  1. Set variable=CreateObject("WScript.Shell" ) 
  2.     
  3. espace = " "   ' mettre un espace entre les commandes !! 
  4. condition = "/delete /yes"    
  5.  
  6. ' ************************ LANCEMENT De COMMAND  ***************** 
  7. variable.Run("C:\WINNT\System32\cmd.exe" ) 
  8.   
  9. wscript.sleep 150 
  10.   
  11. variable.SendKeys ("net use" ) 
  12.   
  13. wscript.sleep 121 
  14.  
  15. variable.SendKeys (espace) 
  16. wscript.sleep 121 
  17. variable.SendKeys ("*" ) 
  18. wscript.sleep 121 
  19. variable.SendKeys (espace) 
  20. wscript.sleep 121 
  21. variable.SendKeys (condition) 
  22. wscript.sleep 200 
  23.   
  24. 'Les touches comme "entrer", "alt" faut les mettre entre des accoloades {} 
  25.   
  26. variable.SendKeys ("{enter}" ) 
  27.   
  28. wscript.sleep 800 
  29. variable.SendKeys ("Fait par RavenShadoW" ) 
  30.   
  31. Set WshShell = Nothing 
  32.  
  33. 'FIN DE PROGRAMME


 
 
J'espere que ca t'aidera ^^
 
plus simple :  
 
 

Code :
  1. Set variable=CreateObject("WScript.Shell" ) 
  2.     
  3. ' ************************ LANCEMENT De COMMAND  ***************** 
  4. variable.Run("C:\WINNT\System32\cmd.exe" ) 
  5.   
  6. wscript.sleep 150   ' laisse le temps a CMD de se lancer avant d'envoyer la sauce! 
  7.   
  8. variable.SendKeys ("net use * /delete /yes" ) 
  9.  
  10. 'Les touches comme "entrer", "alt" faut les mettre entre des accoloades {} 
  11.   
  12. variable.SendKeys ("{enter}" ) 
  13.   
  14. Set WshShell = Nothing 
  15.  
  16. 'FIN DE PROGRAMME


Message édité par RavenShadoW1 le 08-06-2006 à 09:58:29
Reply

Marsh Posté le 06-06-2006 à 19:37:56    

UN GRAND MERCI RavenShadoW1 pour ton aide, c'est exactement ça que je cherchais
 
Encore Merçi et bonne continuation :hello:

Reply

Sujets relatifs:

Leave a Replay

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