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

carmi 20Messages postés 10 avril 2006Date d'inscription - Dernière réponse le 10 mars 2010 à 14:55

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

Script [installation imprimante / map reseau] »

Suggestions

Script [installation imprimante / map reseau]
Installer une imprimante réseau » Forum
Partager une imprimante sous Windows XP et Vista » Fiches pratiques
Installation d'une imprimante en réseau (Résolu) » Forum
Mise en reseau imprimante hp (Résolu) » Forum
Imprimante réseau: configurer l'adresse ip (Résolu) » Forum

Plus

Réponse

Sébastien P. 13 déc. 2006 à 15:30

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)

@++

Ajouter un commentaire

kagemane - 12 mars 2008 à 17:21

Ton script fonctionne parfaitement tu m'as sauvé !!!

Réponse

Mister S 17 août 2006 à 15:34

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

Ajouter un commentaire

Réponse

Radek 17 août 2006 à 15:42

Sur quel OS ?

Ajouter un commentaire

Réponse

Mister S 17 août 2006 à 16:22

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

Ajouter un commentaire

Réponse

carmi 20Messages postés 10 avril 2006Date d'inscription 14 déc. 2006 à 01:20

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

Ajouter un commentaire

Réponse

djib 2 juil. 2007 à 11:51

c bien mais sa ne marche pas

Ajouter un commentaire

djib - 2 juil. 2007 à 11:53

t serieu toi

Réponse

Guigui 24 oct. 2007 à 12:28

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

Ajouter un commentaire

Réponse

Bokv 20 nov. 2007 à 11:52

Salut.

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

BokC

Ajouter un commentaire

Rogers - 10 mars 2010 à 14:55

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

Réponse

Farenheit 13 oct. 2009 à 11:08

up :p

Ajouter un commentaire

Réponse

-1

carmi 20Messages postés 10 avril 2006Date d'inscription 17 août 2006 à 16:03

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 ;)

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

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

Script [installation imprimante / map reseau] »

Passage au tout numérique : quel coût pour les particuliers ?