Discussion :

[sovan]

Bonjour

Y a t il moyen de convertir cette commande CMD en VBS ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Explorer.exe /n,/e,/root,  \\poste1\c$

Merci d'avance

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
Dim Command,Ws,Execution
Command = "Explorer.exe /n,/e,/root,\\poste1\c$"
Set Ws = CreateObject("Wscript.Shell")
Execution = Ws.Run(Command,1,False)

[sovan]

Merci hackoofr

Ce n'etait pas en commande dos que je voulais.

En fait je voulais exécuter en administrateur
ou une commande ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "User Name = " & WshNetwork.UserName 
 
wshNetwork.MapNetworkDrive "Z:", "\\poste1\c$" & wshNetwork.UserName

Il y il moyen d'ouvrir juste \\poste1\c$ avec explorer.exe sans connecter au lecteur de réseaux ?

[unareil]

As-tu essayé tout simplement d'ouvrir l'endroit sans le mapper comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set ws=CreateObject("wscript.shell")
File="\\poste1\c$"
ws.run "Explorer "& File

[sovan]

Oui, j'ai deja fait, c'est pas grave

Merci