Discussion :

[claf60]

Bonjour

je n'y connais rien en vbs ou si peu.

j'aimerai bien pouvoir traduire le petit lots de commande batch suivant en un script vbs :

@ECHO OFF
ECHO Script généré par GUNT Version 3.0.1.9
REM La ligne suivante permet de lancer UNCONN (déconnexion des lecteurs)
REM \\SRV-PEDAGO\NETLOGON\UNCONN.EXE /keep=z
NET USE P: /Home /Yes
NET USE Q: "\\SRV-PEDAGO\sciences$" /Yes
REM Modifier les 2 lignes suivantes en fonction du serveur hébergeant les espaces "ELEVES"
NET USE R: "\\SRV-PEDAGO\Eleves$" /Yes
NET USE S: "\\SRV-PEDAGO\Classes$" /Yes
REM La ligne suivante permet de lancer le client ESU
REM \\SRV-PEDAGO\NETLOGON\ESU\ESUCLNT.EXE

autant la connexion des disques réseaux m'est accessible autant les appels aux exécutables ne sont pas (encore) à ma portée.

Quelqu'un aurait-il l'amabilité de me faire une tradcution ? j'adapterai ensuite.

Avec mes remerciements

Claf60

[Mac LAK]

Si ce script fonctionne, pourquoi as-tu besoin de l'adapter en VBS ? Surtout s'il est généré automatiquement, en plus...

[claf60]

Parce que nous sommes passés à la nouvelle version qui ne gère que les scripts VBS.

Au moment de la bascule GUNT => KOXO tous les scripts ont été récupérés de l'ancienne version automatiquement sans traduction du batch vers vbs !! (peut-être une fausse manoeuvre).

Maintenant il serait plus rapide de refaire les comptes en générant automatiquement les vrais scripts vbs mais ... on ne fait pas cela en cours d'année avec 1400 users !!!

Alors ma chance est que les users héritent du script de leur groupe ... je n'aurai donc pas 1400 scripts à re écrire ;-) tout au plus 200 !!!!

le préjudice ne porte que sur les espaces mutuels qui ne montent pas à l'ouverture de la session.

[maxim_um]

Salut Mac LAK,
Salut claf60, bienvenu dans le forum,

Dans la mesure où tu n'es pas familier avec vbs, le mieux serait peut-être qu'on te fournisse une solution générique permettant d'encapsuler ton script cmd. Ainsi, tu serais libre de modifier ce dernier et le script vbs ne ferait que transmettre son exécution à l'interpréteur de commande.

Quand dis-tu ?

[Acris]

Bonjour

pas testé :
VBS

Code :

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

1
2
3
4
5
6
7
8
'http://msdn.microsoft.com/en-us/library/8kst88h6(VS.85).aspx
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "P:"
WshNetwork.MapNetworkDrive "Q:", "\\SRV-PEDAGO\sciences$"
WshNetwork.MapNetworkDrive "R:", "\\SRV-PEDAGO\Eleves$"
WshNetwork.MapNetworkDrive "S:", "\SRV-PEDAGO\Classes$"
WSCript.Quit

[claf60]

Bonjour Mac LAk, maxim_um, Acris

Salut claf60, bienvenu dans le forum

Merci Maxim_um

Dans la mesure où tu n'es pas familier avec vbs, le mieux serait peut-être qu'on te fournisse une solution générique permettant d'encapsuler ton script cmd

C'est une très belle proposition, maxim_um. Mais je vais devoir augmenter mes capacités en vbscipt. Alors autant commencer à cette occasion. J'ai un lointain passé d'analyste-programmeur (Assembleur, C++,Ada, ...). Il faut que je me tape toutes les nouvelles syntaxes du Vbscript et que je pratique surtout régulièrement.

Acris, merci pour le codage. Il fonctionne. Cela reste assez simple. Cependant pour la ligne

WshNetwork.MapNetworkDrive "P:"

sans paramètre, il aime pas et je ne sais comment lui faire avaler la variable /HOME et le paramètre /YES typiques à Net Use ?
VBScript sait-il récupérer les variables d'environnement utilisateurs ? si oui de quelle manière je passe la variable "\\nomduserveur\%username%$" et le paramètre /PERSISTENT:YES ?

Je continue de chercher sur MSDN.

[Acris]

Il faut lire la documentation http://msdn.microsoft.com/en-us/libr...h6(VS.85).aspx

Le lecteur P correspond à quoi ?? la machine elle meme ?? et le /home c'est quoi ?

Code :

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

WshNetwork.MapNetworkDrive "P:"

Remplace peut etre par

Code :

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

1
2
WshNetwork.MapNetworkDrive "P:" "\\NOMDUPC\"
WshNetwork.MapNetworkDrive "P:" "\\NOMDUPC\home"

Pour le mode persistant, il faut ajouter true par défaut c'est false

Code :

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

1
2
3
4
5
6
7
8
'http://msdn.microsoft.com/en-us/library/8kst88h6(VS.85).aspx
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "P:"
WshNetwork.MapNetworkDrive "Q:", "\\SRV-PEDAGO\sciences$",True
WshNetwork.MapNetworkDrive "R:", "\\SRV-PEDAGO\Eleves$",True
WshNetwork.MapNetworkDrive "S:", "\\SRV-PEDAGO\Classes$",True
WSCript.Quit

VBScript sait-il récupérer les variables d'environnement utilisateurs ? si oui de quelle manière je passe la variable "\\nomduserveur\%username%$" ?

Pas compris ce que tu veux, peux tu expliquer ?

[maxim_um]

Salut,

"/home" est un paramètre pour la commande "Net use", il désigne le "home directory", c'est le répertoire d'accueil de l'utilisateur. Vbscript et l'objet WshNetwork n'offrent pas d'équivalence directe au paramètre "/home", mais il reste toutefois possible de reconstruire ce chemin en utilisant les différentes propriétés de WshNetwork, à savoir UserDomain, ComputerName et UserName.
Dans le même temps, cela répond à la demande sur les variables réseau de l'utilisateur.

Voilà un exemple de mise en œuvre de ces propriétés :

Code :

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

1
2
3
4
5
Set WshNetwork = WScript.CreateObject("WScript.Network") 
WScript.Echo "Domaine = " & WshNetwork.UserDomain 
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName 
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName

Il ne faut pas oublier aussi la méthode Run de l'objet WshShell, qui permettrait ainsi d'utiliser directement la commande "Net use", et ça reste quand même du vbscript.

Code :

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

1
2
Set WshShell = WScript.CreateObject ("WSCript.Shell") 
WshShell.Run "NET USE P: /Home /Yes", 0, true

enjoy;

[claf60]

Merci beaucoup Acris, Maxim_um

Vos réponses sont complètes et claires.

Maxim_um a complètement répondu au problème sans le savoir pour ma question subsidiaire :
=> appeler un exécutable dans un vbscript !! par exemple pour "UNCONN.EXE /keep=z" et "ESUCLNT.EXE"

Merci beaucoup encore

J'espère qu'un jour je pourrai aussi efficacement secourir quelqu'un.

J'ai compulsé la doc Vbscript et j'ai pu constater que ce ne sera pas si évident d'être rapidement à l'aise avec ce petit langage.

Vous m'avez en tout cas super fait gagner du temps et je suis certain que mes 1400 users s'associent à ma gratitude.

Résolu