Installation d?une imprimante réseau

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (gallyhc)