script [installation imprimante / map reseau] Résolu

Question

Bonjour,

Connaissez vous un script qui puisse installer une imprimante ??

On m'a demandé aussi, un script pour mapper le réseaux, ce qui determinerait les lettres aux lecteurs réseaux ! Comment faire ?

Merci

Sébastien P. · Accepted Answer

Pour le script de l'imprimante :


Set WshNetwork = CreateObject ("WScript.Network")
on error resume next
PrinterPath = "\serveur\imprimante1"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
WshNetwork.AddwindowsPrinterConnection (PrinterPath)
PrinterPath = "\serveur\imprimante2"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
WshNetwork.AddwindowsPrinterConnection (PrinterPath)


@++

Mister S · Answer

bonjourpour le script d'installation d'imprimante bah euh .... j'en sais rien.cela dit pour mapper le reseau voici une proc a enregistrer dans un fichier en .vbsDim fso, MyFile, iSet fso = CreateObject("Scripting.FileSystemObject")Set WshNetwork = WScript.CreateObject("WScript.Network")Set MyFile = fso.CreateTextFile("c:	estfile.txt", True)'Lecteurs RéseauMyFile.WriteLine("Lecteurs réseau :")MyFile.WriteLine("-----------------:")Set oDrives = WshNetwork.EnumNetworkDrivesFor i = 0 to oDrives.Count - 1 Step 2	MyFile.WriteLine(vbtab & oDrives.Item(i) & " = " & oDrives.Item(i+1))NextMyFile.Close'ouverture du fichier de rapportWshShell.Run ("%windir%
otepad c:	estfile.txt")cdt Mister S

Radek · Answer

Sur quel OS ?

carmi · Answer

Ha oui, c'est sur Windows XP (SP2) !

merci pour le script de map, mais j'ai fais comme t'as dit > fichier .vbs et j'ai copier ton script !

Il m'affiche message d'erreur:
ligne: 18
caract: 1
erreur: Objet requis : "WshShell"
code : 800A01A8

Je crois c'est au niveau de la derniere ligne.

(le fichier .vbs est sur bureau, je pense qu'il peut etre n'importe et pas forcement à la racine ?!)

Si quelqu'un connais un script pour installer imprimante, merci ;)

Mister S · Answer

oups desolé j'ai loupé une ligne dans mon copier collerSet WshShell = WScript.CreateObject("WScript.Shell")tu la mets au tout debut du scriptcdtMister S

carmi · Answer

Merci pour vos réponses, mais voici ce que j'ai trouvé !

Script pour imprimante (en .vbs):

Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\server\imprimante1"
net.AddWindowsPrinterConnection "\server\imprimante2"


Script pour mapper le réseaux (en .bat):

net use m: \server
om-de-partage1 /persistent:no
net use y: \server
om-de-partage2 /persistent:no

djib · Answer

c bien mais sa ne marche pas

Guigui · Answer

Bonjour, 

effectivement, cela ne fonctionne pas !!
Le script ne sort pas d'erreur, mais les utilisateurs n'ont pas d'imprimante installée !!


Script d'ouverture de cession :
 "
                     cscript \server\impr$\imprsalle.vbs
                     pause
"
script imprsalle.vbs :
"
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\server\imprimante1"
"

Comment faire ?
Merci

Bokv · Answer

Salut.

J'ai exactement le même problème... Quelqu'un a t il une solution?

BokC

Farenheit · Answer

up :p

onc · Answer

Pour les prochains qui passeraient par ici, il y a beaucoup plus simple :

rundll32 printui.dll,PrintUIEntry /in /n"\serveur\imprimante"

Ca marche avec tous les windows, de 2000 à 2012 R2 en passant par XP, 7 et 8.x

Pour le mappage des lecteurs réseau, bien penser à supprimer l'éventuel mappage déjà existant avec l'une des commandes suivantes, sinon vous aurez une erreur lors de la tentative de mappage 

net use * /delete /y 
(supprime tous les mappages déjà existants)

net use L: /delete /y 
(supprime le mappage du lecteur L: uniquement)

(et donc ensuite le mappage se fait normalement avec 
net use L: "\serveur\partage"
en lui ajoutant éventuellement l'option /persistent:no mais pas nécessaire vu qu'on démappera de toute façon)

Script [installation imprimante / map reseau]

11 réponses

Discussions similaires

Newsletters