Imprimante réseau automatique

[Bentfr60]

Bonjour à tous,

Je suis à la recherche d'un script qui ajoute automatiquement des imprimantes réseaux à un profil (sans faire une recherche sur active directory, et donc le faire manuellement) ( je suis sous Windows 2000).

J'ai 2,3 pistes : faire un script en vbs ou batch ?

Je pense bien qu'il y aura pas mal de lignes de codes, et t-il possible de detailler les lignes et aussi la demarche à suivre (ou installé ect...)

Merci d'avance.

[Juuni]

Bonjour, personnellement j'utilise le vbs pour mes script d'ouverture de session.

Je te post ce qu'il faut pour ajouter une imprimante reseau à l'utilisateur courant.

Set WshNetwork= Wscript.CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection nom_serveur & "nom_imprimante"

Pour l'installation il suffit que tu copie ca dans le bloc note et apres tu l'enregistre en .vbs dans windows\netlogon\sysvol\scripts et apres il faut que tu ajoute le nom du script dans "script d'ouverture de session" qui ce situe là ou tu gere les utilisateurs. Enfin je t'explique tout ca en partant du principe que tu as un domaine ou ce connecte des utilisateurs. Si tu veux executer sur une machine à l'arrache ba tu double clique sur le fichier avec l'extension vbs.

Apres ba demande ce que tu veux plus précisement je verrais ce que je peux faire pour toi

[Jar0d]

Bon allez ptit coup de pouce sur ce que j'utilise au boulot:

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell" ) 
On Error Resume Next
MaMachine=Ucase(WshShell.RegRead("HKCU\Volatile Environment\CLIENTNAME" ))
Select Case MaMachine
Case "hostname_de_la_machine" Monimprimante="\host_de_l'imprimante"

End Select
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection  MonImprimante
net.SetDefaultPrinter  MonImprimante

[Bentfr60]

Merci de vos réponses : j'ai pris un code plus simple pour moi

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)

Sur xp quand je le lance à l'arrache (double clic) j'ai bien les imprimantes, sauf que sur windows 2000, il me demande de l'ouvrir avec un bloc notes ect...

J'ai bien un nom de domaine.

Ps : Pour le script au demaragge il faut bien le mettre dans la machine client ?