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

Messages postés
20
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
12 mai 2007
- - Dernière réponse : onc
Messages postés
28
Date d'inscription
samedi 9 octobre 2010
Statut
Membre
Dernière intervention
9 juillet 2016
- 7 juil. 2015 à 15:34
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
Afficher la suite 

11 réponses

Meilleure réponse
10
Merci
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)


@++

Dire « Merci » 10

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

CCM 65019 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
2
Merci
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
0
Merci
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
0
Merci
Sur quel OS ?
Messages postés
20
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
12 mai 2007
9
0
Merci
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 ;)
0
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
0
Merci
c bien mais sa ne marche pas
0
Merci
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
0
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
0
Merci
up :p
Messages postés
28
Date d'inscription
samedi 9 octobre 2010
Statut
Membre
Dernière intervention
9 juillet 2016
51
0
Merci
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)