Bonjour à tous
Je cherche un moyen de mapper le port LPT1 sur une imprimante Réseau
(pour une vieille appli DOS).
(du genre net use LPT: \\serveur\partage )
Sachant qu'il faut être administrateur de la machine pour mapper ce port
, je lance donc un RUN AS user/administrateur
monscriptVB_transformer_en_exe_par_VBEDIT

Je précise qu'en administrateur, ça marche bien.

En compte limité
Ca marche a peu près bien (ça imprime et pas de message d'erreur !!)
...mais ensuite, le port est invisible pour le système et rien ne
s'exécute bien ensuite à propos du LPT1.
2 méthodes ont été utilisées et je perd le contrôle ensuite de toute
commande sur le LPT1
1er méthode (pur VBS) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\nom_du_serveur\nom_de_partage"
WshNetwork.AddPrinterConnection "LPT1", PrinterPath
Ca imprime bien sur l'imprimante mais tout autre commande sur le LPT1
n'est plus prise en compte !!!
Exemple : en mode de commande :net use LPT1 => erreur "la connexion
réseau est introuvable"
ou en pur VBS :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDevices = WshNetwork.EnumPrinterConnections
For i = 0 To oDevices.Count - 1 Step 2
    Text = Text &  oDevices(i) & "    " & oDevices(i+1) & vbCrLf
Next
MsgBox Text, vbOKOnly + vbInformation
=> le port LPT1 n'apparait pas !

*****************************************