Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1437 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Installation d'imprimantes réseaux depuis un serveur

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Installation d'imprimantes réseaux depuis un serveur

n°2058689
roloulou63
L'art d'être autodidacte...
Posté le 22-02-2011 à 12:13:19  profilanswer
 

Bonjour à tous,
 
Je viens vers vous pour une nouvelle demande qui est la suivante :
Je voudrais créer un script qui installe automatiquement les imprimantes d'un serveur.
Les imprimantes ont leur nom commençant par PRT...
 
Voici le script que j'ai mais il faut taper manuellement les imprimantes. Et le problème est que j'ai bcp de site à gérer et j'aimerais automatiser la tâche
 
'Permet de verrouiller les variables pour éviter les erreurs de saisie'
Option explicit
'Je définit les variables pour mon script'
Dim Reseau
'Je créé l'instance de l'objet Reseau en l'occurence l'instance qui touche
'au domaine du réseau'
Set Reseau = Wscript.CreateObject("Wscript.Network" )
'Installation de l'imprimante réseau'
Reseau.AddWindowsPrinterConnection "\\srvcXX\prt0X00X"
 
 
Merci d'avance pour votre aide. ;)  
Si vous pouvez m'expliquer votre solution surtout concernant les variables utilisées. :hello:  
 
 

mood
Publicité
Posté le 22-02-2011 à 12:13:19  profilanswer
 

n°2058772
roloulou63
L'art d'être autodidacte...
Posté le 22-02-2011 à 16:17:06  profilanswer
 

J'ai trouvé cette réponse :
 
Function printerlist() As String
Dim printers As System.Drawing.Printing.PrinterSettings.StringCollection
Dim str As String = String.Empty  
printers = System.Drawing.Printing.PrinterSettings.InstalledPrinters()
For x = 0 To printers.Count - 1  
str = str & printers.Item(x) & vbCrLf
 
Next
 
' MessageBox.Show(str)
Return str  
End Function
 
 
Mais je ne comprends pas le script dans son intégralité.
# Private Function SetInstallPrinter() As Boolean
# ' Si une erreur est détectée.
# On Error GoTo ErrHandler
# frmPrincipal.MousePointer = vbHourglass
#
# ' Déclaration des variables.
# Dim wshnetwork As Object
#
# ' Installation de l'imprimante.
# Set wshnetwork = CreateObject("wscript.network" )
# wshnetwork.addwindowsPrinterConnection "\\" & txtServer & "\" & UCase(txtPrinter.Text)
# If chkPrinter.Value = 1 Then
# wshnetwork.setdefaultprinter "\\" & txtServer & "\" & UCase(txtPrinter.Text)
# End If
#
# ' Fin de l'installation de l'imprimante.
# frmPrincipal.MousePointer = vbNormal
# SetInstallPrinter = True
# Exit Function
#
# ErrHandler:
# SetInstallPrinter = False
# frmPrincipal.MousePointer = vbNormal
#
# End Function


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Installation d'imprimantes réseaux depuis un serveur

 

Sujets relatifs
Copier tables MySQL vers un autre serveurCommunication sécurisée client/serveur
Executer du google analytics côté serveur !verifier que le flux est bien chiffrer entre client et serveur
[Résolu] Configurer WampServeur pour accès au localhostapplication de “chat” (à la fois le serveur et le client) en utilisa
installation MPI ( pour C++)[Shell/Batch] Installation de programme en chaîne
[Boost::Asio] Arrive pas a se connecter a un serveur sous boost 
Plus de sujets relatifs à : Installation d'imprimantes réseaux depuis un serveur


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR