'Réalisé par Hervé DEBRAY - Pôle d'Expertise Réseaux Pédagogique de Seine-Saint-Denis
'lecteur1 et lecteur2 représente les lecteurs à connecter
'ressouce1 et ressource2 les partages sur lesquels les connecter
'appli le chemin complet de l'application à exécuter.


Dim WSHNetwork
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")

sub connect(lecteur1,ressource1,lecteur2,ressource2,appli)
	'ne pas tenir compte de l'erreur dûe à une connexion existente
	On Error Resume Next
	'connexion du premier lecteur réseau
	WshNetwork.MapNetworkDrive lecteur1 , ressource1
	On Error Resume Next
	WshNetwork.MapNetworkDrive lecteur2 , ressource2
	'lancement de l'application
	return=WshShell.Run (appli,1,true)
	'déconnexion du lecteur réseau
	On Error Resume Next 
	WshNetwork.RemoveNetworkDrive lecteur1
	on Error Resume Next
	WshNetwork.RemoveNetworkDrive lecteur2

end sub

lecteur1="R:"
ressource1="\\slcd_1\encarta98"
lecteur2=""
ressource2=""

appli="C:\Progra~1\Micros~3\Encycl~1\enc98.exe"

WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Reference\Encarta Encyclopedia\98F\BookPath", lecteur1&"\ENCYC98\"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Reference\Encarta Encyclopedia\98F\DiscPath0", lecteur1
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Reference\Encarta Encyclopedia\98F\DiscPath1", lecteur1

	call connect(lecteur1,ressource1,lecteur2,ressource2,appli)