Imprimante reseaux

Commenter

Contenu du snippet

Tout d'abord "oulalenul" tient à remercier toutes les personnes à qui il a piqué du code. Le but de ce programme est de créer un dossier sur le bureau avec des raccourcis d'imprimantes qui sont sur le serveur.Si un client veut installe une imprimante il clique sur celle qu'il veut et l'installation est automatique. ( utile pour les administarteurs réseaux, pour la copie du dossier sur les Pcs utiliser le Kix.)
Vous devez créer un fichier print.ini dans le répertoire d'execution de l'exe.
Dans ce fichier vous inscrivez le nom de partage des imprimantes ex : IMPOULALENUL, 1 imprimante par ligne.

Source / Exemple : 


Private Sub Form_Load()

Dim WSHShell
Dim DesktopPath
Dim MyPath As String
Dim myName As String
Dim ServerPath
Dim Server
Dim PrintPath
Dim Shc
Dim FilePath As String

Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")

MyPath = DesktopPath & "\Imprimante"
ServerPath = "\\nom du serveur\"
Server = "nom du serveur"
FilePath = App.Path & "\print.ini"

If (myName = Dir(MyPath, vbDirectory)) = vbEmpty Then
    Set fso = CreateObject("scripting.FileSystemObject")
    fso.deletefolder (MyPath), True
    MkDir MyPath
Else
    MkDir MyPath
End If

Open FilePath For Input As #1
While Not EOF(1)
Line Input #1, PrintPath
If PrintPath = "" Then

Else
Set Shc = WSHShell.CreateShortcut(MyPath & "\" & PrintPath & " " & "on" & " " & Server & ".lnk")

Shc.TargetPath = WSHShell.ExpandEnvironmentStrings(ServerPath & PrintPath)
Shc.WindowStyle = 4
Shc.IconLocation = WSHShell.ExpandEnvironmentStrings("Shell32.dll, 16")
Shc.Save
End If
Wend
Close #1
Unload Me
End Sub

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.