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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] [VBS] Je cherche l'équivalent de net use * /delete /yes

loran-outan

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

Publicité

RavenShadoW1

Code :

Set variable=CreateObject("WScript.Shell" )
    
espace = " "   ' mettre un espace entre les commandes !!
condition = "/delete /yes"    

' ************************ LANCEMENT De COMMAND  *****************
variable.Run("C:\WINNT\System32\cmd.exe" )
  
wscript.sleep 150
  
variable.SendKeys ("net use" )
  
wscript.sleep 121

variable.SendKeys (espace)
wscript.sleep 121
variable.SendKeys ("*" )
wscript.sleep 121
variable.SendKeys (espace)
wscript.sleep 121
variable.SendKeys (condition)
wscript.sleep 200
  
'Les touches comme "entrer", "alt" faut les mettre entre des accoloades {}
  
variable.SendKeys ("{enter}" )
  
wscript.sleep 800
variable.SendKeys ("Fait par RavenShadoW" )
  
Set WshShell = Nothing

'FIN DE PROGRAMME

J'espere que ca t'aidera ^^

plus simple :

Code :

Set variable=CreateObject("WScript.Shell" )
    
' ************************ LANCEMENT De COMMAND  *****************
variable.Run("C:\WINNT\System32\cmd.exe" )
  
wscript.sleep 150   ' laisse le temps a CMD de se lancer avant d'envoyer la sauce!
  
variable.SendKeys ("net use * /delete /yes" )

'Les touches comme "entrer", "alt" faut les mettre entre des accoloades {}
  
variable.SendKeys ("{enter}" )
  
Set WshShell = Nothing

'FIN DE PROGRAMME

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

loran-outan

UN GRAND MERCI RavenShadoW1 pour ton aide, c'est exactement ça que je cherchais

Encore Merçi et bonne continuation :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[EXCEL][VBS] fermeture de fichier	[C#] * Résolu tout seul * Enregistrer une image avec un contour
rech un reparateur de site en php "resolu"	[RESOLU] copie de const char*
[résolu] Dépendances	.htpasswd -> mdp en clair ?[RESOLU]
Fermer un programme avec un VBS ou autre	CHECKED et case à cocher : liste à partir d'une table [RESOLU]
[Résolu] Java - Jsp - ArrayList dans ArrayList	[Résolu] Plusieurs AND / OR dans un if
Plus de sujets relatifs à : [Résolu] [VBS] Je cherche l'équivalent de net use * /delete /yes

Page générée en 0.030 secondes