Salut,
Dans le cadre d'un intranet, le script est à insérer dans le <head> de ta page internet. Il faut ensuite appeler le script sur un évènement de ta page, en l’occurrence simplement un click sur un lien. Voici mon code pour ma page de connexion aux imprimantes:
On a entre les balise <head>
Code :
- <script type="text/vbscript" language="vbscript">
- sub installImp(partage)
- if confirm("Vous êtes sur le point d'installer une imprimante par défaut, voulez-vous continuer ?" ) then
- Dim net
- Set net = CreateObject("WScript.Network" )
- net.AddWindowsPrinterConnection partage
- net.SetDefaultPrinter partage 'installe par défaut l'imprimante (optionnel)
- alert("L'imprimante a été installée avec succès" )
- end if
- end sub
- </script>
|
Puis vient l'appel depuis le lien dans le corps de la page:
Code :
- <A HREF="#" onClick='installImp("<%=rsImp("Partage" )%>" )'>[Installer]</a>
|
Où le <%=rsImp("Partage" )%> provient du listage de la base de donnée dans laquelle j'ai un champ "partage" sous forme de chemin UNC \\serveur\partage