Installation d?une imprimante réseau

Soyez le premier à donner votre avis sur cette source.

Vue 28 039 fois - Téléchargée 1 238 fois

Description

Pour quoi ce tout petit programme, me direz vous ? En réalité c?est super simple quand vous avez un société qui a plein d?imprimante et que les noms de partages c?est du n?importe quoi voila à quoi il sert.

Pour le moment il ne fait que l?installation de l?imprimante du serveur vers le poste client. Par la suite il y aura une liste des imprimantes et même peu être un système de plan ou il faut juste cliqué sur l?imprimante que l?on veut installé (mais la c?est a chacun de faire son plan ;-))

Pour cela, il faut savoir le mon du serveur et le nom du partage de l?imprimante pour que le programme fonctionne ;-)

Voila c?est la premier version mais elle va avancer rapidement parce-que je vais moi-même en avoir besoin pour le boulot.

@++

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
20
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
5 novembre 2009

Slt
Je n'arrive pas a utiliser ton code. Il ne se passe rien.
a tu une idee pour resoudre mon probleme et a tu fait des ameliorations de ta sources?

J'essaye de faire un serveur web d'impression, comme tu dit avec un plan du batiment de ma societe. les personnes n'ont plus qu'a cliquer sur leur bureau et ca install l'imprimante.

Merci d'avance pour ton aide

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.