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

Sur quel OS ?

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

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)

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

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

Up :p