'Script réalisé par Hervé DEBRAY du PERP93

Dim WshShell
Dim lect,ress,serveur,Application
Set WshShell = WScript.CreateObject("WScript.Shell")

serveur="portperp2" 'Nom du serveur ou de la station abritant les partages
Application="c:\winNT\system32\calc.exe"       'Chemin complet de l'application à exécuter
repcourant=""		'indiquer le chemin de répertoire courant
'Déclaration des lettres de lecteur
lect=Array("R:","S:") 

'Déclaration des ressources sur lesquelles connecter les lecteurs
ress=Array("Mes documents","program files")



'Procédure de connexion d'un lecteur sur une ressource
Sub connect(lecteur,ressource)
	Set WshNetwork = WScript.CreateObject("WScript.Network")
	WshNetwork.MapNetworkDrive lecteur, "\\"&Serveur&"\"&ressource
End Sub

'Procédure de déconnexion d'un lecteur réseau
Sub deconnect(lecteur)
	Set WshNetwork = WScript.CreateObject("WScript.Network")
	WshNetwork.RemoveNetworkDrive lecteur
End Sub

'Procédure d'execution de l'application
Sub Lance(Appli) 
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFile(Appli)
'Traduction d'un nom long en nom court
	CheminCourt=f.ShortPath   
'Temporisation avant execution de l'application
	'WScript.Sleep 0
	return=WshShell.Run (CheminCourt,1,TRUE)
End Sub

 
'Connexion des lecteurs sur les ressources, execution de l'application, deconnexion des lecteurs
For i=0 to (Ubound(lect)-Lbound(lect))
connect lect(i),ress(i)
Next
'WshShell.CurrentDirectory=repcourant  'visual basic script 5.6 doit être installé sur le poste
Lance Application
'WshShell.CurrentDirectory="c:\"  'visual basic script 5.6 doit être installé sur le poste
For i=0 to (Ubound(lect)-Lbound(lect))
deconnect lect(i)
Next