ed3337
Messages postés2Date d'inscriptionlundi 4 décembre 2006StatutMembreDernière intervention11 février 2007
-
7 févr. 2007 à 17:33
ed3337
Messages postés2Date d'inscriptionlundi 4 décembre 2006StatutMembreDernière intervention11 février 2007
-
11 févr. 2007 à 17:48
Bonjour,
Pour faciliter la migration de mon AD, je souhaite mettre en place des pages hta pour gérer mes imprimantes. Dans ces pages hta, je veux afficher la liste des imprimantes installées sur un serveur. Pour se faire un premier script va récupérer les imprimantes et les mettres dans un fichier Excel puis à partir de ce fichier Excel, j'affiche mes imprimantes dans la page hta. En face de chaque imprimante, il y a un bouton "Installer". Je veux, lorsque le user clic sur Installer, que mon VBScript qui est dans la page install l'imprimante sélectionnée.
Voici le code : je n'arrive pas à retourner à ma fonction RunScript2, qui est en charge d'installer mon imprimante, la valeur de l'imprimante à installer.
<SCRIPT Language="VBScript">
Function window_Onload
Dim i
i=1
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\listprinterxxxx.xls")
objExcel.Quit
End Function
Function runScript2()
Dim Printer
Dim net
Printer = objExcel.Cells(intRow,1).Value
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection Printer
End Function
</SCRIPT>
</html>
Avez-vous une idée.
Le must, serait également d'ajouter une coche (bouton radio) avec d'écrit à coté "Imprimante par défaut" et lorsque c'est coché, bah l'imprimante cochée soit installée et par défaut......(je sais j'en demande bcp....)
Merci d'avance pour votre soutien.
@+