Script [installation imprimante / map reseau] [Résolu/Fermé]

Signaler
Messages postés
20
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
12 mai 2007
-
Messages postés
26
Date d'inscription
samedi 9 octobre 2010
Statut
Membre
Dernière intervention
13 février 2016
-
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

11 réponses


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)


@++
10
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58088 internautes nous ont dit merci ce mois-ci

Ton script fonctionne parfaitement tu m'as sauvé !!!
Messages postés
20
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
12 mai 2007
9
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\nom-de-partage1 /persistent:no
net use y: \\server\nom-de-partage2 /persistent:no
Messages postés
26
Date d'inscription
samedi 9 octobre 2010
Statut
Membre
Dernière intervention
13 février 2016
59
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)
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:\testfile.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%\notepad c:\testfile.txt")


cdt

Mister S
Sur quel OS ?
Messages postés
20
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
12 mai 2007
9
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 ;)
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
c bien mais sa ne marche pas
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
Salut.

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

BokC
Bonjour
j'ai appliquer ce script via gpo appliquer pour les utilisateurs
ca fonctionne depuis une bonne année

' ************************************************************
'
' Script VBS pour installer les imprimantes Réseaux
' Du groupe - TECHNIQUE
' *name* - *société sa*
' 17 mars 2009 - rev 1
' modif: 15.10.2009 / Moi - Ajout Lan Fax
'
' *************************************************************

Option Explicit
Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2, strUNCPrinter3

strUNCPrinter1 = "\\srv-print\PRT-TZ-INTER"
strUNCPrinter2 = "\\srv-print\PRT-TZ-GRP3"
strUNCPrinter3 = "\\srv-print\LAN-FAX-GRP3"


Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter1
objNetwork.AddWindowsPrinterConnection strUNCPrinter2
objNetwork.AddWindowsPrinterConnection strUNCPrinter3

objNetwork.SetDefaultPrinter strUNCPrinter1

WScript.Quit

' End of Guy's set printer script.

Mais je remarque que chez certain utilisateur depuis quelque temps il y a une erreur de script
ma question est ce que micro chose n'aurais pas augmenté la sécurité au niveau des script vbs ?

car l'utilisateur qui ce connecte sur une autre machine l'erreur ne viens pas ????

ps si ce script peut vous être utile ben ctrl+c