Script d'installation d'imprimante partagé

Bonjour a tous,

Voila, je travaille actuellement pour un hôpital et je cherche donc à faire un script qui permet d'installer pour chaque utilisateur, l'imprimante partagé ( en réseau donc, enfin c'est pas vraiment en réseau, c'est plutôt du local partagé mais bon...)

J'ai réussi a faire quelque chose de similaire :

Code:

---

1 2 3 4 5 6 7

Chemin1=inputBox("Indiquez le chemin de l'imprimante","MessageBox") set WshNetwork=CreateObject("WScript.Network") on error resume next PrinterPath=Chemin1 WshNetwork.RemovePrinterConnection PrinterPath, true, true WshNetwork.AddwindowsPrinterConnection (PrinterPath)

---

Mais le soucis avec ce script, c'est qu'il faut se souvenir du nom de serveur + du nom de l'imprimante, ceux qui peut-être problématique pour certains services ou autres...

J'ai donc a partir de là trouver 2 solutions :

1°) Soit on installe pour la toute 1ere fois l'imprimante sur un poste, et ensuite on se contente de recopier la clé de la base de registre sur les autres postes ( La clé se trouve dans HKEY_CURRENT_USER\Printers ; clé : DeviceOld ; type : REG_SZ).

Pb : Le problème c'est que je ne sais absolument pas comment faire pour recopier ( exporter ??) une clé d'une base de registre vers une autre base automatiquement ( manuellement il suffit juste d'extraire la clé qui nous intéresse, ensuite mettre le fichier de registre dans un dossier partagé ou autre..., et ensuite de faire un double-clic en se connectant sur le bon compte)

2°) Soit on demande au script de nous ouvrir la fenêtre de l'annuaire des imprimantes installés ( comme lorsque l'on veut installer une imprimante partagé sur un autre ordinateur, et que l'on utilise la fonction rechercher dans l'annuaire Active Directory )

Pb: Je ne sais absolument pas comment faire ( si cela est possible déjà) pour demander au script de m'ouvrir cette fameuse fenêtre d'annuaire.
Mais là encore une fois, l'utilisateur va devoir chercher manuellement l'imprimante en question... ceux qui n'est pas forcement le cas, mais si jamais quelqu'un a une idée de comment le faire, cela pourra m'être surement utile pour la suite.

Voila, en espérant que vous pourrez m'aider, et que j'ai été assez clair :D

Merci d'avance :ccool:

PS : si vous avez d'autres solutions, je suis preneur aussi :mouarf:
Merci encore !

Pour ouvrir la fenêtre, aucune idée de comment on fait.


Pour écrire une clé de registre, ca c'est pas compliqué :
exemple crosoft :

Code:

---

1 2 3 4 5 6 7 8 9

Const HKEY_LOCAL_MACHINE = &H80000002   strComputer = "."   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv")   strKeyPath = "SOFTWARE\System Admin Scripting Guide" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

---

Merci de ton aide

Enfaite pour écrire une clé de registre je savais comment faire, car en cours on nous a appris à écrire des clés qui réactive les icônes du bureau, les enlevés, qui enlève le bouton démarrer aussi.

Mais ceux que je ne sais pas faire, c'est recopier une clé. Car je me dit que si j'installe l'imprimante 1 seul fois, et qu'ensuite je recopie la clé dans HKEY_CURRENT_USER\Printers ; clé : DeviceOld, alors je n'aurais juste a exécuter le script au démarrage pour installer les imprimantes tout simplement ( d'ailleurs, je me demande si il ne faudrait pas créer un fichier texte avec la clé, et donc au final faire 2 script ? un pour créer le fichier texte, et l'autre pour installer l'imprimante... huhu, je m'y perds un peu non ? :?)

Re,

En effet, en utilisant tout simplement un fichier texte dans la racine ( ou dans un autre emplacement, c'est pas le plus embêtant, et bien sa marche ). Le voici pour ceux qui serait intéresser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

dim stMonImprimante   Const FOR_READING = 1 strFilePath = "C:\imprimante.txt" iLineNumber = 1   Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFilePath, FOR_READING) Set WshNetwork = CreateObject("WScript.Network")   PrinterPath= objTS.Readline   WshNetwork.AddwindowsPrinterConnection (PrinterPath) WshNetwork.SetDefaultPrinter (PrinterPath)

---

Le problème c'est qu'il faut connaitre le nom du serveur encore, je pense que sa peut rapidement se régler en fessant un script de propriété d'imprimante :D

Salut,

Pour raccorder une imprimante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") '********************************** 'CONNEXION D'UNE IMPRIMANTE RESEAU. '********************************** ' PrinterPath = "\\NomDuServeurImpression\NomPartageImprimante" WshNetwork.AddWindowsPrinterConnection PrinterPath   '******************************** 'IMPOSE L'IMPRIMANTE PAR DEFAUT. '******************************** ' WshNetwork.SetDefaultPrinter "\\NomDuServeurImpression\NomPartageImprimante"

---

Pour le reste il faut reflechir à ton organisation.

Soit tu utilises l'Active Directory pour l'authentification des utilisateurs.
Il faut alors que tu organises l'AD pour utilise ton script via GPO

Ex:
- GPO sur l'Unité d'Organisation Accueil executé script1 \\nomserveur1\partage1
- GPO sur l'UO executé script2 \\nomserveur2\partage2
etc...

Ou tu peux creer des groupes et utiliser des IFMEMBER ou un script regardant les groupes (penser à l'imbrication de groupe)

Ou sur l'ordi tu peux mettre ton script dans le menu demarrage allusers ou par gestion de stratégie si tu veux. (L'inconvenient et que tu dois modifier le script de tous les ordis lorsque tu modifies qque chose)

Ou encore plus radical, tu installes l'imprimante dans un profil utilisateur standart et tu copie ce profil dans le default user. Inconvenient majeur et que chaque nouvelle personne qui va se connecter va recuperer ce profil et donc va monter l'imprimante en question meme si elle n'existe plus.

Si tu veux des précisions n'hesite pas. Je pense ne pas avoir été super clair.
Mais en bref je pense que ton problème est plutot organisationnel.